/[MITgcm]/MITgcm/model/src/packages_readparms.F
ViewVC logotype

Diff of /MITgcm/model/src/packages_readparms.F

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

revision 1.41 by heimbach, Wed Jun 22 21:24:18 2005 UTC revision 1.44 by stephd, Thu Dec 8 00:15:52 2005 UTC
# Line 186  C -- initialize Therm.Sea-Ice parameters Line 186  C -- initialize Therm.Sea-Ice parameters
186        IF (usePTRACERS) CALL PTRACERS_READPARMS( myThid )        IF (usePTRACERS) CALL PTRACERS_READPARMS( myThid )
187  #endif  #endif
188    
 cswdptr -- add --  
189  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
190        IF (useGCHEM) CALL GCHEM_READPARMS( myThid )        IF (useGCHEM) CALL GCHEM_READPARMS( myThid )
191  #endif  #endif
192  cswdptr -- end add ---  
193    #ifdef ALLOW_RBCS
194          IF (useRBCS) CALL RBCS_READPARMS( myThid )
195    #endif
196    
197  #ifdef ALLOW_CTRL  #ifdef ALLOW_CTRL
198  C--   Initialise the optim. parameters.  C--   Initialise the optim. parameters.
Legend:
Removed from v.1.41  
changed lines
  Added in v.1.44
  ViewVC Help
Powered by ViewVC 1.1.22