File |
Line number |
Procedure |
Code |
./model/inc/PARAMS.h |
824 |
NO PROCEDURE |
& rhoFacC, recip_rhoFacC, rhoFacF, recip_rhoFacF, rhoConstFresh, |
./model/inc/PARAMS.h |
930 |
NO PROCEDURE |
_RL rhoFacF(Nr+1), recip_rhoFacF(Nr+1) |
./pkg/generic_advdiff/gad_advection.F |
855 |
GAD_ADVECTION |
& *deepFac2F(k)*rhoFacF(k) |
./pkg/generic_advdiff/gad_advection.F |
884 |
GAD_ADVECTION |
& *deepFac2F(k)*rhoFacF(k) |
./pkg/generic_advdiff/gad_advection.F |
940 |
GAD_ADVECTION |
& *deepFac2F(k)*rhoFacF(k) |
./pkg/generic_advdiff/gad_biharm_r.F |
68 |
GAD_BIHARM_R |
tmpFac = recip_drC(kl)*deepFac2F(kl)*rhoFacF(kl) |
./pkg/generic_advdiff/gad_biharm_r.F |
92 |
GAD_BIHARM_R |
tmpFac = rkSign*recip_drC(k)*deepFac2F(k)*rhoFacF(k) |
./pkg/generic_advdiff/gad_calc_rhs.F |
690 |
GAD_CALC_RHS |
& + df(i,j)*maskUp(i,j)*rhoFacF(k) |
./pkg/generic_advdiff/gad_diff_r.F |
64 |
GAD_DIFF_R |
& *_rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
./pkg/generic_advdiff/gad_implicit_r.F |
132 |
GAD_IMPLICIT_R |
& *deepFac2F( k )*rhoFacF( k ) |
./pkg/generic_advdiff/gad_implicit_r.F |
144 |
GAD_IMPLICIT_R |
& *deepFac2F(k+1)*rhoFacF(k+1) |
./pkg/generic_advdiff/gad_implicit_r.F |
199 |
GAD_IMPLICIT_R |
& *deepFac2F(k)*rhoFacF(k) |
./pkg/generic_advdiff/gad_implicit_r.F |
314 |
GAD_IMPLICIT_R |
& -rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
./pkg/generic_advdiff/gad_som_advect.F |
532 |
GAD_SOM_ADVECT |
& *deepFac2F(k)*rhoFacF(k) |
./pkg/generic_advdiff/gad_som_advect.F |
544 |
GAD_SOM_ADVECT |
& *deepFac2F(k)*rhoFacF(k) |
./model/src/calc_adv_flow.F |
131 |
CALC_ADV_FLOW |
& *deepFac2F(k)*rhoFacF(k) |
./model/src/calc_adv_flow.F |
97 |
CALC_ADV_FLOW |
& * deepFac2F(k+1)*rhoFacF(k+1) |
./model/src/calc_gw.F |
536 |
CALC_GW |
& ( wVel(i,j, k ,bi,bj)*deepFac2F( k )*rhoFacF( k ) |
./model/src/calc_gw.F |
537 |
CALC_GW |
& +wVel(i,j,kp1,bi,bj)*deepFac2F(kp1)*rhoFacF(kp1) |
./model/src/calc_gw.F |
549 |
CALC_GW |
rTrans = wVel(i,j,k,bi,bj)*deepFac2F(k)*rhoFacF(k) |
./pkg/mom_common/mom_u_implicit_r.F |
100 |
MOM_U_IMPLICIT_R |
& *deepFac2F( k )*rhoFacF( k ) |
./pkg/mom_common/mom_u_implicit_r.F |
113 |
MOM_U_IMPLICIT_R |
& *deepFac2F(k+1)*rhoFacF(k+1) |
./pkg/mom_common/mom_u_implicit_r.F |
153 |
MOM_U_IMPLICIT_R |
& )*deepFac2F(k)*rhoFacF(k) |
./pkg/mom_common/mom_u_implicit_r.F |
298 |
MOM_U_IMPLICIT_R |
vf(i,j) = -rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
./pkg/mom_common/mom_u_rviscflux.F |
62 |
MOM_U_RVISCFLUX |
& *rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
./pkg/mom_common/mom_v_implicit_r.F |
100 |
MOM_V_IMPLICIT_R |
& *deepFac2F( k )*rhoFacF( k ) |
./pkg/mom_common/mom_v_implicit_r.F |
113 |
MOM_V_IMPLICIT_R |
& *deepFac2F(k+1)*rhoFacF(k+1) |
./pkg/mom_common/mom_v_implicit_r.F |
153 |
MOM_V_IMPLICIT_R |
& )*deepFac2F(k)*rhoFacF(k) |
./pkg/mom_common/mom_v_implicit_r.F |
298 |
MOM_V_IMPLICIT_R |
vf(i,j) = -rAs(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
./pkg/mom_common/mom_v_rviscflux.F |
62 |
MOM_V_RVISCFLUX |
& *rAs(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
./pkg/mom_fluxform/mom_calc_rtrans.F |
102 |
MOM_CALC_RTRANS |
& )*deepFac2F(k)*rhoFacF(k) |
./pkg/mom_fluxform/mom_calc_rtrans.F |
106 |
MOM_CALC_RTRANS |
& )*deepFac2F(k)*rhoFacF(k) |
./pkg/mom_fluxform/mom_u_adv_wu.F |
103 |
MOM_U_ADV_WU |
& )*deepFac2F(k)*rhoFacF(k) |
./pkg/mom_fluxform/mom_v_adv_wv.F |
104 |
MOM_V_ADV_WV |
& )*deepFac2F(k)*rhoFacF(k) |
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
71 |
MOM_VI_U_VERTSHEAR |
& )*mask_Km1*deepFac2F(K)*rhoFacF(K) |
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
78 |
MOM_VI_U_VERTSHEAR |
& )*mask_Kp1*deepFac2F(Kp1)*rhoFacF(Kp1) |
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
85 |
MOM_VI_U_VERTSHEAR |
& )*mask_Km1*deepFac2F(K)*rhoFacF(K) |
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
91 |
MOM_VI_U_VERTSHEAR |
& )*mask_Kp1*deepFac2F(Kp1)*rhoFacF(Kp1) |
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
71 |
MOM_VI_V_VERTSHEAR |
& )*mask_Km1*deepFac2F(K)*rhoFacF(K) |
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
78 |
MOM_VI_V_VERTSHEAR |
& )*mask_Kp1*deepFac2F(Kp1)*rhoFacF(Kp1) |
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
85 |
MOM_VI_V_VERTSHEAR |
& )*mask_Km1*deepFac2F(K)*rhoFacF(K) |
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
91 |
MOM_VI_V_VERTSHEAR |
& )*mask_Kp1*deepFac2F(Kp1)*rhoFacF(Kp1) |
./pkg/monitor/mon_calc_advcfl.F |
108 |
MON_CALC_ADVCFL_TILE |
& *deepFac2F(k)*rhoFacF(k) |
./pkg/monitor/mon_ke.F |
114 |
MON_KE |
& *deepFac2F( k )*rhoFacF( k ) |
./pkg/monitor/mon_ke.F |
116 |
MON_KE |
& *deepFac2F(kp1)*rhoFacF(kp1) |
./pkg/monitor/mon_ke.F |
300 |
MON_KE |
& *rA(i,j,bi,bj)*deepFac2F(ks)*rhoFacF(ks) |
./pkg/monitor/monitor.F |
98 |
MONITOR |
thickFacF(k) = drC(k)*deepFac2F(k)*rhoFacF(k) |
./model/src/config_summary.F |
313 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( rhoFacF, Nr+1, INDEX_K, 'rhoFacF = ', |
./model/src/impldiff.F |
144 |
IMPLDIFF |
& *deepFac2F(k)*rhoFacF(k) |
./model/src/impldiff.F |
162 |
IMPLDIFF |
& *deepFac2F(k+1)*rhoFacF(k+1) |
./model/src/impldiff.F |
338 |
IMPLDIFF |
& -rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
./model/src/impldiff.F |
354 |
IMPLDIFF |
& -rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
./model/src/impldiff.F |
370 |
IMPLDIFF |
& -rAs(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
./pkg/smooth/smooth_impldiff.F |
69 |
SMOOTH_IMPLDIFF |
& *deepFac2F(k)*rhoFacF(k) |
./pkg/smooth/smooth_impldiff.F |
82 |
SMOOTH_IMPLDIFF |
& *deepFac2F(k+1)*rhoFacF(k+1) |
./model/src/integr_continuity.F |
243 |
INTEGR_CONTINUITY |
& *deepFac2F(ks)*rhoFacF(ks) |
./model/src/integrate_for_w.F |
114 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1) |
./model/src/integrate_for_w.F |
140 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1) |
./model/src/integrate_for_w.F |
190 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1) |
./model/src/pre_cg3d.F |
193 |
PRE_CG3D |
wFacKp = implicDiv2DFlow*deepFac2F(kp1)*rhoFacF(kp1) |
./model/src/pre_cg3d.F |
211 |
PRE_CG3D |
wFacKm = implicDiv2DFlow*deepFac2F( k )*rhoFacF( k ) |
./model/src/pre_cg3d.F |
212 |
PRE_CG3D |
wFacKp = implicDiv2DFlow*deepFac2F(kp1)*rhoFacF(kp1) |
./model/src/set_ref_state.F |
340 |
SET_REF_STATE |
rhoFacF(1) = 1. _d 0 |
./model/src/set_ref_state.F |
348 |
SET_REF_STATE |
rhoFacF(k) = ( rhoFacC(k-1)*(rF(k)-rC(k)) |
./model/src/set_ref_state.F |
352 |
SET_REF_STATE |
rhoFacF(Nr+1) = ( rhoFacC(Nr)*(rF(Nr+1)-rF(Nr)) |
./model/src/set_ref_state.F |
353 |
SET_REF_STATE |
& + rhoFacF(Nr)*(rC(Nr)-rF(Nr+1)) |
./model/src/set_ref_state.F |
360 |
SET_REF_STATE |
recip_rhoFacF(k) = 1. _d 0/rhoFacF(k) |
./model/src/set_ref_state.F |
399 |
SET_REF_STATE |
CALL WRITE_GLVEC_RL( 'RhoFacF',' ',rhoFacF, Nr+1, -1, myThid ) |
./model/src/set_ref_state.F |
79 |
SET_REF_STATE |
rhoFacF(k) = 1. _d 0 |