8 |
C !INTERFACE: |
C !INTERFACE: |
9 |
SUBROUTINE CALC_GT( |
SUBROUTINE CALC_GT( |
10 |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
11 |
I xA,yA,uTrans,vTrans,rTrans,maskUp, |
I xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp, |
12 |
I KappaRT, |
I KappaRT, |
13 |
U fVerT, |
U fVerT, |
14 |
I myTime,myIter,myThid ) |
I myTime,myIter,myThid ) |
58 |
C yA :: Tracer cell face area normal to X |
C yA :: Tracer cell face area normal to X |
59 |
C uTrans :: Zonal volume transport through cell face |
C uTrans :: Zonal volume transport through cell face |
60 |
C vTrans :: Meridional volume transport through cell face |
C vTrans :: Meridional volume transport through cell face |
61 |
C rTrans :: Vertical volume transport through cell face |
C rTrans :: Vertical volume transport at interface k |
62 |
|
C rTransKp1 :: Vertical volume transport at inteface k+1 |
63 |
C bi, bj, iMin, iMax, jMin, jMax :: Range of points for which calculation |
C bi, bj, iMin, iMax, jMin, jMax :: Range of points for which calculation |
64 |
C results will be set. |
C results will be set. |
65 |
C myThid :: Instance number for this innvocation of CALC_GT |
C myThid :: Instance number for this innvocation of CALC_GT |
69 |
_RL uTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RL uTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
70 |
_RL vTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RL vTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
71 |
_RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
72 |
|
_RL rTransKp1(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
73 |
_RS maskUp(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RS maskUp(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
74 |
_RL KappaRT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
_RL KappaRT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
75 |
INTEGER k,kUp,kDown,kM1 |
INTEGER k,kUp,kDown,kM1 |
91 |
calcAdvection = tempAdvection .AND. .NOT.tempMultiDimAdvec |
calcAdvection = tempAdvection .AND. .NOT.tempMultiDimAdvec |
92 |
CALL GAD_CALC_RHS( |
CALL GAD_CALC_RHS( |
93 |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
94 |
I xA,yA,uTrans,vTrans,rTrans,maskUp, |
I xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp, |
95 |
|
I uVel, vVel, wVel, |
96 |
I diffKhT, diffK4T, KappaRT, theta, |
I diffKhT, diffK4T, KappaRT, theta, |
97 |
I GAD_TEMPERATURE, tempAdvScheme, calcAdvection, |
I GAD_TEMPERATURE, tempAdvScheme, |
98 |
|
I calcAdvection, tempImplVertAdv, |
99 |
U fVerT, gT, |
U fVerT, gT, |
100 |
I myThid ) |
I myThid ) |
101 |
|
|