/[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.1 by adcroft, Wed Apr 5 19:04:14 2000 UTC revision 1.2 by adcroft, Wed Jun 21 19:03:39 2000 UTC
# Line 31  C     == Local variables == Line 31  C     == Local variables ==
31        INTEGER bi,bj,K        INTEGER bi,bj,K
32  #endif  #endif
33    
34    #ifdef ALLOW_GMREDI
35    C--   Initialize GM/Redi parameterization
36          IF (use_GMRedi) CALL GMREDI_INIT( myThid )
37    #endif
38    
39  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
40  C--   Initialize kppmix vertical mixing scheme.  C--   Initialize KPP vertical mixing scheme.
41        CALL KMIXINIT( myThid )        IF (use_KPPmixing) THEN
42        _BARRIER         CALL KPP_INIT( myThid )
43           CALL KPP_OPEN_DIAGS( myThid )
44          ENDIF
45  #endif  #endif
46    
47  C--   Initialise model fields.  C--   Initialise model fields.
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22