| 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 |
218 |
GGL90_CALC |
Nsquare(i,j,k) = gravity*gravitySign*recip_rhoConst |
|
./pkg/ggl90/ggl90_idemix.F |
115 |
GGL90_IDEMIX |
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 |
|
./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 |
832 |
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 |
182 |
INI_PARMS |
& gravitySign, nh_Am2, |
|
./model/src/ini_parms.F |
335 |
INI_PARMS |
gravitySign = UNSET_RL |
|
./model/src/ini_parms.F |
715 |
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 |
100 |
SET_REF_STATE |
& + rhoConst*(rF(k+1)-rF(1))*gravity*gravitySign |
|
./model/src/set_ref_state.F |
91 |
SET_REF_STATE |
& + (rC(k) - rF(1))*gravity*gravitySign |
|
./model/src/set_ref_state.F |
93 |
SET_REF_STATE |
& + (rF(k+1)-rF(1))*gravity*gravitySign |
|
./model/src/set_ref_state.F |
98 |
SET_REF_STATE |
& + rhoConst*(rC(k) - rF(1))*gravity*gravitySign |
|
./pkg/down_slope/dwnslp_init_fixed.F |
74 |
DWNSLP_INIT_FIXED |
IF ( gravitySign.GT.0. ) THEN |