/[MITgcm]/MITgcm/pkg/gchem/gchem_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/gchem/gchem_readparms.F

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

revision 1.18 by jmc, Tue Aug 24 14:41:32 2010 UTC revision 1.20 by jmc, Tue May 27 23:41:28 2014 UTC
# Line 34  C  iTracer              :: loop indices Line 34  C  iTracer              :: loop indices
34  C  iUnit                :: unit number for I/O  C  iUnit                :: unit number for I/O
35  C  msgBuf               :: message buffer  C  msgBuf               :: message buffer
36        INTEGER tIter0        INTEGER tIter0
       INTEGER iTracer  
37        INTEGER iUnit        INTEGER iUnit
38        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
 c     PARAMETER ( UNSET_I      = 123456789  )  
39  CEOP  CEOP
40    
41  C- Sub-package on/off flags: not fully implemented, requires  C- Sub-package on/off flags: not fully implemented, requires
# Line 62  C  to test the flag before any correspon Line 60  C  to test the flag before any correspon
60    
61  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
62    
63          IF ( .NOT.useGCHEM ) THEN
64    C-    pkg GCHEM is not used
65            _BEGIN_MASTER(myThid)
66    C-    Track pkg activation status:
67    C     print a (weak) warning if data.gchem is found
68             CALL PACKAGES_UNUSED_MSG( 'useGCHEM', ' ', ' ' )
69            _END_MASTER(myThid)
70            RETURN
71          ENDIF
72    
73        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
74    
75  C Set defaults values for parameters in GCHEM.h  C Set defaults values for parameters in GCHEM.h
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22