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

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

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

revision 1.26 by jmc, Mon Oct 7 16:24:45 2002 UTC revision 1.27 by heimbach, Fri Nov 15 03:01:21 2002 UTC
# Line 96  C--   Set laplace operators for use in 3 Line 96  C--   Set laplace operators for use in 3
96  #endif /* ALLOW_TAMC_CHECKPOINTING */  #endif /* ALLOW_TAMC_CHECKPOINTING */
97        _BARRIER        _BARRIER
98    
99    c--   Initialise surface fluxes
100    #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
101          CALL EXF_INIT( mythid )
102    #else
103          CALL INI_FORCING( mythid )
104    #endif
105    
106  C--   Initialise 3-dim. diffusivities  C--   Initialise 3-dim. diffusivities
107        CALL INI_MIXING( myThid )        CALL INI_MIXING( myThid )
108        _BARRIER        _BARRIER
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22