| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
825 |
NO PROCEDURE |
& thetaConst, tRef, sRef, pRef4EOS, phiRef, dBdrRef, |
|
./model/inc/PARAMS.h |
933 |
NO PROCEDURE |
_RL tRef(Nr) |
|
./model/src/apply_forcing.F |
532 |
APPLY_FORCING_T |
& *( temp_addMass - tRef(k) ) |
|
./model/src/calc_phi_hyd.F |
443 |
CALC_PHI_HYD |
thetaRef = tRef(k) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
78 |
MOM_QUASIHYDROSTATIC |
scalingFactor = tRef(k)*recip_gravity |
|
./model/src/config_summary.F |
115 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( tRef, Nr, INDEX_K, 'tRef =', |
|
./pkg/obcs/obcs_calc.F |
121 |
OBCS_CALC |
OBEt(j,k,bi,bj)=tRef(k) |
|
./pkg/obcs/obcs_calc.F |
171 |
OBCS_CALC |
OBWt(j,k,bi,bj)=tRef(k) |
|
./pkg/obcs/obcs_calc.F |
205 |
OBCS_CALC |
OBNt(i,k,bi,bj)=tRef(k) |
|
./pkg/obcs/obcs_calc.F |
239 |
OBCS_CALC |
OBSt(i,k,bi,bj)=tRef(k) |
|
./model/src/do_atmospheric_phys.F |
88 |
DO_ATMOSPHERIC_PHYS |
thetaRef = tRef(k) |
|
./model/src/do_oceanic_phys.F |
809 |
DO_OCEANIC_PHYS |
thetaRef = tRef(k) |
|
./model/src/external_forcing.F |
404 |
EXTERNAL_FORCING_T |
& *( temp_addMass - tRef(kLev) ) |
|
./model/src/external_forcing_surf.F |
323 |
EXTERNAL_FORCING_SURF |
& *( tRef(ks) - temp_EvPrRn ) |
|
./model/src/find_rho.F |
100 |
FIND_RHO_2D |
refTemp=tRef(kRef) |
|
./model/src/find_rho.F |
941 |
FIND_RHO_SCALAR |
& -tAlpha*(tLoc-tRef(1)) |
|
./model/src/ini_linear_phisurf.F |
119 |
INI_LINEAR_PHISURF |
I tRef(kSurfC(i,j,bi,bj)), |
|
./model/src/ini_linear_phisurf.F |
126 |
INI_LINEAR_PHISURF |
I tRef(k), sRef(k), pLoc, |
|
./model/src/ini_linear_phisurf.F |
173 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = dPIdp*tRef(kSurfC(i,j,bi,bj)) |
|
./model/src/ini_parms.F |
197 |
INI_PARMS |
& tRef, sRef, tRefFile, sRefFile, rhoRefFile, |
|
./model/src/ini_theta.F |
62 |
INI_THETA |
theta(i,j,k,bi,bj) = tRef(k) |
|
./model/src/ini_theta.F |
99 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./verification/advect_xy/code/ini_theta.F |
59 |
INI_THETA |
theta(i,j,k,bi,bj) = tRef(k) |
|
./verification/advect_xy/code/ini_theta.F |
98 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./verification/dome/code/obcs_calc.F |
112 |
OBCS_CALC |
OBEt(J,K,bi,bj)=tRef(K) |
|
./verification/dome/code/obcs_calc.F |
188 |
OBCS_CALC |
IF (tRef(K).LE. (-dTemp*(1. _d 0 - Fz))) THEN |
|
./verification/dome/code/obcs_calc.F |
189 |
OBCS_CALC |
OBNt(I,K,bi,bj) = tRef(K) |
|
./verification/dome/code/obcs_calc.F |
218 |
OBCS_CALC |
OBSt(I,K,bi,bj)=tRef(K) |
|
./model/src/load_ref_files.F |
54 |
LOAD_REF_FILES |
IF (tRef(k).EQ.UNSET_RL) tRef(k) = tracerDefault |
|
./model/src/load_ref_files.F |
55 |
LOAD_REF_FILES |
tracerDefault = tRef(k) |
|
./model/src/load_ref_files.F |
60 |
LOAD_REF_FILES |
IF (tRef(k).NE.UNSET_RL) THEN |
|
./model/src/load_ref_files.F |
71 |
LOAD_REF_FILES |
CALL READ_GLVEC_RL( tRefFile, ' ', tRef, Nr, 1, myThid ) |
|
./model/src/load_ref_files.F |
77 |
LOAD_REF_FILES |
IF ( thetaConst.EQ.UNSET_RL ) thetaConst = tRef(1) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
104 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
104 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
104 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
104 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./verification/internal_wave/code/obcs_calc.F |
133 |
OBCS_CALC |
OBWt(J,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
170 |
OBCS_CALC |
OBNt(I,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
190 |
OBCS_CALC |
OBSt(I,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
97 |
OBCS_CALC |
OBEt(J,K,bi,bj)=tRef(K) |
|
./verification/rotating_tank/code/apply_forcing.F |
534 |
APPLY_FORCING_T |
& *( temp_addMass - tRef(k) ) |
|
./model/src/set_defaults.F |
66 |
SET_DEFAULTS |
tRef(k) = UNSET_RL |
|
./model/src/set_ref_state.F |
172 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
184 |
SET_REF_STATE |
I tRef, sRef, maxResid, |
|
./model/src/set_ref_state.F |
193 |
SET_REF_STATE |
I tRef(k-1), sRef(k-1), pLoc, |
|
./model/src/set_ref_state.F |
196 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
203 |
SET_REF_STATE |
& -tAlpha*(tRef(k)-tRef(k-1)) |
|
./model/src/set_ref_state.F |
216 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
225 |
SET_REF_STATE |
I tRef(k-1), sRef(k-1), pLoc, |
|
./model/src/set_ref_state.F |
228 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
258 |
SET_REF_STATE |
dBdrRef(k) = (tRef(k) - tRef(k-1))*recip_drC(k) |
|
./model/src/set_ref_state.F |
269 |
SET_REF_STATE |
thetaLoc = tRef(k) |
|
./model/src/set_ref_state.F |
271 |
SET_REF_STATE |
thetaLoc = tRef(k-1) |
|
./model/src/set_ref_state.F |
273 |
SET_REF_STATE |
thetaLoc = (tRef(k) + tRef(k-1))*0.5 _d 0 |
|
./model/src/set_ref_state.F |
295 |
SET_REF_STATE |
tLoc(k) = tRef(k) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
326 |
EXTERNAL_FORCING_SURF |
& *( tRef(ks) - temp_EvPrRn ) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
326 |
EXTERNAL_FORCING_SURF |
& *( tRef(ks) - temp_EvPrRn ) |
|
./model/src/tracers_iigw_correction.F |
76 |
TRACERS_IIGW_CORRECTION |
IF ( k.GT.1 ) dTr_k = (tRef(k) - tRef(k-1))*rkSign |
|
./model/src/tracers_iigw_correction.F |
77 |
TRACERS_IIGW_CORRECTION |
dTrp1 = (tRef(kp1) - tRef(k))*rkSign |