/[MITgcm]/MITgcm/pkg/flt/flt_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/flt/flt_readparms.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.8 by dfer, Wed Sep 12 22:03:00 2012 UTC revision 1.9 by jmc, Tue May 27 23:41:28 2014 UTC
# Line 35  C     == local variables == Line 35  C     == local variables ==
35    
36  C     == end of interface ==  C     == end of interface ==
37    
38          IF ( .NOT.useFLT ) THEN
39    C-    pkg FLT is not used
40            _BEGIN_MASTER(myThid)
41    C-    Track pkg activation status:
42    C     print a (weak) warning if data.flt is found
43             CALL PACKAGES_UNUSED_MSG( 'useFLT', ' ', ' ' )
44            _END_MASTER(myThid)
45            RETURN
46          ENDIF
47    
48        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
49    
50  C     Set default values.  C     Set default values.
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22