/[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.55 by heimbach, Sun Oct 22 01:11:44 2006 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 259  C     IF (useDIC) Line 261  C     IF (useDIC)
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  #ifdef ALLOW_SHELFICE
269        IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )        IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )
270  #endif /* ALLOW_SHELFICE */  #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  #ifdef ALLOW_MYPACKAGE
281        IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(mythid)        IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(mythid)
282  #endif  #endif
# Line 271  C     IF (useDIC) Line 285  C     IF (useDIC)
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  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
294        IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )        IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )
295  #endif  #endif
296    
 #ifdef ALLOW_EMBED_FILES  
       IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( mythid )  
 #endif  
   
 #ifdef ALLOW_REGRID  
       IF ( useREGRID ) CALL REGRID_INIT_FIXED( mythid )  
 #endif  
   
297        RETURN        RETURN
298        END        END
Legend:
Removed from v.1.52  
changed lines
  Added in v.1.55
  ViewVC Help
Powered by ViewVC 1.1.22