| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
317 |
NO PROCEDURE |
& gravitySign, rkSign, globalArea |
|
./model/inc/GRID.h |
330 |
NO PROCEDURE |
_RL gravitySign |
|
./pkg/ggl90/ggl90_calc.F |
169 |
GGL90_CALC |
Nsquare(i,j,k) = gravity*gravitySign*recip_rhoConst |
|
./model/src/calc_ivdc.F |
50 |
CALC_IVDC |
IF ( -sigmaR(i,j,k)*gravitySign.GT.0. ) THEN |
|
./pkg/mom_common/mom_quasihydrostatic.F |
60 |
MOM_QUASIHYDROSTATIC |
scalingFactor=rhoConst*gravitySign*recip_gravity |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
63 |
MOM_U_CORIOLIS_NH |
& )*gravitySign |
|
./pkg/mom_common/mom_u_metric_nh.F |
61 |
MOM_U_METRIC_NH |
& )*gravitySign |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
63 |
MOM_V_CORIOLIS_NH |
& )*gravitySign |
|
./pkg/mom_common/mom_v_metric_nh.F |
61 |
MOM_V_METRIC_NH |
& )*gravitySign |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
56 |
MOM_W_CORIOLIS_NH |
& -gravitySign*fCoriCos(i,j,bi,bj)* |
|
./pkg/mom_common/mom_w_metric_nh.F |
53 |
MOM_W_METRIC_NH |
wMetricTerms(i,j) = -gravitySign*wUnit2rVel(k) |
|
./model/src/config_summary.F |
744 |
CONFIG_SUMMARY |
CALL WRITE_0D_RL( gravitySign, INDEX_NONE,'gravitySign =', |
|
./model/src/convective_adjustment.F |
112 |
CONVECTIVE_ADJUSTMENT |
IF ( rkSign*gravitySign .GT. 0. ) THEN |
|
./model/src/convective_adjustment_ini.F |
112 |
CONVECTIVE_ADJUSTMENT_INI |
IF ( rkSign*gravitySign .GT. 0. ) THEN |
|
./model/src/convective_weights.F |
61 |
CONVECTIVE_WEIGHTS |
& (rhok(i,j)-rhokm1(i,j))*rkSign*gravitySign .LT. 0. |
|
./model/src/ini_parms.F |
155 |
INI_PARMS |
_RL zonal_filt_lat, gravitySign |
|
./model/src/ini_parms.F |
173 |
INI_PARMS |
& gravitySign, nh_Am2, |
|
./model/src/ini_parms.F |
322 |
INI_PARMS |
gravitySign = UNSET_RL |
|
./model/src/ini_parms.F |
674 |
INI_PARMS |
IF ( gravitySign .NE. UNSET_RL ) THEN |
|
./model/src/ini_vertical_grid.F |
57 |
INI_VERTICAL_GRID |
gravitySign = -1. _d 0 |
|
./model/src/ini_vertical_grid.F |
59 |
INI_VERTICAL_GRID |
gravitySign = 1. _d 0 |
|
./model/src/set_ref_state.F |
271 |
SET_REF_STATE |
phiRef(2*k) = gravitySign*gravity*(rC(k) - Ro_SeaLevel) |
|
./model/src/set_ref_state.F |
272 |
SET_REF_STATE |
phiRef(2*k+1) = gravitySign*gravity*(rF(k+1)-Ro_SeaLevel) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
74 |
DWNSLP_INIT_FIXED |
IF ( gravitySign.GT.0. ) THEN |