360 |
|
|
361 |
C-- Integrate hydrostatic balance for phiHyd with BC of |
C-- Integrate hydrostatic balance for phiHyd with BC of |
362 |
C phiHyd(z=0)=0 |
C phiHyd(z=0)=0 |
363 |
C distinguishe between Stagger and Non Stagger time stepping |
CALL CALC_PHI_HYD( |
|
IF (staggerTimeStep) THEN |
|
|
CALL CALC_PHI_HYD( |
|
|
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
|
I gT, gS, |
|
|
U phiHydF, |
|
|
O phiHydC, dPhiHydX, dPhiHydY, |
|
|
I myTime, myIter, myThid ) |
|
|
ELSE |
|
|
CALL CALC_PHI_HYD( |
|
364 |
I bi,bj,iMin,iMax,jMin,jMax,k, |
I bi,bj,iMin,iMax,jMin,jMax,k, |
365 |
I theta, salt, |
I theta, salt, |
366 |
U phiHydF, |
U phiHydF, |
367 |
O phiHydC, dPhiHydX, dPhiHydY, |
O phiHydC, dPhiHydX, dPhiHydY, |
368 |
I myTime, myIter, myThid ) |
I myTime, myIter, myThid ) |
|
ENDIF |
|
369 |
|
|
370 |
C-- Calculate accelerations in the momentum equations (gU, gV, ...) |
C-- Calculate accelerations in the momentum equations (gU, gV, ...) |
371 |
C and step forward storing the result in gU, gV, etc... |
C and step forward storing the result in gU, gV, etc... |