| File |
Line number |
Procedure |
Code |
|
./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 |
22 |
OBCS_APPLY_TS |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_apply_ts.F |
40 |
OBCS_APPLY_TS |
tFld(I,J,K,bi,bj)=OBNt(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
53 |
OBCS_APPLY_TS |
tFld(I,J,K,bi,bj)=OBSt(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
68 |
OBCS_APPLY_TS |
tFld(I,J,K,bi,bj)=OBEt(J,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
7 |
OBCS_APPLY_TS |
U tFld, sFld, |
|
./pkg/obcs/obcs_apply_ts.F |
81 |
OBCS_APPLY_TS |
tFld(I,J,K,bi,bj)=OBWt(J,K,bi,bj) * obc_mask |
|
./model/src/ini_eos.F |
299 |
CHECK_EOS |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/ini_eos.F |
383 |
CHECK_EOS |
tFld(i,j,k,bi,bj) = ptloc(kcheck) |
|
./model/src/ini_eos.F |
385 |
CHECK_EOS |
tFld(i,j,k,bi,bj) = tloc(kcheck) |
|
./model/src/ini_eos.F |
393 |
CHECK_EOS |
& tFld, sFld, rholoc, myThid ) |
|
./model/src/ini_eos.F |
397 |
CHECK_EOS |
& tFld, sFld, bulkMod, myThid ) |
|
./model/src/ini_eos.F |
402 |
CHECK_EOS |
& tFld(i,j,k,bi,bj), ' degC,', |
|
./model/src/ini_eos.F |
413 |
CHECK_EOS |
call FIND_RHO_SCALAR( tFld(i,j,k,bi,bj), sLoc(kcheck), |
|
./model/src/calc_phi_hyd.F |
12 |
CALC_PHI_HYD |
I tFld, sFld, |
|
./model/src/calc_phi_hyd.F |
150 |
CALC_PHI_HYD |
& tFld, sFld, |
|
./model/src/calc_phi_hyd.F |
236 |
CALC_PHI_HYD |
& tFld, sFld, |
|
./model/src/calc_phi_hyd.F |
335 |
CALC_PHI_HYD |
& *( tFld(i,j,k,bi,bj)*(sFld(i,j,k,bi,bj)*atm_Rq+one) |
|
./model/src/calc_phi_hyd.F |
467 |
CALC_PHI_HYD |
I phiHydF, phiHydC, alphaRho, tFld, sFld, |
|
./model/src/calc_phi_hyd.F |
482 |
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/zonal_filt/zonal_filt_apply_ts.F |
22 |
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 |
36 |
ZONAL_FILT_APPLY_TS |
& tFld, hFacC, 1, sNy, k, k, bi, bj, 1, myThid) |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
7 |
ZONAL_FILT_APPLY_TS |
U tFld, sFld, |
|
./model/src/find_rho.F |
105 |
FIND_RHO |
tP=tFld(i,j,k,bi,bj)-refTemp |
|
./model/src/find_rho.F |
12 |
FIND_RHO |
I tFld, sFld, |
|
./model/src/find_rho.F |
143 |
FIND_RHO |
I tFld, sFld, |
|
./model/src/find_rho.F |
149 |
FIND_RHO |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
179 |
FIND_RHO |
& locPres, tFld, sFld, rhoNum, myThid ) |
|
./model/src/find_rho.F |
182 |
FIND_RHO |
& locPres, tFld, sFld, rhoDen, myThid ) |
|
./model/src/find_rho.F |
212 |
FIND_RHOP0 |
I tFld, sFld, |
|
./model/src/find_rho.F |
240 |
FIND_RHOP0 |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/find_rho.F |
255 |
FIND_RHOP0 |
t = tFld(i,j,k,bi,bj) |
|
./model/src/find_rho.F |
304 |
FIND_BULKMOD |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
333 |
FIND_BULKMOD |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/find_rho.F |
348 |
FIND_BULKMOD |
t = tFld(i,j,k,bi,bj) |
|
./model/src/find_rho.F |
415 |
FIND_RHONUM |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
446 |
FIND_RHONUM |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/find_rho.F |
459 |
FIND_RHONUM |
t1 = tFld(i,j,k,bi,bj) |
|
./model/src/find_rho.F |
45 |
FIND_RHO |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/find_rho.F |
485 |
FIND_RHODEN |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
516 |
FIND_RHODEN |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/find_rho.F |
531 |
FIND_RHODEN |
t1 = tFld(i,j,k,bi,bj) |
|
./model/src/find_rho.F |
92 |
FIND_RHO |
& -tAlpha*(tFld(i,j,k,bi,bj)-refTemp) ) |
|
./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 |
60 |
SHAP_FILT_APPLY_TS |
IF ( tempStepping ) _EXCH_XYZ_R8( tFld,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
67 |
SHAP_FILT_APPLY_TS |
& CALL SHAP_FILT_TRACEROLD( tFld,bi,bj,k,myTime,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
74 |
SHAP_FILT_APPLY_TS |
IF ( tempStepping ) _EXCH_XYZ_R8( tFld,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
82 |
SHAP_FILT_APPLY_TS |
U tFld, Shap_tmpFld1, |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
86 |
SHAP_FILT_APPLY_TS |
U tFld, Shap_tmpFld1, |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
90 |
SHAP_FILT_APPLY_TS |
U tFld, Shap_tmpFld1, |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
94 |
SHAP_FILT_APPLY_TS |
U tFld, Shap_tmpFld1, |
|
./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 |
47 |
GAD_FLUXLIMIT_IMPL_R |
_RL tFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
86 |
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 |
87 |
GAD_FLUXLIMIT_IMPL_R |
Rj =(tFld(i,j,k) -tFld(i,j,km1)) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
88 |
GAD_FLUXLIMIT_IMPL_R |
Rjm=(tFld(i,j,km1)-tFld(i,j,km2))*maskC(i,j,km2,bi,bj) |
|
./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) |
|
./model/src/calc_grad_phi_hyd.F |
11 |
CALC_GRAD_PHI_HYD |
I phiHydC, alphRho, tFld, sFld, |
|
./model/src/calc_grad_phi_hyd.F |
48 |
CALC_GRAD_PHI_HYD |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |