238 |
I myThid) |
I myThid) |
239 |
|
|
240 |
C-- Calculate accelerations in the momentum equations |
C-- Calculate accelerations in the momentum equations |
241 |
CALL CALC_MOM_RHS( |
IF ( momStepping ) THEN |
242 |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
CALL CALC_MOM_RHS( |
243 |
I xA,yA,uTrans,vTrans,wTrans,maskC, |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
244 |
I pH, |
I xA,yA,uTrans,vTrans,wTrans,maskC, |
245 |
U aTerm,xTerm,cTerm,mTerm,pTerm, |
I pH, |
246 |
U fZon, fMer, fVerU, fVerV, |
U aTerm,xTerm,cTerm,mTerm,pTerm, |
247 |
I myThid) |
U fZon, fMer, fVerU, fVerV, |
248 |
|
I myThid) |
249 |
|
ENDIF |
250 |
|
|
251 |
C-- Calculate active tracer tendencies |
C-- Calculate active tracer tendencies |
252 |
CALL CALC_GT( |
IF ( tempStepping ) THEN |
253 |
I bi,bj,iMin,iMax,jMin,jMax, k,kM1,kUp,kDown, |
CALL CALC_GT( |
254 |
I xA,yA,uTrans,vTrans,wTrans,maskUp, |
I bi,bj,iMin,iMax,jMin,jMax, k,kM1,kUp,kDown, |
255 |
I K13,K23,K33,KapGM, |
I xA,yA,uTrans,vTrans,wTrans,maskUp, |
256 |
U aTerm,xTerm,fZon,fMer,fVerT, |
I K13,K23,K33,KapGM, |
257 |
I myThid) |
U aTerm,xTerm,fZon,fMer,fVerT, |
258 |
|
I myThid) |
259 |
|
ENDIF |
260 |
Cdbg CALL CALC_GS( |
Cdbg CALL CALC_GS( |
261 |
Cdbg I bi,bj,iMin,iMax,jMin,jMax, k,kM1,kUp,kDown, |
Cdbg I bi,bj,iMin,iMax,jMin,jMax, k,kM1,kUp,kDown, |
262 |
Cdbg I xA,yA,uTrans,vTrans,wTrans,maskUp, |
Cdbg I xA,yA,uTrans,vTrans,wTrans,maskUp, |