Ignore:
Timestamp:
08/23/17 15:08:50 (7 years ago)
Author:
omamce
Message:

O.M. : add SVN keywords in files

File:
1 edited

Legend:

Unmodified
Added
Removed

  • TOOLS/MOZAIC/src/MOZAIC/wri_wei.f90

    r3326 r3363  
    393393            WRITE (nout,*) 'Environment variable not found : $LOGNAME' 
    394394         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)  ) 
    395398         ! 
    396399         CALL fliodefv (il_ncid, 'src_grid_dims'      , (/5/)  , v_t=flio_i ) 
    … …  
    789792            WRITE (nout,*) 'Environment variable not found : $LOGNAME' 
    790793         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)  ) 
    791797         ! 
    792798         CALL fliodefv (il_ncid, 'src_grid_dims'      , (/5/)  , v_t=flio_i ) 
Note: See TracChangeset for help on using the changeset viewer.