| 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_vertical_grid.F |
56 |
INI_VERTICAL_GRID |
rC(1) = rF(1) + rkSign*delRc(1) |
|
./model/src/ini_vertical_grid.F |
63 |
INI_VERTICAL_GRID |
rC(K) = rC(K-1) + rkSign*drC(K) |
|
./model/src/ini_vertical_grid.F |
64 |
INI_VERTICAL_GRID |
rF(K) = rF(K-1) + rkSign*drF(K-1) |
|
./model/src/ini_vertical_grid.F |
67 |
INI_VERTICAL_GRID |
rF(Nr+1) = rF(Nr) + rkSign*drF(Nr) |
|
./model/src/ini_vertical_grid.F |
89 |
INI_VERTICAL_GRID |
rF(K+1) = rF(K) + rkSign*delR(K) |
|
./model/src/ini_vertical_grid.F |
92 |
INI_VERTICAL_GRID |
rC(1) = rf(1) + rkSign*delR(1) * 0.5 _d 0 |
|
./model/src/ini_vertical_grid.F |
95 |
INI_VERTICAL_GRID |
rC(K) = rC(K-1) + rkSign*drC(K) |
|
./pkg/mom_common/mom_u_implicit_r.F |
137 |
MOM_U_IMPLICIT_R |
& *recip_rAw(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_u_implicit_r.F |
158 |
MOM_U_IMPLICIT_R |
& *recip_rAw(i,j,bi,bj)*rkSign |
|
./model/src/config_summary.F |
470 |
CONFIG_SUMMARY |
CALL WRITE_0D_R8( rkSign, INDEX_NONE,'rkSign =', |
|
./pkg/mom_common/mom_v_implicit_r.F |
137 |
MOM_V_IMPLICIT_R |
& *recip_rAs(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_v_implicit_r.F |
158 |
MOM_V_IMPLICIT_R |
& *recip_rAs(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_v_rviscflux.F |
59 |
MOM_V_RVISCFLUX |
& )*rkSign*recip_drC(kp1) |
|
./pkg/mom_common/mom_u_rviscflux.F |
59 |
MOM_U_RVISCFLUX |
& )*rkSign*recip_drC(kp1) |
|
./model/src/ini_parms.F |
1159 |
INI_PARMS |
rkSign = -1. _d 0 |
|
./model/src/calc_ivdc.F |
52 |
CALC_IVDC |
& (rhokm1(i,j)-rhokp1(i,j))*rkSign*gravitySign.GT.0. ) THEN |
|
./model/src/grad_sigma.F |
96 |
GRAD_SIGMA |
& *recip_drC(k)*rkSign |
|
./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 |
399 |
NO PROCEDURE |
_RL rkSign |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
108 |
GAD_FLUXLIMIT_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
63 |
GAD_C2_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_implicit_r.F |
208 |
GAD_IMPLICIT_R |
& *tracer(i,j,k,bi,bj)*(rTransKp1(i,j)-rTrans(i,j))*rkSign |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
91 |
GAD_U3C4_IMPL_R |
rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
144 |
GAD_CALC_RHS |
rAdvFac = rkSign*advFac |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
509 |
GAD_CALC_RHS |
& +(fVerT(i,j,kDown)-fVerT(i,j,kUp))*rkSign |
|
./pkg/generic_advdiff/gad_diff_r.F |
66 |
GAD_DIFF_R |
& *(Tracer(i,j,k,bi,bj)-Tracer(i,j,km1,bi,bj))*rkSign |
|
./pkg/generic_advdiff/gad_advection.F |
725 |
GAD_ADVECTION |
& )*rkSign |
|
./pkg/mom_fluxform/mom_fluxform.F |
388 |
MOM_FLUXFORM |
& -fVerU(i,j,kUp)*rkSign + fVerU(i,j,kDown)*rkSign |
|
./pkg/mom_fluxform/mom_fluxform.F |
549 |
MOM_FLUXFORM |
& -fVerV(i,j,kUp)*rkSign + fVerV(i,j,kDown)*rkSign |
|
./pkg/mom_vecinv/mom_vecinv.F |
276 |
MOM_VECINV |
& )*rkSign |
|
./pkg/mom_vecinv/mom_vecinv.F |
336 |
MOM_VECINV |
& )*rkSign |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
74 |
MOM_VI_U_VERTSHEAR |
uZm=(uFld(I,J,K,bi,bj)-mask_Km1*uFld(I,J,Km1,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
81 |
MOM_VI_U_VERTSHEAR |
uZp=(mask_Kp1*uFld(I,J,Kp1,bi,bj)-uFld(I,J,K,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
74 |
MOM_VI_V_VERTSHEAR |
vZm=(vFld(I,J,K,bi,bj)-mask_Km1*vFld(I,J,Km1,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
81 |
MOM_VI_V_VERTSHEAR |
vZp=(mask_Kp1*vFld(I,J,Kp1,bi,bj)-vFld(I,J,K,bi,bj))*rkSign |
|
./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 |