77 |
#include "CD_CODE_VARS.h" |
#include "CD_CODE_VARS.h" |
78 |
#endif |
#endif |
79 |
#include "GRID.h" |
#include "GRID.h" |
|
#ifdef ALLOW_PASSIVE_TRACER |
|
|
#include "TR1.h" |
|
|
#endif |
|
80 |
#ifdef ALLOW_AUTODIFF_TAMC |
#ifdef ALLOW_AUTODIFF_TAMC |
81 |
# include "tamc.h" |
# include "tamc.h" |
82 |
# include "tamc_keys.h" |
# include "tamc_keys.h" |
345 |
c |
c |
346 |
CADJ STORE totphihyd (:,:,k,bi,bj) |
CADJ STORE totphihyd (:,:,k,bi,bj) |
347 |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
|
CADJ STORE gt (:,:,k,bi,bj) |
|
|
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
|
|
CADJ STORE gs (:,:,k,bi,bj) |
|
|
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
|
348 |
CADJ STORE theta (:,:,k,bi,bj) |
CADJ STORE theta (:,:,k,bi,bj) |
349 |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
350 |
CADJ STORE salt (:,:,k,bi,bj) |
CADJ STORE salt (:,:,k,bi,bj) |
353 |
|
|
354 |
C-- Integrate hydrostatic balance for phiHyd with BC of |
C-- Integrate hydrostatic balance for phiHyd with BC of |
355 |
C phiHyd(z=0)=0 |
C phiHyd(z=0)=0 |
356 |
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( |
|
357 |
I bi,bj,iMin,iMax,jMin,jMax,k, |
I bi,bj,iMin,iMax,jMin,jMax,k, |
358 |
I theta, salt, |
I theta, salt, |
359 |
U phiHydF, |
U phiHydF, |
360 |
O phiHydC, dPhiHydX, dPhiHydY, |
O phiHydC, dPhiHydX, dPhiHydY, |
361 |
I myTime, myIter, myThid ) |
I myTime, myIter, myThid ) |
|
ENDIF |
|
362 |
|
|
363 |
C-- Calculate accelerations in the momentum equations (gU, gV, ...) |
C-- Calculate accelerations in the momentum equations (gU, gV, ...) |
364 |
C and step forward storing the result in gU, gV, etc... |
C and step forward storing the result in gU, gV, etc... |