#3 - Update setting of variables version and tag

full/file_version.fh

@@ -0,0 +1,25 @@
+! -*-f90-*-
+!***********************************************************************
+!*                   GNU Lesser General Public License
+!*
+!* This file is part of the GFDL Flexible Modeling System (FMS).
+!*
+!* FMS is free software: you can redistribute it and/or modify it under
+!* the terms of the GNU Lesser General Public License as published by
+!* the Free Software Foundation, either version 3 of the License, or (at
+!* your option) any later version.
+!*
+!* FMS 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 GNU General Public License
+!* for more details.
+!*
+!* You should have received a copy of the GNU Lesser General Public
+!* License along with FMS.  If not, see <http://www.gnu.org/licenses/>.
+!***********************************************************************
+
+#ifdef _FILE_VERSION
+  character(len=*), parameter :: version = _FILE_VERSION
+#else
+  character(len=*), parameter :: version = 'unknown'
+#endif

full/full_coupler_mod.F90

@@ -128,9 +128,8 @@ module full_coupler_mod
   public :: coupler_clock_type
 
 !-----------------------------------------------------------------------
-
-  character(len=128), public :: version = '$Id$'
-  character(len=128), public :: tag = '$Name$'
+
+#include <file_version.fh>
 
   !> namelist interface
 
@@ -228,6 +227,7 @@ module full_coupler_mod
                          use_hyper_thread, concurrent_ice, slow_ice_with_ocean,    &
                          do_endpoint_chksum, combined_ice_and_ocean
 
+
   !> coupler_clock_type derived type consist of all clock ids that will be set and used
   !! in full coupler_main.
   type coupler_clock_type 
@@ -379,7 +379,7 @@ subroutine coupler_init(Atm, Ocean, Land, Ice, Ocean_state, Atmos_land_boundary,
     endif
 
 !----- write version to logfile -------
-    call fms_write_version_number(version, tag)
+    call fms_write_version_number('FULL_COUPLER_MOD', version)
 
 !----- read namelist -------
 
@@ -1531,6 +1531,7 @@ subroutine coupler_set_clock_ids(coupler_clocks, Atm, Land, Ice, Ocean, ensemble
 
     implicit none
 
+
     type(coupler_clock_type), intent(inout) :: coupler_clocks !< coupler_clocks
     type(atmos_data_type),   intent(in) :: Atm   !< Atm, required to retrieve pe information
     type(land_data_type),    intent(in) :: Land  !< Land, required to retrieve pe information