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

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

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

revision 1.11 by adcroft, Mon Mar 4 17:26:40 2002 UTC revision 1.13 by heimbach, Thu May 30 22:48:33 2002 UTC
# Line 24  C     == Global data == Line 24  C     == Global data ==
24  #include "PARAMS.h"  #include "PARAMS.h"
25  #include "DYNVARS.h"  #include "DYNVARS.h"
26  #include "GRID.h"  #include "GRID.h"
27    #ifdef ALLOW_PASSIVE_TRACER
28    #include "TR1.h"
29    #endif
30  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
31  #include "TIMEAVE_STATV.h"  #include "TIMEAVE_STATV.h"
32  #endif  #endif
# Line 85  C-      Initialisation of Convection Cou Line 88  C-      Initialisation of Convection Cou
88  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
89    
90  #ifdef  ALLOW_KPP  #ifdef  ALLOW_KPP
91    C--       CONVECT not needed with KPP mixing
92          IF (          IF (
93       &      (.NOT.useKPP) ! CONVECT not needed with KPP mixing       &      (.NOT.useKPP)
94       &     ) THEN       &     ) THEN
95  #endif  /* ALLOW_KPP */  #endif  /* ALLOW_KPP */
96    
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22