3 |
#include "CPP_EEOPTIONS.h" |
#include "CPP_EEOPTIONS.h" |
4 |
|
|
5 |
SUBROUTINE CALC_PHI_HYD( bi, bj, iMin, iMax, jMin, jMax, K, |
SUBROUTINE CALC_PHI_HYD( bi, bj, iMin, iMax, jMin, jMax, K, |
6 |
I buoyKM1, buoyKP1k, phiHyd, myThid) |
I buoyKM1, buoyKP1, phiHyd, myThid) |
7 |
C /==========================================================\ |
C /==========================================================\ |
8 |
C | SUBROUTINE CALC_PHI_HYD | |
C | SUBROUTINE CALC_PHI_HYD | |
9 |
C | o Integrate the hydrostatic relation to find phiHyd. | |
C | o Integrate the hydrostatic relation to find phiHyd. | |
20 |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
21 |
_RL buoyKM1(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RL buoyKM1(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
22 |
_RL buoyKP1(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RL buoyKP1(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
23 |
_RL phiHyd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nz) |
_RL phiHyd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
24 |
integer myThid |
integer myThid |
25 |
C == Local variables == |
C == Local variables == |
26 |
INTEGER i,j,Km1 |
INTEGER i,j,Km1 |