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

Diff of /MITgcm_contrib/rpa_layers/modsrc/packages_init_variables.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 80  C       |-- RBCS_INIT_VARIA Line 80  C       |-- RBCS_INIT_VARIA
80  C       |  C       |
81  C       |-- REGRID_INIT_VARIA  C       |-- REGRID_INIT_VARIA
82  C       |  C       |
83    C       |-- LAYERS_INIT_VARIA
84    C       |
85  C       |-- SALT_PLUME_INIT_VARIA  C       |-- SALT_PLUME_INIT_VARIA
86  C       |  C       |
87  C       |-- CHEAPAML_INIT_VARIA  C       |-- CHEAPAML_INIT_VARIA
88  C       |  C       |
89  C       |-- MYPACKAGE_INIT_VARIA  C       |-- MYPACKAGE_INIT_VARIA
 C       |  
 C       |-- LAYERS_INIT_VARIA  
90    
91  C     !USES:  C     !USES:
92        IMPLICIT NONE        IMPLICIT NONE
# Line 392  C Initialize FIZHI state variables Line 392  C Initialize FIZHI state variables
392        ENDIF        ENDIF
393  #endif /* ALLOW_REGRID */  #endif /* ALLOW_REGRID */
394    
395    #ifdef ALLOW_LAYERS
396          IF ( useLayers ) CALL LAYERS_INIT_VARIA( myThid )
397    #endif /* ALLOW_LAYERS */
398    
399  #ifdef ALLOW_SALT_PLUME  #ifdef ALLOW_SALT_PLUME
400        IF ( useSALT_PLUME ) THEN        IF ( useSALT_PLUME ) THEN
401          CALL SALT_PLUME_INIT_VARIA( myThid )          CALL SALT_PLUME_INIT_VARIA( myThid )
# Line 410  C Initialize FIZHI state variables Line 414  C Initialize FIZHI state variables
414        ENDIF        ENDIF
415  #endif /* ALLOW_MYPACKAGE */  #endif /* ALLOW_MYPACKAGE */
416    
 C- added by RPA  
 #ifdef ALLOW_LAYERS  
       IF ( useLayers ) CALL LAYERS_INIT_VARIA( myThid )  
 #endif /* ALLOW_LAYERS */  
   
417  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
418        IF (debugMode)        IF (debugMode)
419       &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)       &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.22