File |
Line number |
Procedure |
Code |
./model/inc/PARAMS.h |
826 |
NO PROCEDURE |
& rVel2wUnit, wUnit2rVel, mass2rUnit, rUnit2mass, |
./model/inc/PARAMS.h |
938 |
NO PROCEDURE |
_RL rVel2wUnit(Nr+1), wUnit2rVel(Nr+1) |
./model/src/calc_gw.F |
532 |
CALC_GW |
& ( wVel(i,j, k ,bi,bj)*rVel2wUnit( k ) |
./model/src/calc_gw.F |
533 |
CALC_GW |
& +wVel(i,j,kp1,bi,bj)*rVel2wUnit(kp1)*mskP1 ) |
./model/src/calc_gw.F |
548 |
CALC_GW |
tmp_WbarZ = wVel(i,j,k,bi,bj)*rVel2wUnit(k) |
./pkg/mom_common/mom_u_coriolis_nh.F |
58 |
MOM_U_CORIOLIS_NH |
& *0.5*( wFld( i ,j, k ,bi,bj)*rVel2wUnit( k ) |
./pkg/mom_common/mom_u_coriolis_nh.F |
59 |
MOM_U_CORIOLIS_NH |
& +wFld( i ,j,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk ) |
./pkg/mom_common/mom_u_coriolis_nh.F |
61 |
MOM_U_CORIOLIS_NH |
& *0.5*( wFld(i-1,j, k ,bi,bj)*rVel2wUnit( k ) |
./pkg/mom_common/mom_u_coriolis_nh.F |
62 |
MOM_U_CORIOLIS_NH |
& +wFld(i-1,j,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk ) |
./pkg/mom_common/mom_u_metric_nh.F |
58 |
MOM_U_METRIC_NH |
& *rVel2wUnit(kp1)*wVelBottomOverride |
./pkg/mom_common/mom_u_metric_nh.F |
60 |
MOM_U_METRIC_NH |
& *rVel2wUnit( k ) |
./pkg/mom_common/mom_v_coriolis_nh.F |
58 |
MOM_V_CORIOLIS_NH |
& *0.5*( wFld( i ,j, k ,bi,bj)*rVel2wUnit( k ) |
./pkg/mom_common/mom_v_coriolis_nh.F |
59 |
MOM_V_CORIOLIS_NH |
& +wFld( i ,j,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk ) |
./pkg/mom_common/mom_v_coriolis_nh.F |
61 |
MOM_V_CORIOLIS_NH |
& *0.5*( wFld(i,j-1, k ,bi,bj)*rVel2wUnit( k ) |
./pkg/mom_common/mom_v_coriolis_nh.F |
62 |
MOM_V_CORIOLIS_NH |
& +wFld(i,j-1,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk ) |
./pkg/mom_common/mom_v_metric_nh.F |
58 |
MOM_V_METRIC_NH |
& *rVel2wUnit(kp1)*wVelBottomOverride |
./pkg/mom_common/mom_v_metric_nh.F |
60 |
MOM_V_METRIC_NH |
& *rVel2wUnit( k ) |
./model/src/config_summary.F |
900 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL(rVel2wUnit,Nr+1, INDEX_K,'rVel2wUnit =', |
./model/src/ini_cg3d.F |
143 |
INI_CG3D |
tmpFac = nh_Fac*rVel2wUnit(k)*rVel2wUnit(k) |
./model/src/set_ref_state.F |
244 |
SET_REF_STATE |
rVel2wUnit(k) = 1. _d 0 / wUnit2rVel(k) |
./model/src/set_ref_state.F |
279 |
SET_REF_STATE |
rVel2wUnit(k) = 1. _d 0 / wUnit2rVel(k) |
./model/src/set_ref_state.F |
69 |
SET_REF_STATE |
rVel2wUnit(k) = 1. _d 0 |