!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ! ! glimmer_vers.F90.cmake.in - part of the Community Ice Sheet Model (CISM) ! !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ! ! Copyright (C) 2005-2014 ! CISM contributors - see AUTHORS file for list of contributors ! ! This file is part of CISM. ! ! CISM is free software: you can redistribute it and/or modify it ! under the terms of the Lesser GNU General Public License as published ! by the Free Software Foundation, either version 3 of the License, or ! (at your option) any later version. ! ! CISM is distributed in the hope that it will be useful, ! but WITHOUT ANY WARRANTY; without even the implied warranty of ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ! Lesser GNU General Public License for more details. ! ! You should have received a copy of the Lesser GNU General Public License ! along with CISM. If not, see . ! !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ !> the glimmer version as a string function glimmer_version_char() implicit none character(len=100) :: glimmer_version_char !glimmer_version_char = 'GLIMMER v. ??: (CMake build does not get version)' glimmer_version_char = 'CISM 2.0' end function glimmer_version_char !> the glimmer version as an integer function glimmer_version_int() implicit none integer :: glimmer_version_int glimmer_version_int = 10000*1 + 100*7 + 1 end function glimmer_version_int