/[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.61 by dimitri, Wed Nov 28 09:26:16 2007 UTC revision 1.62 by jmc, Sun Apr 6 20:53:22 2008 UTC
# Line 66  C       |-- PTRACERS_INIT_FIXED Line 66  C       |-- PTRACERS_INIT_FIXED
66  C       |  C       |
67  C       |-- GCHEM_INIT_FIXED  C       |-- GCHEM_INIT_FIXED
68  C       |  C       |
 C       |-- DIC_INIT_FIXED  
 C       |  
69  C       |-- THSICE_INIT_FIXED  C       |-- THSICE_INIT_FIXED
70  C       |  C       |
71  C       |-- SHELFICE_INIT_FIXED  C       |-- SHELFICE_INIT_FIXED
# Line 125  C--   Initialize fixed params for Moment Line 123  C--   Initialize fixed params for Moment
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)
127        ENDIF        ENDIF
128  #endif  #endif
129    
# Line 200  C AMM Line 198  C AMM
198  #ifdef ALLOW_GRIDALT  #ifdef ALLOW_GRIDALT
199  C--   Initialise GRIDALT parameters - the alternative grid  C--   Initialise GRIDALT parameters - the alternative grid
200        IF (useGRIDALT) then        IF (useGRIDALT) then
201         CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)         CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',myThid)
202         CALL GRIDALT_INITIALISE( myThid )         CALL GRIDALT_INITIALISE( myThid )
203         CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)         CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',myThid)
204        ENDIF        ENDIF
205    
206  #endif  #endif
# Line 253  C--   Initialise ADMTLM Line 251  C--   Initialise ADMTLM
251  #endif  #endif
252    
253  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
254        IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)        IF (useGCHEM) CALL GCHEM_INIT_FIXED(myThid)
 #endif  
   
 #ifdef ALLOW_DIC  
 C     IF (useDIC)  
       CALL DIC_INIT_FIXED(mythid)  
255  #endif  #endif
256    
257  #ifdef ALLOW_RBCS  #ifdef ALLOW_RBCS
258        IF (useRBCS) CALL RBCS_INIT_FIXED(mythid)        IF (useRBCS) CALL RBCS_INIT_FIXED(myThid)
259  #endif  #endif
260    
261  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
262        IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)        IF (useThSIce) CALL THSICE_INIT_FIXED(myThid)
263  #endif  #endif
264    
265  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
266        IF (useSEAICE) CALL SEAICE_INIT_FIXED(mythid)        IF (useSEAICE) CALL SEAICE_INIT_FIXED(myThid)
267  #endif  #endif
268    
269  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
# Line 278  C     IF (useDIC) Line 271  C     IF (useDIC)
271  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
272    
273  #ifdef ALLOW_EMBED_FILES  #ifdef ALLOW_EMBED_FILES
274        IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( mythid )        IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( myThid )
275  #endif  #endif
276    
277  #ifdef ALLOW_REGRID  #ifdef ALLOW_REGRID
278        IF ( useREGRID ) CALL REGRID_INIT_FIXED( mythid )        IF ( useREGRID ) CALL REGRID_INIT_FIXED( myThid )
279  #endif  #endif
280    
281  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_MYPACKAGE
282        IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(mythid)        IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(myThid)
283  #endif  #endif
284    
285  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
286        IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )        IF ( useCoupler ) CALL CPL_INIT_FIXED( myThid )
287  #endif  #endif
288    
289  #ifdef ALLOW_ATM2D  #ifdef ALLOW_ATM2D
# Line 298  C     IF (useDIC) Line 291  C     IF (useDIC)
291  #endif  #endif
292    
293  #ifdef ALLOW_SALT_PLUME  #ifdef ALLOW_SALT_PLUME
294        IF (useSALT_PLUME) CALL SALT_PLUME_INIT_FIXED(mythid)        IF (useSALT_PLUME) CALL SALT_PLUME_INIT_FIXED(myThid)
295  #endif  #endif
296    
297  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
Legend:
Removed from v.1.61  
changed lines
  Added in v.1.62
  ViewVC Help
Powered by ViewVC 1.1.22