File |
Line number |
Procedure |
Code |
./model/src/convective_weights.F |
61 |
CONVECTIVE_WEIGHTS |
& .AND. (rhokm1(i,j)-rhok(i,j))*rkSign*gravitySign .GT. 0. |
./model/src/ini_parms.F |
1161 |
INI_PARMS |
gravitySign = -1. _d 0 |
./model/src/ini_parms.F |
1163 |
INI_PARMS |
gravitySign = 1. _d 0 |
./model/src/ini_parms.F |
136 |
INI_PARMS |
& gravitySign, nh_Am2, |
./model/src/ini_parms.F |
252 |
INI_PARMS |
gravitySign = UNSET_RL |
./model/src/ini_parms.F |
627 |
INI_PARMS |
IF ( gravitySign .NE. UNSET_RL ) THEN |
./model/src/calc_ivdc.F |
52 |
CALC_IVDC |
& (rhokm1(i,j)-rhokp1(i,j))*rkSign*gravitySign.GT.0. ) THEN |
./model/src/convective_adjustment_ini.F |
100 |
CONVECTIVE_ADJUSTMENT_INI |
IF ( rkSign*gravitySign .GT. 0. ) THEN |
./model/inc/GRID.h |
379 |
NO PROCEDURE |
& gravitySign, rkSign, |
./model/inc/GRID.h |
398 |
NO PROCEDURE |
_RL gravitySign |
./pkg/mom_fluxform/mom_u_metric_nh.F |
60 |
MOM_U_METRIC_NH |
& )*recip_horiVertRatio*gravitySign |
./pkg/mom_fluxform/mom_v_metric_nh.F |
60 |
MOM_V_METRIC_NH |
& )*recip_horiVertRatio*gravitySign |
./pkg/mom_fluxform/mom_u_coriolis_nh.F |
60 |
MOM_U_CORIOLIS_NH |
& *gravitySign*recip_horiVertRatio |
./model/src/convect.F |
86 |
CONVECT |
& (rhokm1(i,j)-rhokp1(i,j))*rkSign*gravitySign .GT. 0. |
./model/src/convective_adjustment.F |
95 |
CONVECTIVE_ADJUSTMENT |
IF ( rkSign*gravitySign .GT. 0. ) THEN |