97 |
C | |
C | |
98 |
C |-- CALC_PHI_HYD |
C |-- CALC_PHI_HYD |
99 |
C | |
C | |
100 |
|
C |-- STORE_PRESSURE |
101 |
|
C | |
102 |
C |-- MOM_FLUXFORM |
C |-- MOM_FLUXFORM |
103 |
C | |
C | |
104 |
C |-- MOM_VECINV |
C |-- MOM_VECINV |
348 |
I myThid ) |
I myThid ) |
349 |
ENDIF |
ENDIF |
350 |
|
|
351 |
|
C calculate pressure from phiHyd and store it on common block |
352 |
|
C variable pressure |
353 |
|
CALL STORE_PRESSURE( bi, bj, k, phiHyd, myThid ) |
354 |
|
|
355 |
|
|
356 |
C-- Calculate accelerations in the momentum equations (gU, gV, ...) |
C-- Calculate accelerations in the momentum equations (gU, gV, ...) |
357 |
C and step forward storing the result in gUnm1, gVnm1, etc... |
C and step forward storing the result in gUnm1, gVnm1, etc... |
358 |
IF ( momStepping ) THEN |
IF ( momStepping ) THEN |