83 |
_RL dRlocM,dRlocP, ddRloc, locAlpha |
_RL dRlocM,dRlocP, ddRloc, locAlpha |
84 |
_RL ddPIm, ddPIp, rec_dRm, rec_dRp |
_RL ddPIm, ddPIp, rec_dRm, rec_dRp |
85 |
_RL surfPhiFac |
_RL surfPhiFac |
|
INTEGER iMnLoc,jMnLoc |
|
86 |
PARAMETER ( zero= 0. _d 0 , one= 1. _d 0 , half= .5 _d 0 ) |
PARAMETER ( zero= 0. _d 0 , one= 1. _d 0 , half= .5 _d 0 ) |
87 |
LOGICAL useDiagPhiRlow, addSurfPhiAnom |
LOGICAL useDiagPhiRlow, addSurfPhiAnom |
88 |
CEOP |
CEOP |
487 |
I myTime, myIter, myThid) |
I myTime, myIter, myThid) |
488 |
|
|
489 |
IF (momPressureForcing) THEN |
IF (momPressureForcing) THEN |
|
iMnLoc = MAX(1-Olx+1,iMin) |
|
|
jMnLoc = MAX(1-Oly+1,jMin) |
|
490 |
CALL CALC_GRAD_PHI_HYD( |
CALL CALC_GRAD_PHI_HYD( |
491 |
I k, bi, bj, iMnLoc,iMax, jMnLoc,jMax, |
I k, bi, bj, iMin,iMax, jMin,jMax, |
492 |
I phiHydC, alphaRho, tFld, sFld, |
I phiHydC, alphaRho, tFld, sFld, |
493 |
O dPhiHydX, dPhiHydY, |
O dPhiHydX, dPhiHydY, |
494 |
I myTime, myIter, myThid) |
I myTime, myIter, myThid) |