/[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.16 by dfer, Wed Apr 9 20:10:04 2008 UTC revision 1.17 by jahn, Tue Jun 30 16:43:00 2009 UTC
# Line 47  C  to test the flag before any correspon Line 47  C  to test the flag before any correspon
47       &                   nsubtime,       &                   nsubtime,
48       &                   useDIC,       &                   useDIC,
49       &                   useCFC,       &                   useCFC,
50         &                   useDARWIN,
51       &                   Filename1,       &                   Filename1,
52       &                   Filename2,       &                   Filename2,
53       &                   Filename3,       &                   Filename3,
# Line 66  C---+----1----+----2----+----3----+----4 Line 67  C---+----1----+----2----+----3----+----4
67  C Set defaults values for parameters in GCHEM.h  C Set defaults values for parameters in GCHEM.h
68         useDIC = .FALSE.         useDIC = .FALSE.
69         useCFC = .FALSE.         useCFC = .FALSE.
70           useDARWIN = .FALSE.
71         tIter0 = UNSET_I         tIter0 = UNSET_I
72         nsubtime=1         nsubtime=1
73         Filename1=' '         Filename1=' '
# Line 134  C Everyone else must wait for the parame Line 136  C Everyone else must wait for the parame
136        ENDIF        ENDIF
137  #endif  #endif
138    
139    #ifdef ALLOW_DARWIN
140          IF ( useDARWIN ) THEN
141            CALL DARWIN_READPARMS(myThid)
142          ENDIF
143    #endif
144    
145  #endif /* ALLOW_GCHEM */  #endif /* ALLOW_GCHEM */
146    
147        RETURN        RETURN
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22