/[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.26 by heimbach, Mon Oct 27 22:32:55 2003 UTC revision 1.33 by heimbach, Fri May 14 21:08:28 2004 UTC
# Line 19  C     \ev Line 19  C     \ev
19  C     !CALLING SEQUENCE:  C     !CALLING SEQUENCE:
20  C     PACKAGES_INIT_VARIABLES  C     PACKAGES_INIT_VARIABLES
21  C       |  C       |
22    C       |-- CD_CODE_INI_VARS
23    C       |
24  C       |-- GMREDI_INIT  C       |-- GMREDI_INIT
25  C       |  C       |
26  C       |-- KPP_INIT  C       |-- KPP_INIT
# Line 44  C       |-- COST_INIT Line 46  C       |-- COST_INIT
46  C       |  C       |
47  C       |-- BULKF_INIT  C       |-- BULKF_INIT
48  C       |  C       |
49  C       |-- ICE_INIT  C       |-- THSICE_INI_VARS
50    C       |
51    C       |-- CPL_INI_VARS
52    
53  C     !USES:  C     !USES:
54        IMPLICIT NONE        IMPLICIT NONE
# Line 59  C     myThid -  Number of this instances Line 63  C     myThid -  Number of this instances
63        INTEGER myThid        INTEGER myThid
64  CEOP  CEOP
65    
66    #ifdef ALLOW_CD_CODE
67    C--   Initialize CD_CODE variables:
68    C- note(jmc): before packaging CD_CODE, was done within ini_fields (=called before),
69    C             therefore call CD-ini-vars before others pkg.
70          IF (useCDscheme) CALL CD_CODE_INI_VARS( myThid )
71    #endif
72    
73  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
74  C--   Initialize GM/Redi parameterization  C--   Initialize GM/Redi parameterization
75        IF (useGMRedi) CALL GMREDI_INIT( myThid )        IF (useGMRedi) CALL GMREDI_INIT( myThid )
# Line 110  c--   Map the control variables onto the Line 121  c--   Map the control variables onto the
121        _BARRIER        _BARRIER
122  #endif  #endif
123    
124  #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE  #ifdef ALLOW_EXF
125        CALL EXF_INIT( mythid )        CALL EXF_INIT( mythid )
126  #else  cph#else
127    #endif
128        CALL INI_FORCING( mythid )        CALL INI_FORCING( mythid )
129    cph#endif
130    
131    #ifdef ALLOW_EBM
132          IF (useEBM) CALL EBM_INI_VARS( mythid )
133  #endif  #endif
134    
135  #ifdef ALLOW_COST  #ifdef ALLOW_COST
# Line 128  C--   Open boundaries data Line 144  C--   Open boundaries data
144        IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )        IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )
145  #endif  #endif
146    
 cswdblk -- begin add ---  
147  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
148        IF (useBulkForce) call BULKF_INIT( mythid)        IF (useBulkForce) CALL BULKF_INIT( mythid)
149  #endif  #endif
 cswdblk ---end add ---  
150    
151  cswdice ---begin add ---  #ifdef ALLOW_THSICE
152  #ifdef ALLOW_THERM_SEAICE        IF (useThSIce) CALL THSICE_INI_VARS( mythid)
       IF (useThermSeaIce) call ICE_INIT( mythid)  
153  #endif  #endif
 cswdice ---end add ---  
154    
155    #ifdef COMPONENT_MODULE
156          IF ( useCoupler ) CALL CPL_INI_VARS( mythid )
157    #endif
158    
159    C AMM
160    #ifdef ALLOW_FIZHI
161    C Initialize FIZHI state variables
162          IF (useFIZHI) CALL FIZHI_INIT_VARS( mythid)
163    #endif
164    C AMM
165    
166        RETURN        RETURN
167        END        END
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.33
  ViewVC Help
Powered by ViewVC 1.1.22