/[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.19 by edhill, Thu Oct 9 04:19:18 2003 UTC revision 1.20 by jmc, Wed Dec 17 05:24:16 2003 UTC
# Line 94  C-      Initialisation of Convection Cou Line 94  C-      Initialisation of Convection Cou
94       &                      + act4*max1*max2*max3       &                      + act4*max1*max2*max3
95  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
96    
 #ifdef  ALLOW_KPP  
 C--       CONVECT not needed with KPP mixing  
         IF (  
      &      (.NOT.useKPP)  
      &     ) THEN  
 #endif  /* ALLOW_KPP */  
   
97           IF ( buoyancyRelation .eq. 'OCEANIC' ) THEN           IF ( buoyancyRelation .eq. 'OCEANIC' ) THEN
98            kTop    =  2            kTop    =  2
99            kBottom = Nr            kBottom = Nr
# Line 202  ceh3 needs an IF ( useTIMEAVE ) THEN Line 195  ceh3 needs an IF ( useTIMEAVE ) THEN
195            ENDIF            ENDIF
196  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
197    
 #ifdef  ALLOW_KPP  
 C--     End IF (.NOT.useKPP)  
         ENDIF  
 #endif  /* ALLOW_KPP */  
   
198  C--   End IF (DIFFERENT_MULTIPLE)  C--   End IF (DIFFERENT_MULTIPLE)
199        ENDIF        ENDIF
200    
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22