/[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.20 by jmc, Tue May 27 23:41:28 2014 UTC revision 1.21 by jmc, Mon May 23 13:09:31 2016 UTC
# Line 43  C  to test the flag before any correspon Line 43  C  to test the flag before any correspon
43    
44        NAMELIST /GCHEM_PARM01/        NAMELIST /GCHEM_PARM01/
45       &                   nsubtime,       &                   nsubtime,
      &                   useDIC,  
46       &                   useCFC,       &                   useCFC,
47         &                   useDIC,
48         &                   useBLING,
49       &                   useDARWIN,       &                   useDARWIN,
50       &                   Filename1,       &                   Filename1,
51       &                   Filename2,       &                   Filename2,
# Line 73  C     print a (weak) warning if data.gch Line 74  C     print a (weak) warning if data.gch
74        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
75    
76  C Set defaults values for parameters in GCHEM.h  C Set defaults values for parameters in GCHEM.h
        useDIC = .FALSE.  
77         useCFC = .FALSE.         useCFC = .FALSE.
78           useDIC = .FALSE.
79           useBLING  = .FALSE.
80         useDARWIN = .FALSE.         useDARWIN = .FALSE.
81         tIter0 = UNSET_I         tIter0 = UNSET_I
82         nsubtime=1         nsubtime=1
# Line 132  c      nRetired = nRetired+1 Line 134  c      nRetired = nRetired+1
134  C Everyone else must wait for the parameters to be loaded  C Everyone else must wait for the parameters to be loaded
135        _BARRIER        _BARRIER
136    
137    #ifdef ALLOW_CFC
138          IF ( useCFC ) THEN
139            CALL CFC_READPARMS(myThid)
140          ENDIF
141    #endif
142    
143  #ifdef ALLOW_DIC  #ifdef ALLOW_DIC
144        IF ( useDIC ) THEN        IF ( useDIC ) THEN
145          CALL DIC_READPARMS(myThid)          CALL DIC_READPARMS(myThid)
146        ENDIF        ENDIF
147  #endif  #endif
148    
149  #ifdef ALLOW_CFC  #ifdef ALLOW_BLING
150        IF ( useCFC ) THEN        IF ( useBLING ) THEN
151          CALL CFC_READPARMS(myThid)          CALL BLING_READPARMS(myThid)
152        ENDIF        ENDIF
153  #endif  #endif
154    
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22