8 |
C !INTERFACE: |
C !INTERFACE: |
9 |
SUBROUTINE CALC_GS( |
SUBROUTINE CALC_GS( |
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 KappaRS, |
I KappaRS, |
13 |
U fVerS, |
U fVerS, |
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 KappaRS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
_RL KappaRS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
75 |
INTEGER k,kUp,kDown,kM1 |
INTEGER k,kUp,kDown,kM1 |
92 |
calcAdvection = saltAdvection .AND. .NOT.saltMultiDimAdvec |
calcAdvection = saltAdvection .AND. .NOT.saltMultiDimAdvec |
93 |
CALL GAD_CALC_RHS( |
CALL GAD_CALC_RHS( |
94 |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
95 |
I xA,yA,uTrans,vTrans,rTrans,maskUp, |
I xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp, |
96 |
|
I uVel, vVel, wVel, |
97 |
I diffKhS, diffK4S, KappaRS, Salt, |
I diffKhS, diffK4S, KappaRS, Salt, |
98 |
I GAD_SALINITY, saltAdvScheme, calcAdvection, |
I GAD_SALINITY, saltAdvScheme, |
99 |
|
I calcAdvection, saltImplVertAdv, |
100 |
U fVerS, gS, |
U fVerS, gS, |
101 |
I myThid ) |
I myThid ) |
102 |
|
|