| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
107 |
GAD_DST3FL_IMPL_R |
Rj =(tFld(i,j,k) -tFld(i,j,k-1)) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
109 |
GAD_DST3FL_IMPL_R |
Rjh = (tFld(i,j,k-1)-tFld(i,j,km2))*maskC(i,j,km2,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
111 |
GAD_DST3FL_IMPL_R |
Rjh = (tFld(i,j,kp1)-tFld(i,j,k) )*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
11 |
GAD_DST3FL_IMPL_R |
I deltaTarg, rTrans, tFld, |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
53 |
GAD_DST3FL_IMPL_R |
_RL tFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
11 |
GAD_FLUXLIMIT_IMPL_R |
I deltaTarg, rTrans, tFld, |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
48 |
GAD_FLUXLIMIT_IMPL_R |
_RL tFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
87 |
GAD_FLUXLIMIT_IMPL_R |
Rjp=(tFld(i,j,kp1)-tFld(i,j,k) )*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
88 |
GAD_FLUXLIMIT_IMPL_R |
Rj =(tFld(i,j,k) -tFld(i,j,km1)) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
89 |
GAD_FLUXLIMIT_IMPL_R |
Rjm=(tFld(i,j,km1)-tFld(i,j,km2))*maskC(i,j,km2,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
11 |
CALC_GRAD_PHI_HYD |
I phiHydC, alphRho, tFld, sFld, |
|
./model/src/calc_grad_phi_hyd.F |
47 |
CALC_GRAD_PHI_HYD |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/calc_phi_hyd.F |
12 |
CALC_PHI_HYD |
I tFld, sFld, |
|
./model/src/calc_phi_hyd.F |
153 |
CALC_PHI_HYD |
I tFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
270 |
CALC_PHI_HYD |
I tFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
374 |
CALC_PHI_HYD |
& *( tFld(i,j,k,bi,bj)*(sFld(i,j,k,bi,bj)*atm_Rq+one) |
|
./model/src/calc_phi_hyd.F |
506 |
CALC_PHI_HYD |
I phiHydF, phiHydC, alphaRho, tFld, sFld, |
|
./model/src/calc_phi_hyd.F |
519 |
CALC_PHI_HYD |
I phiHydC, alphaRho, tFld, sFld, |
|
./model/src/calc_phi_hyd.F |
66 |
CALC_PHI_HYD |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_apply_tloc.F |
22 |
OBCS_APPLY_TLOC |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/obcs/obcs_apply_tloc.F |
39 |
OBCS_APPLY_TLOC |
tFld(I,J)=OBNt(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_tloc.F |
49 |
OBCS_APPLY_TLOC |
tFld(I,J)=OBSt(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_tloc.F |
63 |
OBCS_APPLY_TLOC |
tFld(I,J)=OBEt(J,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_tloc.F |
73 |
OBCS_APPLY_TLOC |
tFld(I,J)=OBWt(J,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_tloc.F |
7 |
OBCS_APPLY_TLOC |
U tFld, |
|
./pkg/obcs/obcs_apply_ts.F |
104 |
OBCS_APPLY_TS |
tFld(i,j,k,bi,bj) = OBSt(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
11 |
OBCS_APPLY_TS |
U tFld, sFld, |
|
./pkg/obcs/obcs_apply_ts.F |
123 |
OBCS_APPLY_TS |
tFld(i,j,k,bi,bj) = OBEt(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
141 |
OBCS_APPLY_TS |
tFld(i,j,k,bi,bj) = OBWt(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
39 |
OBCS_APPLY_TS |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_apply_ts.F |
86 |
OBCS_APPLY_TS |
tFld(i,j,k,bi,bj) = OBNt(i,k,bi,bj)*obc_mask |
|
./model/src/diags_phi_rlow.F |
11 |
DIAGS_PHI_RLOW |
I phiHydF, phiHydC, alphRho, tFld, sFld, |
|
./model/src/diags_phi_rlow.F |
51 |
DIAGS_PHI_RLOW |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
11 |
SHAP_FILT_APPLY_TS |
U tFld, sFld, |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
38 |
SHAP_FILT_APPLY_TS |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
66 |
SHAP_FILT_APPLY_TS |
IF ( tempStepping ) _EXCH_XYZ_RL( tFld,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
73 |
SHAP_FILT_APPLY_TS |
& CALL SHAP_FILT_TRACEROLD( tFld,bi,bj,k,myTime,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
80 |
SHAP_FILT_APPLY_TS |
IF ( tempStepping ) _EXCH_XYZ_RL( tFld,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
88 |
SHAP_FILT_APPLY_TS |
U tFld, Shap_tmpFld1, |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
93 |
SHAP_FILT_APPLY_TS |
U tFld, Shap_tmpFld1, |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
97 |
SHAP_FILT_APPLY_TS |
U tFld, Shap_tmpFld1, |
|
./model/src/find_rho.F |
103 |
FIND_RHO_2D |
& -tAlpha*(tFld(i,j)-refTemp) ) |
|
./model/src/find_rho.F |
116 |
FIND_RHO_2D |
tP=tFld(i,j)-refTemp |
|
./model/src/find_rho.F |
154 |
FIND_RHO_2D |
I tFld, sFld, |
|
./model/src/find_rho.F |
160 |
FIND_RHO_2D |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
189 |
FIND_RHO_2D |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
195 |
FIND_RHO_2D |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
227 |
FIND_RHOP0 |
I tFld, sFld, |
|
./model/src/find_rho.F |
23 |
FIND_RHO_2D |
I tFld, sFld, |
|
./model/src/find_rho.F |
250 |
FIND_RHOP0 |
_RL tFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/find_rho.F |
265 |
FIND_RHOP0 |
t = tFld(i,j) |
|
./model/src/find_rho.F |
316 |
FIND_BULKMOD |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
341 |
FIND_BULKMOD |
_RL tFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/find_rho.F |
356 |
FIND_BULKMOD |
t = tFld(i,j) |
|
./model/src/find_rho.F |
424 |
FIND_RHONUM |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
450 |
FIND_RHONUM |
_RL tFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/find_rho.F |
463 |
FIND_RHONUM |
t1 = tFld(i,j) |
|
./model/src/find_rho.F |
490 |
FIND_RHODEN |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
516 |
FIND_RHODEN |
_RL tFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/find_rho.F |
531 |
FIND_RHODEN |
t1 = tFld(i,j) |
|
./model/src/find_rho.F |
53 |
FIND_RHO_2D |
_RL tFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
11 |
ZONAL_FILT_APPLY_TS |
U tFld, sFld, |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
30 |
ZONAL_FILT_APPLY_TS |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
44 |
ZONAL_FILT_APPLY_TS |
U tFld( 1-OLx,1-OLy,1,bi,bj), |
|
./model/src/ini_eos.F |
307 |
EOS_CHECK |
_RL tFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/ini_eos.F |
403 |
EOS_CHECK |
tFld(i,j) = ptLoc(kcheck) |
|
./model/src/ini_eos.F |
405 |
EOS_CHECK |
tFld(i,j) = tLoc(kcheck) |
|
./model/src/ini_eos.F |
413 |
EOS_CHECK |
I tFld, sFld, |
|
./model/src/ini_eos.F |
422 |
EOS_CHECK |
I pFld, tFld, sFld, |
|
./model/src/ini_eos.F |
445 |
EOS_CHECK |
& tFld(i,j), ' degC,', |
|
./model/src/ini_eos.F |
456 |
EOS_CHECK |
CALL FIND_RHO_SCALAR( tFld(i,j), sLoc(kcheck), |
|
./pkg/down_slope/dwnslp_calc_rho.F |
10 |
DWNSLP_CALC_RHO |
I tFld, sFld, |
|
./pkg/down_slope/dwnslp_calc_rho.F |
44 |
DWNSLP_CALC_RHO |
_RL tFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
72 |
DWNSLP_CALC_RHO |
tLoc(i,j) = tFld(i,j,kl,bi,bj) |