/[MITgcm]/MITgcm/pkg/atm_phys/atm_phys_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/atm_phys/atm_phys_readparms.F

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

revision 1.2 by jmc, Fri Jun 28 21:25:25 2013 UTC revision 1.3 by jmc, Tue May 27 23:41:27 2014 UTC
# Line 42  C     iUnit      :: Work variable for IO Line 42  C     iUnit      :: Work variable for IO
42    
43        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
44    
45          IF ( .NOT.useAtm_Phys ) THEN
46    C-    pkg ATM_PHYS is not used
47            _BEGIN_MASTER(myThid)
48    C-    Track pkg activation status:
49    C     print a (weak) warning if data.atm_phys is found
50             CALL PACKAGES_UNUSED_MSG( 'useAtm_Phys', ' ', ' ' )
51            _END_MASTER(myThid)
52            RETURN
53          ENDIF
54    
55  C--   Default values for ATM_PHYS  C--   Default values for ATM_PHYS
56        atmPhys_addTendT  = .TRUE.        atmPhys_addTendT  = .TRUE.
57        atmPhys_addTendS  = .TRUE.        atmPhys_addTendS  = .TRUE.
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22