Changeset 3363
- Timestamp:
- 08/23/17 15:08:50 (7 years ago)
- Location:
- TOOLS/MOZAIC/src/MOZAIC
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
TOOLS/MOZAIC/src/MOZAIC/cotes_etal.f90
r3326 r3363 225 225 WRITE (nout,*) 'Environment variable not found : $LOGNAME' 226 226 END IF 227 227 CALL flioputa (il_ncid, "?", "SVN_Author" , TRIM (SVN_Author) ) 228 CALL flioputa (il_ncid, "?", "SVN_Date" , TRIM (SVN_Date) ) 229 CALL flioputa (il_ncid, "?", "SVN_Revision" , TRIM (SVN_Revision) ) 230 228 231 CALL fliodefv (nid_it, 'laland' , (/1,2/), v_t=flio_i4) 229 232 CALL fliodefv (nid_it, 'lacot' , (/1,2/), v_t=flio_i4) … … 269 272 WRITE (nout,*) 'Environment variable not found : $LOGNAME' 270 273 END IF 271 274 CALL flioputa (il_ncid, "?", "SVN_Author" , TRIM (SVN_Author) ) 275 CALL flioputa (il_ncid, "?", "SVN_Date" , TRIM (SVN_Date) ) 276 CALL flioputa (il_ncid, "?", "SVN_Revision" , TRIM (SVN_Revision) ) 277 272 278 CALL fliodefv (nid_id, 'locot' , (/1,2/), v_t=flio_i4) 273 279 CALL fliodefv (nid_id, 'looce' , (/1,2/), v_t=flio_i4) -
TOOLS/MOZAIC/src/MOZAIC/declare.f90
- Property svn:keywords set to Date Revision HeadURL Author Id Log
r3326 r3363 24 24 INTEGER (kind=il), PUBLIC :: nout = 6 !< File number for messages 25 25 LOGICAL, PUBLIC :: l_d_alloc !< If TRUE, print message about array allocation 26 ! 27 CHARACTER (LEN=128) :: SVN_Author = "$Author$" 28 CHARACTER (LEN=128) :: SVN_Date = "$Date$" 29 CHARACTER (LEN=128) :: SVN_Revision = "$Revision$" 26 30 ! 27 31 PUBLIC chk_allo -
TOOLS/MOZAIC/src/MOZAIC/lmdz.f90
r3326 r3363 91 91 CASE ('-b') 92 92 l_build = .TRUE. 93 93 WRITE ( nout, *) 'Construction LMDZ ' 94 94 95 CASE ('-l') 95 96 l_restart = .TRUE. -
TOOLS/MOZAIC/src/MOZAIC/mosaic.f90
- Property svn:keywords changed from Date Revision HeadURL Author to Date Revision HeadURL Author Id Log
r3329 r3363 15 15 !> $Id$ 16 16 !> 17 !> $Log $17 !> $Log: $ 18 18 !> 19 19 !> -
TOOLS/MOZAIC/src/MOZAIC/wri_wei.f90
r3326 r3363 393 393 WRITE (nout,*) 'Environment variable not found : $LOGNAME' 394 394 END IF 395 CALL flioputa (il_ncid, "?", "SVN_Author" , TRIM (SVN_Author) ) 396 CALL flioputa (il_ncid, "?", "SVN_Date" , TRIM (SVN_Date) ) 397 CALL flioputa (il_ncid, "?", "SVN_Revision" , TRIM (SVN_Revision) ) 395 398 ! 396 399 CALL fliodefv (il_ncid, 'src_grid_dims' , (/5/) , v_t=flio_i ) … … 789 792 WRITE (nout,*) 'Environment variable not found : $LOGNAME' 790 793 END IF 794 CALL flioputa (il_ncid, "?", "SVN_Author" , TRIM (SVN_Author) ) 795 CALL flioputa (il_ncid, "?", "SVN_Date" , TRIM (SVN_Date) ) 796 CALL flioputa (il_ncid, "?", "SVN_Revision" , TRIM (SVN_Revision) ) 791 797 ! 792 798 CALL fliodefv (il_ncid, 'src_grid_dims' , (/5/) , v_t=flio_i )
Note: See TracChangeset
for help on using the changeset viewer.