| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
741 |
NO PROCEDURE |
& rhoConstFresh, rho1Ref, tRef, sRef, phiRef, dBdrRef, |
|
./model/inc/PARAMS.h |
839 |
NO PROCEDURE |
_RL tRef(Nr) |
|
./model/src/calc_buoyancy.F |
41 |
CALC_BUOYANCY |
buoy(i,j)=(theta(i,j,k,bi,bj)-tRef(k))/tRef(k) |
|
./model/src/calc_phi_hyd.F |
375 |
CALC_PHI_HYD |
& -tRef(k) ) |
|
./pkg/obcs/obcs_calc.F |
116 |
OBCS_CALC |
OBEt(J,K,bi,bj)=tRef(K) |
|
./pkg/obcs/obcs_calc.F |
168 |
OBCS_CALC |
OBWt(J,K,bi,bj)=tRef(K) |
|
./pkg/obcs/obcs_calc.F |
203 |
OBCS_CALC |
OBNt(I,K,bi,bj)=tRef(K) |
|
./pkg/obcs/obcs_calc.F |
238 |
OBCS_CALC |
OBSt(I,K,bi,bj)=tRef(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
438 |
OBCS_CALC_STEVENS |
OBNt(I,K,bi,bj)=tRef(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
474 |
OBCS_CALC_STEVENS |
OBSt(I,K,bi,bj)=tRef(K) |
|
./pkg/opps/opps_calc.F |
528 |
OPPS_CALC |
& - tAlpha*(tLoc-tRef(KREF)) ) + dRho |
|
./model/src/config_summary.F |
93 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( tRef, Nr, INDEX_K, 'tRef =', |
|
./model/src/external_forcing.F |
309 |
EXTERNAL_FORCING_T |
& *( temp_addMass - tRef(kLev) ) |
|
./model/src/external_forcing_surf.F |
341 |
EXTERNAL_FORCING_SURF |
& *( tRef(ks) - temp_EvPrRn ) |
|
./model/src/find_rho.F |
634 |
FIND_RHO_SCALAR |
& -tAlpha*(tLoc-tRef(1)) |
|
./model/src/find_rho.F |
94 |
FIND_RHO_2D |
refTemp=tRef(kRef) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
114 |
INI_LINEAR_PHISURF |
I tRef(ksurfC(I,J,bi,bj)), |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
143 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = dPIdp*tRef(ksurfC(I,J,bi,bj)) |
|
./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 |
107 |
OBCS_CALC |
OBEt(J,K,bi,bj)=tRef(K) |
|
./verification/dome/code/obcs_calc.F |
183 |
OBCS_CALC |
IF (tRef(K).LE. (-dTemp*(1. _d 0 - Fz))) THEN |
|
./verification/dome/code/obcs_calc.F |
184 |
OBCS_CALC |
OBNt(I,K,bi,bj) = tRef(K) |
|
./verification/dome/code/obcs_calc.F |
213 |
OBCS_CALC |
OBSt(I,K,bi,bj)=tRef(K) |
|
./model/src/ini_linear_phisurf.F |
177 |
INI_LINEAR_PHISURF |
I tRef(k), sRef(k), pLoc, |
|
./model/src/ini_linear_phisurf.F |
204 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = dPIdp*tRef(ksurfC(I,J,bi,bj)) |
|
./model/src/ini_parms.F |
170 |
INI_PARMS |
& tRef, sRef, tRefFile, sRefFile, rhoRefFile, |
|
./model/src/ini_parms.F |
340 |
INI_PARMS |
tRef(k) = UNSET_RL |
|
./verification/hs94.1x64x5/code/ini_theta.F |
104 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./model/src/ini_theta.F |
61 |
INI_THETA |
theta(i,j,k,bi,bj) = tRef(k) |
|
./model/src/ini_theta.F |
98 |
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.cs-32x32x5/code/ini_theta.F |
104 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./verification/internal_wave/code/obcs_calc.F |
124 |
OBCS_CALC |
OBWt(J,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
161 |
OBCS_CALC |
OBNt(I,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
181 |
OBCS_CALC |
OBSt(I,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
88 |
OBCS_CALC |
OBEt(J,K,bi,bj)=tRef(K) |
|
./model/src/load_ref_files.F |
53 |
LOAD_REF_FILES |
IF (tRef(k).EQ.UNSET_RL) tRef(k) = tracerDefault |
|
./model/src/load_ref_files.F |
54 |
LOAD_REF_FILES |
tracerDefault = tRef(k) |
|
./model/src/load_ref_files.F |
59 |
LOAD_REF_FILES |
IF (tRef(k).NE.UNSET_RL) THEN |
|
./model/src/load_ref_files.F |
70 |
LOAD_REF_FILES |
CALL READ_GLVEC_RL( tRefFile, ' ', tRef, Nr, 1, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
327 |
EXTERNAL_FORCING_SURF |
& *( tRef(ks) - temp_EvPrRn ) |
|
./model/src/set_ref_state.F |
115 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
124 |
SET_REF_STATE |
I tRef(k-1), sRef(k-1), pLoc, |
|
./model/src/set_ref_state.F |
127 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
134 |
SET_REF_STATE |
& -tAlpha*(tRef(k)-tRef(k-1)) |
|
./model/src/set_ref_state.F |
147 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
156 |
SET_REF_STATE |
I tRef(k-1), sRef(k-1), pLoc, |
|
./model/src/set_ref_state.F |
159 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
189 |
SET_REF_STATE |
dBdrRef(k) = (tRef(k) - tRef(k-1))*recip_drC(k) |
|
./model/src/set_ref_state.F |
200 |
SET_REF_STATE |
thetaLoc = tRef(k) |
|
./model/src/set_ref_state.F |
202 |
SET_REF_STATE |
thetaLoc = tRef(k-1) |
|
./model/src/set_ref_state.F |
204 |
SET_REF_STATE |
thetaLoc = (tRef(k) + tRef(k-1))*0.5 _d 0 |
|
./model/src/set_ref_state.F |
225 |
SET_REF_STATE |
phiRef(k+1) = phiRef(k)+ddPI*tRef(ks) |
|
./model/src/set_ref_state.F |
234 |
SET_REF_STATE |
phiRef(2*k) = phiRef(1) + ddPI*tRef(k) |
|
./model/src/set_ref_state.F |
238 |
SET_REF_STATE |
phiRef(2*k+1) = phiRef(2*k) + ddPI*0.5*tRef(k) |
|
./model/src/set_ref_state.F |
240 |
SET_REF_STATE |
& + ddPI*0.5*(tRef(k)+tRef(k+1)) |
|
./model/src/set_ref_state.F |
245 |
SET_REF_STATE |
phiRef(2*k+1) = phiRef(2*k) + ddPI*tRef(k) |
|
./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 |