/[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.60 by dimitri, Wed Nov 28 00:18:17 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       |-- DIAGNOSTICS_INIT_FIXED  C       |-- ATM2D_INIT_FIXED
80  C       |  C       |
81  C       |-- REGRID_INIT_FIXED  C       |-- REGRID_INIT_FIXED
82    C       |
83    C       |-- SALT_PLUME_INIT_FIXED
84    C       |
85    C       |-- DIAGNOSTICS_INIT_FIXED
86    
87  C     !USES:  C     !USES:
88        IMPLICIT NONE        IMPLICIT NONE
# Line 109  C-    needs to call DIAGNOSTICS_INIT_EAR Line 113  C-    needs to call DIAGNOSTICS_INIT_EAR
113    
114  #ifdef ALLOW_GENERIC_ADVDIFF  #ifdef ALLOW_GENERIC_ADVDIFF
115  C--   Initialize fixed params for GAD  C--   Initialize fixed params for GAD
116        CALL GAD_INIT( myThid )        CALL GAD_INIT_FIXED( myThid )
117  #endif  #endif
118    
119  #ifdef ALLOW_MOM_COMMON  #ifdef ALLOW_MOM_COMMON
# Line 127  C--   Initialize fixed params for Moment Line 131  C--   Initialize fixed params for Moment
131    
132  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
133  C--   Initialize fixed arrays for EXF  C--   Initialize fixed arrays for EXF
134  c     IF ( useEXF ) THEN        IF ( useEXF ) THEN
135         CALL EXF_INIT_FIXED( myThid )         CALL EXF_INIT_FIXED( myThid )
136  c     ENDIF        ENDIF
137  #endif  #endif
138    
139  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
# Line 218  C--   Initialise & Read Land package par Line 222  C--   Initialise & Read Land package par
222  C--   Initialise ecco-specific cost function.  C--   Initialise ecco-specific cost function.
223  C--   This needs to preceed the call ctrl_init  C--   This needs to preceed the call ctrl_init
224  C--   in order to provide the weight files  C--   in order to provide the weight files
225        CALL SEAICE_COST_INIT_FIXED( myThid )        IF (useSEAICE) CALL SEAICE_COST_INIT_FIXED( myThid )
226  #endif  #endif
227    
228  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
# Line 238  C--   Initialise the control variables Line 242  C--   Initialise the control variables
242        _BARRIER        _BARRIER
243  #endif  #endif
244    
245    #ifdef ALLOW_ADMTLM
246    C--   Initialise ADMTLM
247          CALL CTRL_ADMTLM( myThid )
248          _BARRIER
249    #endif
250    
251  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
252        IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)        IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)
253  #endif  #endif
# Line 259  C     IF (useDIC) Line 269  C     IF (useDIC)
269        IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)        IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)
270  #endif  #endif
271    
272    #ifdef ALLOW_SEAICE
273          IF (useSEAICE) CALL SEAICE_INIT_FIXED(mythid)
274    #endif
275    
276  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
277        IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )        IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )
278  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
279    
280    #ifdef ALLOW_EMBED_FILES
281          IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( mythid )
282    #endif
283    
284    #ifdef ALLOW_REGRID
285          IF ( useREGRID ) CALL REGRID_INIT_FIXED( mythid )
286    #endif
287    
288  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_MYPACKAGE
289        IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(mythid)        IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(mythid)
290  #endif  #endif
# Line 271  C     IF (useDIC) Line 293  C     IF (useDIC)
293        IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )        IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
294  #endif  #endif
295    
296  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_ATM2D
297  C-    needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls        IF ( useAtm2d ) CALL ATM2D_INIT_FIXED( myThid )
       IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )  
298  #endif  #endif
299    
300  #ifdef ALLOW_EMBED_FILES  #ifdef ALLOW_SALT_PLUME
301        IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( mythid )        IF (useSaltPlume) CALL SALT_PLUME_INIT_FIXED(mythid)
302  #endif  #endif
303    
304  #ifdef ALLOW_REGRID  #ifdef ALLOW_DIAGNOSTICS
305        IF ( useREGRID ) CALL REGRID_INIT_FIXED( mythid )  C-    needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls
306          IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )
307  #endif  #endif
308    
309        RETURN        RETURN
Legend:
Removed from v.1.52  
changed lines
  Added in v.1.60
  ViewVC Help
Powered by ViewVC 1.1.22