/[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.7 by heimbach, Mon May 14 21:46:17 2001 UTC revision 1.8 by cnh, Wed Sep 26 18:09:14 2001 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6    CBOP
7    C     !ROUTINE: CONVECTIVE_ADJUSTMENT
8    C     !INTERFACE:
9        SUBROUTINE CONVECTIVE_ADJUSTMENT(        SUBROUTINE CONVECTIVE_ADJUSTMENT(
10       I       bi, bj, iMin, iMax, jMin, jMax,       I       bi, bj, iMin, iMax, jMin, jMax,
11       I       myTime, myIter, myThid )       I       myTime, myIter, myThid )
12  C     /==========================================================\  C     !DESCRIPTION: \bv
13  C     | SUBROUTINE CONVECTIVE_ADJUSTMENT                         |  C     *==========================================================*
14  C     | o Calls vertical mixing or similar parameterization      |  C     | SUBROUTINE CONVECTIVE_ADJUSTMENT                          
15  C     \==========================================================/  C     | o Driver for vertical mixing or similar parameterization      
16        IMPLICIT NONE  C     *==========================================================*
17    C     \ev
18    
19    C     !USES:
20          IMPLICIT NONE
21  C     == Global data ==  C     == Global data ==
22  #include "SIZE.h"  #include "SIZE.h"
23  #include "EEPARAMS.h"  #include "EEPARAMS.h"
24  #include "PARAMS.h"  #include "PARAMS.h"
25  #include "DYNVARS.h"  #include "DYNVARS.h"
26  #include "GRID.h"  #include "GRID.h"
   
27  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
28  #include "TIMEAVE_STATV.h"  #include "TIMEAVE_STATV.h"
29  #endif  #endif
   
30  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
31  #include "tamc.h"  #include "tamc.h"
32  #include "tamc_keys.h"  #include "tamc_keys.h"
33  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
   
34        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
35        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
36    
37    C     !INPUT/OUTPUT PARAMETERS:
38  C     == Routine arguments ==  C     == Routine arguments ==
39  C     bi,bj,iMin,iMax,jMin,jMax,K - Loop counters  C     bi,bj,iMin,iMax,jMin,jMax,K - Loop counters
40  C     myTime - Current time in simulation  C     myTime - Current time in simulation
# Line 43  C     myThid - Thread number of this ins Line 47  C     myThid - Thread number of this ins
47    
48  #ifdef INCLUDE_CONVECT_CALL  #ifdef INCLUDE_CONVECT_CALL
49    
50    C     !LOCAL VARIABLES:
51  C     == Local variables ==  C     == Local variables ==
52    C     rhoKm1, rhoK :: Density at adjacent levels (common ref. level)
53    C     ConvectCount :: Convection mixing freq. counter.
54        INTEGER i, j, K        INTEGER i, j, K
55        _RL rhoKm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL rhoKm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
56        _RL rhoK  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL rhoK  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
57        _RL ConvectCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL ConvectCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
58    CEOP
59    
60  C--   Check to see if should convect now  C--   Check to see if should convect now
61        IF ( DIFFERENT_MULTIPLE(cAdjFreq,myTime,myTime-deltaTClock) ) THEN        IF ( DIFFERENT_MULTIPLE(cAdjFreq,myTime,myTime-deltaTClock) ) THEN
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22