/[MITgcm]/MITgcm/model/src/packages_init_variables.F
ViewVC logotype

Diff of /MITgcm/model/src/packages_init_variables.F

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

revision 1.35 by mlosch, Thu Sep 2 09:13:49 2004 UTC revision 1.36 by mlosch, Thu Sep 16 09:35:11 2004 UTC
# Line 31  C       |-- PP81_INIT Line 31  C       |-- PP81_INIT
31  C       |  C       |
32  C       |-- MY82_INIT  C       |-- MY82_INIT
33  C       |  C       |
34    C       |-- GGL90_INIT
35    C       |
36  C       |-- SEAICE_INIT  C       |-- SEAICE_INIT
37  C       |  C       |
38  C       |-- OBCS_INIT_VARIABLES  C       |-- OBCS_INIT_VARIABLES
# Line 101  C--   Initialize PP81 vertical mixing sc Line 103  C--   Initialize PP81 vertical mixing sc
103  #endif  #endif
104    
105  #ifdef ALLOW_MY82  #ifdef ALLOW_MY82
106  C--   Initialize KMY82 vertical mixing scheme.  C--   Initialize MY82 vertical mixing scheme.
107        IF (useMY82) THEN        IF (useMY82) THEN
108         CALL MY82_INIT( myThid )         CALL MY82_INIT( myThid )
109        ENDIF        ENDIF
110  #endif  #endif
111    
112    #ifdef ALLOW_GGL90
113    C--   Initialize GGL90 vertical mixing scheme.
114          IF (useGGL90) THEN
115           CALL GGL90_INIT( myThid )
116          ENDIF
117    #endif
118    
119  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
120  C--   Initialize SEAICE model.  C--   Initialize SEAICE model.
121        IF (useSEAICE) CALL SEAICE_INIT( myThid )        IF (useSEAICE) CALL SEAICE_INIT( myThid )
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36
  ViewVC Help
Powered by ViewVC 1.1.22