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

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

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

revision 1.3 by cnh, Wed Sep 26 18:09:14 2001 UTC revision 1.4 by adcroft, Wed Feb 27 16:59:32 2002 UTC
# Line 59  C     ConvectCount :: Convection freq. c Line 59  C     ConvectCount :: Convection freq. c
59        INTEGER i, j, K        INTEGER i, j, K
60        _RL rhoKm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL rhoKm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
61        _RL rhoK  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL rhoK  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
62          _RL weightA(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
63          _RL weightB(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
64        _RL ConvectCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL ConvectCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
65  CEOP  CEOP
66    
# Line 134  CADJ STORE rhoKm1(:,:)  = tapelev_ini_bi Line 136  CADJ STORE rhoKm1(:,:)  = tapelev_ini_bi
136  CADJ STORE rhoK  (:,:)  = tapelev_ini_bibj_k, key=kkey, byte=isbyte  CADJ STORE rhoK  (:,:)  = tapelev_ini_bibj_k, key=kkey, byte=isbyte
137  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
138  C-          Check static stability with layer below and mix as needed.  C-          Check static stability with layer below and mix as needed.
139              CALL CONVECT(  c           CALL CONVECT(
140       I           bi,bj,iMin,iMax,jMin,jMax,K,rhoKm1,rhoK,  c    I           bi,bj,iMin,iMax,jMin,jMax,K,rhoKm1,rhoK,
141       U           ConvectCount,  c    U           ConvectCount,
142       I           myTime,myIter,myThid)  c    I           myTime,myIter,myThid)
143    
144    C-          Pre-calculate mixing weights for interface K
145                CALL CONVECTIVE_WEIGHTS(
146         I           bi,bj,K,rhoKm1,rhoK,
147         O           weightA,weightB,ConvectCount,
148         I           myThid)
149    
150    C-          Convectively mix heat across interface K
151                CALL CONVECTIVELY_MIXTRACER(
152         I                              bi,bj,k,weightA,weightB,
153         U                              theta,
154         I                              myThid)
155    
156    C-          Convectively mix salt across interface K
157                CALL CONVECTIVELY_MIXTRACER(
158         I                              bi,bj,k,weightA,weightB,
159         U                              salt,
160         I                              myThid)
161    
162    #ifdef ALLOW_PASSIVE_TRACER
163    C-          Convectively mix passive tracer across interface K
164                CALL CONVECTIVELY_MIXTRACER(
165         I                              bi,bj,k,weightA,weightB,
166         U                              Tr1,
167         I                              myThid)
168    #endif /* ALLOW_PASSIVE_TRACER */
169    
170  C--       End DO K=1,Nr  C--       End DO K=1,Nr
171            ENDDO            ENDDO
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22