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

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

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

revision 1.32 by jmc, Fri Dec 3 15:39:11 2004 UTC revision 1.33 by jmc, Mon Dec 13 22:01:50 2004 UTC
# Line 58  C     myThid -  Number of this instances Line 58  C     myThid -  Number of this instances
58        INTEGER myThid        INTEGER myThid
59  CEOP  CEOP
60    
61    #ifdef ALLOW_DIAGNOSTICS
62          IF ( useDiagnostics ) THEN
63            CALL DIAGNOSTICS_INIT_EARLY( myThid )
64            CALL DIAGNOSTICS_MAIN_INIT( myThid )
65          ENDIF
66    #endif
67    
68  #ifdef ALLOW_GENERIC_ADVDIFF  #ifdef ALLOW_GENERIC_ADVDIFF
69  C--   Initialize fixed params for GAD  C--   Initialize fixed params for GAD
70        CALL GAD_INIT( myThid )        CALL GAD_INIT( myThid )
# Line 152  C--   Initialise the control variables Line 159  C--   Initialise the control variables
159        IF (useOPPS) CALL OPPS_INIT( myThid )        IF (useOPPS) CALL OPPS_INIT( myThid )
160  #endif /* ALLOW_OPPS */  #endif /* ALLOW_OPPS */
161    
 CAMM  
 #ifdef ALLOW_DIAGNOSTICS  
       IF (usediagnostics) then  
        call diagnostics_initialise(mythid)  
       ENDIF  
 #endif  
 CAMM  
   
162  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
163        IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )        IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
164  #endif  #endif
165    
166    #ifdef ALLOW_DIAGNOSTICS
167          IF ( useDiagnostics ) THEN
168            CALL DIAGNOSTICS_INIT_FIXED( myThid )
169          ENDIF
170    #endif
171    
172        RETURN        RETURN
173        END        END
Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33
  ViewVC Help
Powered by ViewVC 1.1.22