| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
645 |
NO PROCEDURE |
& rhoConstFresh, convertEmP2rUnit, tRef, sRef, phiRef, dBdrRef, |
|
./model/inc/PARAMS.h |
736 |
NO PROCEDURE |
_RL tRef(Nr) |
|
./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 |
|
./model/src/find_rho.F |
632 |
FIND_RHO_SCALAR |
& -tAlpha*(tLoc-tRef(1)) |
|
./model/src/find_rho.F |
83 |
FIND_RHO |
refTemp=tRef(kRef) |
|
./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 |
92 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./verification/hs94.1x64x5/code/ini_theta.F |
107 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./model/src/ini_linear_phisurf.F |
112 |
INI_LINEAR_PHISURF |
I tRef(k), sRef(k), pLoc, |
|
./model/src/ini_linear_phisurf.F |
140 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = dPIdp*tRef(ksurfC(I,J,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
107 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
107 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./verification/internal_wave/code/obcs_calc.F |
122 |
OBCS_CALC |
OBWt(J,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
159 |
OBCS_CALC |
OBNt(I,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
179 |
OBCS_CALC |
OBSt(I,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
86 |
OBCS_CALC |
OBEt(J,K,bi,bj)=tRef(K) |
|
./model/src/ini_parms.F |
166 |
INI_PARMS |
& tRef, sRef, eosType, integr_GeoPot, selectFindRoSurf, |
|
./model/src/ini_parms.F |
370 |
INI_PARMS |
tRef(k) = UNSET_RL |
|
./model/src/ini_parms.F |
469 |
INI_PARMS |
IF (tRef(k).EQ.UNSET_RL) tRef(k) = tracerDefault |
|
./model/src/ini_parms.F |
470 |
INI_PARMS |
tracerDefault = tRef(k) |
|
./verification/dome/code/obcs_calc.F |
104 |
OBCS_CALC |
OBEt(J,K,bi,bj)=tRef(K) |
|
./verification/dome/code/obcs_calc.F |
181 |
OBCS_CALC |
if (tRef(K).le. (-dTemp*(1.0 - Fz))) then |
|
./verification/dome/code/obcs_calc.F |
182 |
OBCS_CALC |
OBNt(I,K,bi,bj) = tRef(K) |
|
./verification/dome/code/obcs_calc.F |
211 |
OBCS_CALC |
OBSt(I,K,bi,bj)=tRef(K) |
|
./model/src/calc_phi_hyd.F |
349 |
CALC_PHI_HYD |
& -tRef(k) ) |
|
./model/src/calc_buoyancy.F |
41 |
CALC_BUOYANCY |
buoy(i,j)=(theta(i,j,k,bi,bj)-tRef(K))/tRef(K) |
|
./model/src/config_summary.F |
93 |
CONFIG_SUMMARY |
CALL WRITE_1D_R8( tRef, Nr, INDEX_K,'tRef =', |
|
./model/src/ini_theta.F |
57 |
INI_THETA |
theta(I,J,K,bi,bj) = tRef(K) |
|
./model/src/ini_theta.F |
82 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./model/src/ini_phiref.F |
102 |
INI_PHIREF |
I tRef(k), sRef(k), pLoc, |
|
./model/src/ini_phiref.F |
109 |
INI_PHIREF |
& -tAlpha*(tRef(k)-tRef(k-1)) |
|
./model/src/ini_phiref.F |
122 |
INI_PHIREF |
I tRef(k), sRef(k), pLoc, |
|
./model/src/ini_phiref.F |
132 |
INI_PHIREF |
I tRef(k-1), sRef(k-1), pLoc, |
|
./model/src/ini_phiref.F |
135 |
INI_PHIREF |
I tRef(k), sRef(k), pLoc, |
|
./model/src/ini_phiref.F |
153 |
INI_PHIREF |
dBdrRef(k) = (tRef(k) - tRef(k-1))*recip_drC(k) |
|
./model/src/ini_phiref.F |
168 |
INI_PHIREF |
phiRef(k+1) = phiRef(k)+ddPI*tRef(ks) |
|
./model/src/ini_phiref.F |
177 |
INI_PHIREF |
phiRef(2*k) = phiRef(1) + ddPI*tRef(k) |
|
./model/src/ini_phiref.F |
181 |
INI_PHIREF |
phiRef(2*k+1) = phiRef(2*k) + ddPI*0.5*tRef(k) |
|
./model/src/ini_phiref.F |
183 |
INI_PHIREF |
& + ddPI*0.5*(tRef(k)+tRef(k+1)) |
|
./model/src/ini_phiref.F |
188 |
INI_PHIREF |
phiRef(2*k+1) = phiRef(2*k) + ddPI*tRef(k) |
|
./model/src/ini_phiref.F |
89 |
INI_PHIREF |
I tRef(k), sRef(k), pLoc, |
|
./model/src/ini_phiref.F |
99 |
INI_PHIREF |
I tRef(k-1), sRef(k-1), pLoc, |
|
./pkg/opps/opps_calc.F |
528 |
OPPS_CALC |
& - tAlpha*(tLoc-tRef(KREF)) ) + dRho |
|
./pkg/obcs/obcs_calc.F |
115 |
OBCS_CALC |
OBWt(J,K,bi,bj)=tRef(K) |
|
./pkg/obcs/obcs_calc.F |
150 |
OBCS_CALC |
OBNt(I,K,bi,bj)=tRef(K) |
|
./pkg/obcs/obcs_calc.F |
185 |
OBCS_CALC |
OBSt(I,K,bi,bj)=tRef(K) |
|
./pkg/obcs/obcs_calc.F |
80 |
OBCS_CALC |
OBEt(J,K,bi,bj)=tRef(K) |