| File |
Line number |
Procedure |
Code |
|
./pkg/kl10/kl10_calc.F |
83 |
KL10_CALC |
& totPhiHyd(I,J,K,bi,bj),rhot,myThid ) |
|
./pkg/kl10/kl10_calc.F |
98 |
KL10_CALC |
& ,bj),totPhiHyd(I,J,K,bi,bj),rhot,myThid ) |
|
./model/src/diags_phi_hyd.F |
101 |
DIAGS_PHI_HYD |
totPhiHyd(i,j,k,bi,bj) = |
|
./model/src/diags_phi_hyd.F |
113 |
DIAGS_PHI_HYD |
totPhiHyd(i,j,k,bi,bj) = |
|
./model/src/diags_phi_hyd.F |
65 |
DIAGS_PHI_HYD |
totPhiHyd(i,j,k,bi,bj) = phiHydC(i,j) |
|
./model/src/diags_phi_hyd.F |
69 |
DIAGS_PHI_HYD |
phiHydCstR(i,j) = totPhiHyd(i,j,k,bi,bj) |
|
./model/src/diags_phi_hyd.F |
86 |
DIAGS_PHI_HYD |
totPhiHyd(i,j,k,bi,bj) = |
|
./pkg/opps/opps_calc.F |
482 |
OPPS_CALC |
pLoc = rhoConst*( totPhiHyd(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
494 |
OPPS_CALC |
pLoc = rhoConst*( totPhiHyd(i,j,kRef,bi,bj) |
|
./model/src/do_fields_blocking_exchanges.F |
89 |
DO_FIELDS_BLOCKING_EXCHANGES |
& _EXCH_XYZ_RL( totPhiHyd , myThid ) |
|
./model/src/ini_dynvars.F |
81 |
INI_DYNVARS |
totPhiHyd (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_eos.F |
470 |
EOS_CHECK |
totPhiHyd(i,j,k,bi,bj) = 0. |
|
./model/src/ini_pressure.F |
111 |
INI_PRESSURE |
oldPhi(i,j) = totPhiHyd(i,j,k,bi,bj) |
|
./model/src/ini_pressure.F |
124 |
INI_PRESSURE |
& + (totPhiHyd(i,j,k,bi,bj)-oldPhi(i,j))**2 |
|
./model/src/ini_pressure.F |
74 |
INI_PRESSURE |
totPhiHyd(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/pressure_for_eos.F |
60 |
PRESSURE_FOR_EOS |
& totPhiHyd(i,j,k,bi,bj) |
|
./model/src/pressure_for_eos.F |
78 |
PRESSURE_FOR_EOS |
& totPhiHyd(i,j,k,bi,bj) |
|
./model/src/read_pickup.F |
242 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, totPhiHyd,1,myIter,myThid ) |
|
./model/src/read_pickup.F |
390 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'PhiHyd ', totPhiHyd, |
|
./model/src/read_pickup.F |
502 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'phiHyd',totPhiHyd,myThid) |
|
./model/src/read_pickup.F |
539 |
READ_PICKUP |
& CALL EXCH_3D_RL( totPhiHyd, Nr, myThid ) |
|
./model/src/write_pickup.F |
265 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr,totPhiHyd,-j,myIter, myThid ) |
|
./model/src/write_pickup.F |
399 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'phiHyd', totPhiHyd, myThid) |
|
./model/src/write_state.F |
141 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL('PH.',suff,totPhiHydv,myIter,myThid) |
|
./model/src/write_state.F |
152 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL('PH.',suff,totPhiHyd,myIter,myThid) |
|
./model/src/write_state.F |
204 |
WRITE_STATE |
& totPhiHyd, myThid) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
117 |
ATM_PHYS_DYN2PHYS |
& + totPhiHyd(1:sNx,1:sNy,kc,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
152 |
ATM_PHYS_DYN2PHYS |
& + ( totPhiHyd(1:sNx,1:sNy,kp,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
153 |
ATM_PHYS_DYN2PHYS |
& +totPhiHyd(1:sNx,1:sNy,kc,bi,bj) )*0.5 |
|
./pkg/autodiff/autodiff_restore.F |
152 |
AUTODIFF_RESTORE |
totPhiHyd(I,J,K,bi,bj)= StoreDynVars3D(I,J,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_store.F |
162 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,10) = totPhiHyd(I,J,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
299 |
DIAGNOSTICS_FILL_STATE |
& *0.5 _d 0*(totPhiHyd(i,j,k,bi,bj)+totPhiHyd(i-1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
315 |
DIAGNOSTICS_FILL_STATE |
& *0.5 _d 0*(totPhiHyd(i,j,k,bi,bj)+totPhiHyd(i,j-1,k,bi,bj)) |
|
./pkg/ecco/cost_averagesfields.F |
624 |
COST_AVERAGESFIELDS |
prmm = totPhiHyd(i,j,k,bi,bj)/gravity |
|
./pkg/ecco/cost_averagesfields.F |
629 |
COST_AVERAGESFIELDS |
& totPhiHyd(i,j,k,bi,bj) |
|
./model/inc/DYNVARS.h |
111 |
NO PROCEDURE |
& phiHydLow, totPhiHyd, |
|
./model/inc/DYNVARS.h |
115 |
NO PROCEDURE |
_RL totPhiHyd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |