/[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.44 by spk, Wed Apr 20 15:49:47 2005 UTC revision 1.45 by molod, Fri May 6 20:35:36 2005 UTC
# Line 80  CEOP Line 80  CEOP
80       &     CALL DEBUG_ENTER('PACKAGES_INIT_VARIABLES',myThid)       &     CALL DEBUG_ENTER('PACKAGES_INIT_VARIABLES',myThid)
81  #endif  #endif
82    
83    #ifdef ALLOW_DIAGNOSTICS
84          IF ( useDiagnostics ) THEN
85            CALL DIAGNOSTICS_INIT_VARIA( myThid )
86          ENDIF
87    #endif
88    
89  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
90  C--   Initialize CD_CODE variables:  C--   Initialize CD_CODE variables:
91  C- note(jmc): before packaging CD_CODE, was done within ini_fields (=called before),  C- note(jmc): before packaging CD_CODE, was done within ini_fields (=called before),
# Line 255  C Initialize FIZHI state variables Line 261  C Initialize FIZHI state variables
261        IF (useFIZHI) CALL FIZHI_INIT_VARS( mythid)        IF (useFIZHI) CALL FIZHI_INIT_VARS( mythid)
262  #endif  #endif
263    
 #ifdef ALLOW_DIAGNOSTICS  
       IF ( useDiagnostics ) THEN  
         CALL DIAGNOSTICS_INIT_VARIA( myThid )  
       ENDIF  
 #endif  
   
264  #ifdef ALLOW_MATRIX  #ifdef ALLOW_MATRIX
265  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
266        IF (debugMode) CALL DEBUG_CALL('MATRIX_INIT',myThid)        IF (debugMode) CALL DEBUG_CALL('MATRIX_INIT',myThid)
Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45
  ViewVC Help
Powered by ViewVC 1.1.22