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

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

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

revision 1.41 by mlosch, Fri Nov 19 01:33:32 2004 UTC revision 1.42 by jmc, Mon Dec 13 22:01:50 2004 UTC
# Line 248  C--   Open boundaries data Line 248  C--   Open boundaries data
248        IF (useCoupler) CALL CPL_INI_VARS( mythid )        IF (useCoupler) CALL CPL_INI_VARS( mythid )
249  #endif  #endif
250    
 C AMM  
251  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
252  C Initialize FIZHI state variables  C Initialize FIZHI state variables
253  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
# Line 256  C Initialize FIZHI state variables Line 255  C Initialize FIZHI state variables
255  #endif  #endif
256        IF (useFIZHI) CALL FIZHI_INIT_VARS( mythid)        IF (useFIZHI) CALL FIZHI_INIT_VARS( mythid)
257  #endif  #endif
258  C AMM  
259    #ifdef ALLOW_DIAGNOSTICS
260          IF ( useDiagnostics ) THEN
261            CALL DIAGNOSTICS_INIT_VARIA( myThid )
262          ENDIF
263    #endif
264    
265  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
266        IF (debugMode)        IF (debugMode)
Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42
  ViewVC Help
Powered by ViewVC 1.1.22