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

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

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

revision 1.61 by edhill, Thu Oct 23 04:41:40 2003 UTC revision 1.62 by dimitri, Thu Oct 23 07:14:49 2003 UTC
# Line 174  C    | | | |-FIND_RHO  :: Find adjacent Line 174  C    | | | |-FIND_RHO  :: Find adjacent
174  C    | | | |-CONVECT   :: Mix static instability.  C    | | | |-CONVECT   :: Mix static instability.
175  C    | | | |-TIMEAVE_CUMULATE :: Update convection statistics.  C    | | | |-TIMEAVE_CUMULATE :: Update convection statistics.
176  C    | | |  C    | | |
177  C    | | |-PACKAGES_INIT_VARIABLES :: Does initialisation of time evolving  C    | | |-PACKAGES_INIT_VARIABLES:: Does initialisation of time evolving
178  C    | | | |                       :: package data.  C    | | | |                         package data.
179  C    | | | |  C    | | | |
180  C    | | | |-GMREDI_INIT          :: GM package. ( see pkg/gmredi )  C    | | | |-GMREDI_INIT          :: GM package ( see pkg/gmredi ).
181  C    | | | |-KPP_INIT             :: KPP package. ( see pkg/kpp )  C    | | | |-KPP_INIT             :: KPP package ( see pkg/kpp ).
182  C    | | | |-KPP_OPEN_DIAGS      C    | | | |-KPP_OPEN_DIAGS    
183  C    | | | |-OBCS_INIT_VARIABLES  :: Open bndy. package. ( see pkg/obcs )  C    | | | |-OBCS_INIT_VARIABLES  :: Open bndy. package ( see pkg/obcs ).
184  C    | | | |-PTRACERS_INIT        :: multi. tracer package,(see pkg/ptracers)  C    | | | |-PTRACERS_INIT        :: Multi tracer package ( see pkg/ptracers ).
185  C    | | | |-GCHEM_INIT           : : tracer interface pkg (see pkh/gchem)  C    | | | |-GCHEM_INIT           :: Tracer interface pkg ( see pkh/gchem ).
186  C    | | | |-AIM_INIT             :: Interm. atmos package. ( see pkg/aim )  C    | | | |-AIM_INIT             :: Interm. atmos package ( see pkg/aim ).
187  C    | | | |-CTRL_MAP_INI         :: Control vector package.( see pkg/ctrl )  C    | | | |-CTRL_MAP_INI         :: Control vector package( see pkg/ctrl ).
188  C    | | | |-COST_INIT            :: Cost function package. ( see pkg/cost )  C    | | | |-COST_INIT            :: Cost function package ( see pkg/cost ).
189  C    | | | |-ECCO_INIT            :: ECCO support package. ( see pkg/ecco )  C    | | | |-ECCO_INIT            :: ECCO support package ( see pkg/ecco ).
190  C    | | | |-INI_FORCING          :: Set model initial forcing fields.  C    | | | |-INI_FORCING          :: Set model initial forcing fields.
191  C    | | |   |                    :: Either set in-line or from file as shown.  C    | | |   |                    :: Either set in-line or from file as shown.
192  C    | | |   |-READ_FLD_XY_RS(zonalWindFile)  C    | | |   |-READ_FLD_XY_RS(zonalWindFile)
# Line 214  C====|>| **************************** Line 214  C====|>| ****************************
214  C====|>| BEGIN MAIN TIMESTEPPING LOOP  C====|>| BEGIN MAIN TIMESTEPPING LOOP
215  C====|>| ****************************  C====|>| ****************************
216  C====|>|  C====|>|
217  C/\  | |-FORWARD_STEP     :: Step forward a time-step ( AT LAST !!! )  C/\  | |-FORWARD_STEP             :: Step forward a time-step ( AT LAST !!! ).
218  C/\  | | |  C/\  | | |
219  C/\  | | |-DUMMY_IN_STEPPING :: autodiff package ( pkg/autoduff ).  C/\  | | |-DUMMY_IN_STEPPING      :: Autodiff package ( pkg/autoduff ).
220  C/\  | | |-CALC_EXACT_ETA :: Change SSH to flow divergence.  C/\  | | |-CALC_EXACT_ETA         :: Change SSH to flow divergence.
221  C/\  | | |-CALC_SURF_DR   :: Calculate the new surface level thickness.  C/\  | | |-CALC_SURF_DR           :: Calculate the new surface level thickness.
222  C/\  | | |-EXF_GETFORCING :: External forcing package. ( pkg/exf )  C/\  | | |-EXF_GETFORCING         :: External forcing package ( pkg/exf ).
223  C/\  | | |-EXTERNAL_FIELDS_LOAD :: Control loading time dep. external data.  C/\  | | |-EXTERNAL_FIELDS_LOAD   :: Control loading time dep. external data.
224  C/\  | | | |                    :: Simple interpolcation between end-points  C/\  | | | |                         Simple interpolcation between end-points
225  C/\  | | | |                    :: for forcing datasets.  C/\  | | | |                         for forcing datasets.
226  C/\  | | | |                    C/\  | | | |-EXCH                 :: Sync forcing in overlap regions.
227  C/\  | | | |-EXCH :: Sync forcing. in overlap regions.  C/\  | | |-SEAICE_MODEL           :: Compute sea-ice terms ( pkg/seaice ).
228  C/\  | | |-SEAICE_MODEL   :: Compute sea-ice terms. ( pkg/seaice )  C/\  | | |-FREEZE                 :: Limit surface temperature.
229  C/\  | | |-GCHEM_FIELD_LOAD :: load tracer forcing fields (pkg/gchem)  C/\  | | |-EXTERNAL_FORCING_SURF  :: Accumulates appropriately dimensioned
230    C/\  | | | |                         forcing terms.
231    C/\  | | | |-PTRACERS_FORCING_SURF:: Tracer package ( see pkg/ptracers ).
232    C/\  | | |-GCHEM_FIELD_LOAD       :: Load tracer forcing fields ( pkg/gchem ).
233  C/\  | | |  C/\  | | |
234  C/\  | | |-THERMODYNAMICS :: theta, salt + tracer equations driver.  C/\  | | |-THERMODYNAMICS         :: theta, salt + tracer equations driver.
235  C/\  | | | |  C/\  | | | |
236  C/\  | | | |-INTEGRATE_FOR_W :: Integrate for vertical velocity.  C/\  | | | |-INTEGRATE_FOR_W      :: Integrate for vertical velocity.
237  C/\  | | | |-OBCS_APPLY_W    :: Open bndy. package ( see pkg/obcs ).  C/\  | | | |-OBCS_APPLY_W         :: Open bndy. package ( see pkg/obcs ).
238  C/\  | | | |-FIND_RHO        :: Calculates [rho(S,T,z)-RhoConst] of a slice  C/\  | | | |-FIND_RHO             :: Calculates [rho(S,T,z)-RhoConst] of a slice
239  C/\  | | | |-GRAD_SIGMA      :: Calculate isoneutral gradients  C/\  | | | |-GRAD_SIGMA           :: Calculate isoneutral gradients
240  C/\  | | | |-CALC_IVDC       :: Set Implicit Vertical Diffusivity for Convection  C/\  | | | |-CALC_IVDC            :: Set Implicit Vertical Diffusivity for Convection
241  C/\  | | | |  C/\  | | | |
242  C/\  | | | |-OBCS_CALC            :: Open bndy. package ( see pkg/obcs ).  C/\  | | | |-OBCS_CALC            :: Open bndy. package ( see pkg/obcs ).
 C/\  | | | |-EXTERNAL_FORCING_SURF:: Accumulates appropriately dimensioned  
 C/\  | | | | |                    :: forcing terms.  
 C/\  | | | | |-PTRACERS_FORCING_SURF :: Tracer package ( see pkg/ptracers ).  
