/[MITgcm]/MITgcm/pkg/mypackage/mypackage_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/mypackage/mypackage_readparms.F

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

revision 1.4 by jmc, Sun Dec 27 23:40:03 2009 UTC revision 1.5 by jmc, Tue May 27 23:41:31 2014 UTC
# Line 45  C     iUnit      :: Work variable for IO Line 45  C     iUnit      :: Work variable for IO
45       &       myPa_VelUFile,   myPa_VelVFile,       &       myPa_VelUFile,   myPa_VelVFile,
46       &       myPa_Surf1File,  myPa_Surf2File       &       myPa_Surf1File,  myPa_Surf2File
47    
48          IF ( .NOT.useMYPACKAGE ) THEN
49    C-    pkg MYPACKAGE is not used
50            _BEGIN_MASTER(myThid)
51    C-    Track pkg activation status:
52    C     print a (weak) warning if data.mypackage is found
53             CALL PACKAGES_UNUSED_MSG( 'useMYPACKAGE', ' ', ' ' )
54            _END_MASTER(myThid)
55            RETURN
56          ENDIF
57    
58        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
59    
60  C--   Default values for MYPACKAGE  C--   Default values for MYPACKAGE
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22