/[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.52 by edhill, Tue Aug 15 04:24:03 2006 UTC revision 1.59 by heimbach, Fri Apr 20 18:42:10 2007 UTC
# Line 76  C       |-- MYPACKAGE_INIT_FIXED Line 76  C       |-- MYPACKAGE_INIT_FIXED
76  C       |  C       |
77  C       |-- CPL_INIT_FIXED  C       |-- CPL_INIT_FIXED
78  C       |  C       |
79    C       |-- ATM2D_INIT_FIXED
80    C       |
81  C       |-- DIAGNOSTICS_INIT_FIXED  C       |-- DIAGNOSTICS_INIT_FIXED
82  C       |  C       |
83  C       |-- REGRID_INIT_FIXED  C       |-- REGRID_INIT_FIXED
# Line 109  C-    needs to call DIAGNOSTICS_INIT_EAR Line 111  C-    needs to call DIAGNOSTICS_INIT_EAR
111    
112  #ifdef ALLOW_GENERIC_ADVDIFF  #ifdef ALLOW_GENERIC_ADVDIFF
113  C--   Initialize fixed params for GAD  C--   Initialize fixed params for GAD
114        CALL GAD_INIT( myThid )        CALL GAD_INIT_FIXED( myThid )
115  #endif  #endif
116    
117  #ifdef ALLOW_MOM_COMMON  #ifdef ALLOW_MOM_COMMON
# Line 127  C--   Initialize fixed params for Moment Line 129  C--   Initialize fixed params for Moment
129    
130  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
131  C--   Initialize fixed arrays for EXF  C--   Initialize fixed arrays for EXF
132  c     IF ( useEXF ) THEN        IF ( useEXF ) THEN
133         CALL EXF_INIT_FIXED( myThid )         CALL EXF_INIT_FIXED( myThid )
134  c     ENDIF        ENDIF
135  #endif  #endif
136    
137  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
# Line 218  C--   Initialise & Read Land package par Line 220  C--   Initialise & Read Land package par
220  C--   Initialise ecco-specific cost function.  C--   Initialise ecco-specific cost function.
221  C--   This needs to preceed the call ctrl_init  C--   This needs to preceed the call ctrl_init
222  C--   in order to provide the weight files  C--   in order to provide the weight files
223        CALL SEAICE_COST_INIT_FIXED( myThid )        IF (useSEAICE) CALL SEAICE_COST_INIT_FIXED( myThid )
224  #endif  #endif
225    
226  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
# Line 238  C--   Initialise the control variables Line 240  C--   Initialise the control variables
240        _BARRIER        _BARRIER
241  #endif  #endif
242    
243    #ifdef ALLOW_ADMTLM
244    C--   Initialise ADMTLM
245          CALL CTRL_ADMTLM( myThid )
246          _BARRIER
247    #endif
248    
249  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
250        IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)        IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)
251  #endif  #endif
# Line 259  C     IF (useDIC) Line 267  C     IF (useDIC)
267        IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)        IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)
268  #endif  #endif
269    
270    #ifdef ALLOW_SEAICE
271          IF (useSEAICE) CALL SEAICE_INIT_FIXED(mythid)
272    #endif
273    
274  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
275        IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )        IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )
276  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
277    
278    #ifdef ALLOW_EMBED_FILES
279          IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( mythid )
280    #endif
281    
282    #ifdef ALLOW_REGRID
283          IF ( useREGRID ) CALL REGRID_INIT_FIXED( mythid )
284    #endif
285    
286  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_MYPACKAGE
287        IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(mythid)        IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(mythid)
288  #endif  #endif
# Line 271  C     IF (useDIC) Line 291  C     IF (useDIC)
291        IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )        IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
292  #endif  #endif
293    
294    #ifdef ALLOW_ATM2D
295          IF ( useAtm2d ) CALL ATM2D_INIT_FIXED( myThid )
296    #endif
297    
298  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
299  C-    needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls  C-    needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls
300        IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )        IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )
301  #endif  #endif
302    
 #ifdef ALLOW_EMBED_FILES  
       IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( mythid )  
 #endif  
   
 #ifdef ALLOW_REGRID  
       IF ( useREGRID ) CALL REGRID_INIT_FIXED( mythid )  
 #endif  
   
303        RETURN        RETURN
304        END        END
Legend:
Removed from v.1.52  
changed lines
  Added in v.1.59
  ViewVC Help
Powered by ViewVC 1.1.22