/[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.30 by jmc, Mon Dec 15 02:07:29 2003 UTC revision 1.33 by heimbach, Fri May 14 21:08:28 2004 UTC
# Line 123  c--   Map the control variables onto the Line 123  c--   Map the control variables onto the
123    
124  #ifdef ALLOW_EXF  #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 151  C--   Open boundaries data Line 156  C--   Open boundaries data
156        IF ( useCoupler ) CALL CPL_INI_VARS( mythid )        IF ( useCoupler ) CALL CPL_INI_VARS( mythid )
157  #endif  #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.30  
changed lines
  Added in v.1.33
  ViewVC Help
Powered by ViewVC 1.1.22