/[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.42 by edhill, Mon Aug 1 21:07:34 2005 UTC revision 1.55 by heimbach, Sun Oct 22 01:11:44 2006 UTC
# Line 11  C     !INTERFACE: Line 11  C     !INTERFACE:
11    
12  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
13  C     *==========================================================*  C     *==========================================================*
14  C     | SUBROUTINE PACKAGES_INIT_FIXED                              C     | SUBROUTINE PACKAGES_INIT_FIXED
15  C     | o Does initialisation of package-related fixed fields      C     | o Does initialisation of package-related fixed fields
16  C     *==========================================================*  C     *==========================================================*
17  C     \ev  C     \ev
18    
# Line 26  C       |-- DIAGNOSTICS_MAIN_INIT Line 26  C       |-- DIAGNOSTICS_MAIN_INIT
26  C       |  C       |
27  C       |-- GAD_INIT  C       |-- GAD_INIT
28  C       |  C       |
29    C       |-- MOM_INIT_FIXED
30    C       |
31  C       |-- CD_CODE_INIT_FIXED  C       |-- CD_CODE_INIT_FIXED
32  C       |  C       |
33  C       |-- EXF_INIT_FIXED  C       |-- EXF_INIT_FIXED
# Line 46  C       |-- SHAP_FILT_INIT_FIZED Line 48  C       |-- SHAP_FILT_INIT_FIZED
48  C       |  C       |
49  C       |-- ZONAL_FILT_INIT  C       |-- ZONAL_FILT_INIT
50  C       |  C       |
 C       |-- ATM_DIAGNOSTICS_INIT  
 C       |  
51  C       |-- AIM_INITIALISE  C       |-- AIM_INITIALISE
52  C       |  C       |
53  C       |-- GRIDALT_INITIALISE  C       |-- GRIDALT_INITIALISE
# Line 56  C       |-- FIZHI_INIT_FIXED Line 56  C       |-- FIZHI_INIT_FIXED
56  C       |  C       |
57  C       |-- LAND_INITIALISE  C       |-- LAND_INITIALISE
58  C       |  C       |
59    C       |-- SEAICE_COST_INIT_FIXED
60    C       |
61  C       |-- ECCO_COST_INIT_FIXED  C       |-- ECCO_COST_INIT_FIXED
62  C       |  C       |
63  C       |-- CTRL_INIT  C       |-- CTRL_INIT
64  C       |  C       |
65  C       |-- PTRACERS_INITIALISE  C       |-- PTRACERS_INIT_FIXED
66  C       |  C       |
67  C       |-- GCHEM_INIT_FIXED  C       |-- GCHEM_INIT_FIXED
68  C       |  C       |
# Line 68  C       |-- DIC_INIT_FIXED Line 70  C       |-- DIC_INIT_FIXED
70  C       |  C       |
71  C       |-- THSICE_INIT_FIXED  C       |-- THSICE_INIT_FIXED
72  C       |  C       |
73    C       |-- SHELFICE_INIT_FIXED
74    C       |
75    C       |-- MYPACKAGE_INIT_FIXED
76    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       |
83    C       |-- REGRID_INIT_FIXED
84    
85  C     !USES:  C     !USES:
86        IMPLICIT NONE        IMPLICIT NONE
# Line 93  CEOP Line 103  CEOP
103    
104  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
105        IF ( useDiagnostics ) THEN        IF ( useDiagnostics ) THEN
106    C-    needs to call DIAGNOSTICS_INIT_EARLY before all package-diag-init calls
107          CALL DIAGNOSTICS_INIT_EARLY( myThid )          CALL DIAGNOSTICS_INIT_EARLY( myThid )
108          CALL DIAGNOSTICS_MAIN_INIT( myThid )          CALL DIAGNOSTICS_MAIN_INIT( myThid )
109        ENDIF        ENDIF
# Line 103  C--   Initialize fixed params for GAD Line 114  C--   Initialize fixed params for GAD
114        CALL GAD_INIT( myThid )        CALL GAD_INIT( myThid )
115  #endif  #endif
116    
117    #ifdef ALLOW_MOM_COMMON
118    C--   Initialize fixed params for Momentum pkgs (common, fluxform, vecinv)
119          IF ( momStepping ) THEN
120           CALL MOM_INIT_FIXED( myThid )
121          ENDIF
122    #endif
123    
124  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
125        IF (useCDscheme) THEN        IF (useCDscheme) THEN
126         CALL CD_CODE_INIT_FIXED(mythid)         CALL CD_CODE_INIT_FIXED(mythid)
# Line 198  C--   Initialise & Read Land package par Line 216  C--   Initialise & Read Land package par
216        IF (useLand) CALL LAND_INITIALISE( myThid )        IF (useLand) CALL LAND_INITIALISE( myThid )
217  #endif  #endif
218    
219    #if (defined (ALLOW_SEAICE) && defined (ALLOW_COST))
220    C--   Initialise ecco-specific cost function.
221    C--   This needs to preceed the call ctrl_init
222    C--   in order to provide the weight files
223          CALL SEAICE_COST_INIT_FIXED( myThid )
224    #endif
225    
226  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
227  C--   Initialise ecco-specific cost function.  C--   Initialise ecco-specific cost function.
228  C--   This needs to preceed the call ctrl_init  C--   This needs to preceed the call ctrl_init
# Line 205  C--   in order to provide the weight fil Line 230  C--   in order to provide the weight fil
230        CALL ECCO_COST_INIT_FIXED( myThid )        CALL ECCO_COST_INIT_FIXED( myThid )
231  #endif  #endif
232    
233    #ifdef ALLOW_PROFILES
234          CALL PROFILES_INIT_FIXED( myThid )
235    #endif
236    
237  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
238  C--   Initialise the control variables  C--   Initialise the control variables
239        CALL CTRL_INIT( myThid )        CALL CTRL_INIT( myThid )
# Line 212  C--   Initialise the control variables Line 241  C--   Initialise the control variables
241  #endif  #endif
242    
243  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
244        IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)        IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)
245  #endif  #endif
246    
247  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
# Line 224  C     IF (useDIC) Line 253  C     IF (useDIC)
253        CALL DIC_INIT_FIXED(mythid)        CALL DIC_INIT_FIXED(mythid)
254  #endif  #endif
255    
256    #ifdef ALLOW_RBCS
257          IF (useRBCS) CALL RBCS_INIT_FIXED(mythid)
258    #endif
259    
260  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
261        IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)        IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)
262  #endif  #endif
263    
264    #ifdef ALLOW_SEAICE
265          IF (useSEAICE) CALL SEAICE_INIT_FIXED(mythid)
266    #endif
267    
268    #ifdef ALLOW_SHELFICE
269          IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )
270    #endif /* ALLOW_SHELFICE */
271    
272    #ifdef ALLOW_EMBED_FILES
273          IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( mythid )
274    #endif
275    
276    #ifdef ALLOW_REGRID
277          IF ( useREGRID ) CALL REGRID_INIT_FIXED( mythid )
278    #endif
279    
280    #ifdef ALLOW_MYPACKAGE
281          IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(mythid)
282    #endif
283    
284  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
285        IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )        IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
286  #endif  #endif
287    
288    #ifdef ALLOW_ATM2D
289          IF ( useAtm2d ) CALL ATM2D_INIT_FIXED( myThid )
290    #endif
291    
292  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
293        IF ( useDiagnostics ) THEN  C-    needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls
294          CALL DIAGNOSTICS_INIT_FIXED( myThid )        IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )
       ENDIF  
295  #endif  #endif
296    
297        RETURN        RETURN
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.55
  ViewVC Help
Powered by ViewVC 1.1.22