243  C/\  | | | |  C/\  | | | |
244  C/\  | | | |-GMREDI_CALC_TENSOR   :: GM package ( see pkg/gmredi ).  C/\  | | | |-GMREDI_CALC_TENSOR   :: GM package ( see pkg/gmredi ).
245  C/\  | | | |-GMREDI_CALC_TENSOR_DUMMY :: GM package ( see pkg/gmredi ).  C/\  | | | |-GMREDI_CALC_TENSOR_DUMMY :: GM package ( see pkg/gmredi ).
# Line 289  C/\  | | | | |-FREESURF_RESCALE_G :: Re- Line 289  C/\  | | | | |-FREESURF_RESCALE_G :: Re-
289  C/\  | | | |  C/\  | | | |
290  C/\  | | | |-TIMESTEP_TRACER      :: Step tracer field forward in time  C/\  | | | |-TIMESTEP_TRACER      :: Step tracer field forward in time
291  C/\  | | | |  C/\  | | | |
292  C/\  | | | |-PTRACERS_INTEGRATE   :: Integrate other tracer(s) ( see pkg/ptracers ).  C/\  | | | |-PTRACERS_INTEGRATE   :: Integrate other tracer(s) ( pkg/ptracers ).
293  C/\  | | | | |  C/\  | | | | |
294  C/\  | | | | |-GAD_CALC_RHS       :: Generalised advection package  C/\  | | | | |-GAD_CALC_RHS       :: Generalised advection package
295  C/\  | | | | | |                  :: ( see pkg/gad )  C/\  | | | | | |                  :: ( see pkg/gad )
# Line 303  C/\  | | | | |-FREESURF_RESCALE_G :: Re- Line 303  C/\  | | | | |-FREESURF_RESCALE_G :: Re-
303  C/\  | | | | |-TIMESTEP_TRACER    :: Step tracer field forward in time  C/\  | | | | |-TIMESTEP_TRACER    :: Step tracer field forward in time
304  C/\  | | | |  C/\  | | | |
305  C/\  | | | |-OBCS_APPLY_TS        :: Open bndy. package (see pkg/obcs ).  C/\  | | | |-OBCS_APPLY_TS        :: Open bndy. package (see pkg/obcs ).
 C/\  | | | |-FREEZE               :: Limit range of temperature.  
