/[MITgcm]/MITgcm_contrib/rpa_layers/modsrc/packages_init_fixed.F
ViewVC logotype

Diff of /MITgcm_contrib/rpa_layers/modsrc/packages_init_fixed.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by rpa, Tue Sep 15 19:46:38 2009 UTC revision 1.2 by jmc, Wed Sep 16 18:06:39 2009 UTC
# Line 86  C       |-- ATM2D_INIT_FIXED Line 86  C       |-- ATM2D_INIT_FIXED
86  C       |  C       |
87  C       |-- REGRID_INIT_FIXED  C       |-- REGRID_INIT_FIXED
88  C       |  C       |
89    C       |-- LAYERS_INIT_FIXED
90    C       |
91  C       |-- SALT_PLUME_INIT_FIXED  C       |-- SALT_PLUME_INIT_FIXED
92  C       |  C       |
93  C       |-- MYPACKAGE_INIT_FIXED  C       |-- MYPACKAGE_INIT_FIXED
94  C       |  C       |
 C       |-- LAYERS_INIT_FIXED  
 C       |  
95  C       |-- DIAGNOSTICS_INIT_FIXED  C       |-- DIAGNOSTICS_INIT_FIXED
96    
97    
# Line 310  C--   Initialise fixed array for Float p Line 310  C--   Initialise fixed array for Float p
310        IF ( useREGRID ) CALL REGRID_INIT_FIXED( myThid )        IF ( useREGRID ) CALL REGRID_INIT_FIXED( myThid )
311  #endif  #endif
312    
313    #ifdef ALLOW_LAYERS
314          IF ( useLayers ) CALL LAYERS_INIT_FIXED( myThid )
315    #endif /* ALLOW_LAYERS */
316    
317  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
318        IF ( useCoupler ) CALL CPL_INIT_FIXED( myThid )        IF ( useCoupler ) CALL CPL_INIT_FIXED( myThid )
319  #endif  #endif
# Line 326  C--   Initialise fixed array for Float p Line 330  C--   Initialise fixed array for Float p
330        IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(myThid)        IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(myThid)
331  #endif  #endif
332    
 C- added by RPA  
 #ifdef ALLOW_LAYERS  
       IF ( useLayers ) CALL LAYERS_INIT_FIXED( myThid )  
 #endif /* ALLOW_LAYERS */  
   
333  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
334  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
335        IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )        IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22