306  C/\  | | | |  C/\  | | | |
307  C/\  | | | |-IMPLDIFF             :: Solve vertical implicit diffusion equation.  C/\  | | | |-IMPLDIFF             :: Solve vertical implicit diffusion equation.
308  C/\  | | | |-OBCS_APPLY_TS        :: Open bndy. package (see pkg/obcs ).  C/\  | | | |-OBCS_APPLY_TS        :: Open bndy. package (see pkg/obcs ).
309  C/\  | | | |  C/\  | | | |
310  C/\  | | | |-AIM_AIM2DYN_EXCHANGES :: Inetermed. atmos (see pkg/aim).  C/\  | | | |-AIM_AIM2DYN_EXCHANGES:: Intermediate atmosphere (see pkg/aim).
311  C/\  | | | |-EXCH                 :: Update overlaps  C/\  | | | |-EXCH                 :: Update overlaps
312  C/\  | | |  C/\  | | |
313  C/\  | | |-DYNAMICS       :: Momentum equations driver.  C/\  | | |-DYNAMICS             :: Momentum equations driver.
314  C/\  | | | |  C/\  | | | |
315  C/\  | | | |-CALC_GRAD_PHI_SURF :: Calculate the gradient of the surface  C/\  | | | |-CALC_GRAD_PHI_SURF :: Calculate the gradient of the surface
316  C/\  | | | |                       Potential anomaly.  C/\  | | | |                       Potential anomaly.
Legend:
Removed from v.1.61  
changed lines
  Added in v.1.62
  ViewVC Help
Powered by ViewVC 1.1.22