| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_mapping.F |
198 |
FLT_MAP_IJLOCAL2XY |
fm = ( rr - rF(k) ) * recip_drF(k)*rkSign |
|
./pkg/flt/flt_mapping.F |
247 |
FLT_MAP_IJLOCAL2XY |
FLT_MAP_K2R = rF(k) + ddz*drF(k)*rkSign |
|
./pkg/flt/flt_runga2.F |
104 |
FLT_RUNGA2 |
scalez=rkSign*recip_drF(kc) |
|
./pkg/flt/flt_runga4.F |
106 |
FLT_RUNGA4 |
scalez=rkSign*recip_drF(kc) |
|
./pkg/generic_advdiff/gad_advection.F |
835 |
GAD_ADVECTION |
& )*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_calc_rhs.F |
161 |
GAD_CALC_RHS |
rAdvFac = rkSign*advFac |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
627 |
GAD_CALC_RHS |
& +MAX(0. _d 0,fVerT(i,j,kDown)*rkSign) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
628 |
GAD_CALC_RHS |
& +MAX(0. _d 0,-fVerT(i,j,kUp)*rkSign) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
646 |
GAD_CALC_RHS |
IF (-fVerT(i,j,kUp)*rkSign .GT.0. _d 0) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
649 |
GAD_CALC_RHS |
IF (k.LT.Nr .AND. fVerT(i,j,kDown)*rkSign.GT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
671 |
GAD_CALC_RHS |
& *( -fVerT(i,j,kDown)*rkSign ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
680 |
GAD_CALC_RHS |
& *( fVerT(i,j,kDown)*rkSign ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
698 |
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_dst2u1_adv_r.F |
88 |
GAD_DST2U1_ADV_R |
wAbs = ABS(rTrans(i,j))*rkSign |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
79 |
GAD_DST2U1_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
142 |
GAD_DST3FL_IMPL_R |
rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
109 |
GAD_FLUXLIMIT_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_implicit_r.F |
213 |
GAD_IMPLICIT_R |
& *tracer(i,j,k,bi,bj)*(rTransKp1(i,j)-rTrans(i,j))*rkSign |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
93 |
GAD_U3C4_IMPL_R |
rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_u_implicit_r.F |
143 |
MOM_U_IMPLICIT_R |
& *recip_rAw(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_u_implicit_r.F |
164 |
MOM_U_IMPLICIT_R |
& *recip_rAw(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_u_implicit_r.F |
217 |
MOM_U_IMPLICIT_R |
& * (gU(i,j,k,bi,bj) - gU(i,j,k-1,bi,bj))*rkSign |
|
./pkg/mom_common/mom_u_rviscflux.F |
64 |
MOM_U_RVISCFLUX |
& )*rkSign*recip_drC(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
143 |
MOM_V_IMPLICIT_R |
& *recip_rAs(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_v_implicit_r.F |
164 |
MOM_V_IMPLICIT_R |
& *recip_rAs(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_v_implicit_r.F |
217 |
MOM_V_IMPLICIT_R |
& * (gV(i,j,k,bi,bj) - gV(i,j,k-1,bi,bj))*rkSign |
|
./pkg/mom_common/mom_v_rviscflux.F |
64 |
MOM_V_RVISCFLUX |
& )*rkSign*recip_drC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
415 |
MOM_FLUXFORM |
& +(fVerU(i,j,kDown) - fVerU(i,j,kUp))*rkSign*rVelDudrFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
498 |
MOM_FLUXFORM |
& +( fVrDw(i,j) - fVrUp(i,j) )*rkSign*ArDudrFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
631 |
MOM_FLUXFORM |
& +(fVerV(i,j,kDown) - fVerV(i,j,kUp))*rkSign*rVelDvdrFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
713 |
MOM_FLUXFORM |
& +( fVrDw(i,j) - fVrUp(i,j) )*rkSign*ArDvdrFac |
|
./pkg/mom_vecinv/mom_vecinv.F |
350 |
MOM_VECINV |
& )*rkSign |
|
./pkg/mom_vecinv/mom_vecinv.F |
415 |
MOM_VECINV |
& )*rkSign |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
103 |
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_u_vertshear.F |
96 |
MOM_VI_U_VERTSHEAR |
uZm=(uFld(I,J,K,bi,bj)-mask_Km1*uFld(I,J,Km1,bi,bj))*rkSign |
|
./model/src/calc_gw.F |
382 |
CALC_GW |
& -wVel(i,j, k ,bi,bj) )*rkSign |
|
./model/src/calc_gw.F |
400 |
CALC_GW |
& -wVel(i,j,k-1,bi,bj) )*rkSign |
|
./model/src/calc_gw.F |
415 |
CALC_GW |
& + ( flx_Dn(i,j)-flxDisUp(i,j) )*rkSign |
|
./model/src/calc_gw.F |
517 |
CALC_GW |
& + ( flx_Dn(i,j)-flxAdvUp(i,j) )*rkSign*wUnit2rVel(k) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
103 |
MOM_VI_V_VERTSHEAR |
vZp=(mask_Kp1*vFld(I,J,Kp1,bi,bj)-vFld(I,J,K,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
96 |
MOM_VI_V_VERTSHEAR |
vZm=(vFld(I,J,K,bi,bj)-mask_Km1*vFld(I,J,Km1,bi,bj))*rkSign |
|
./model/src/calc_ivdc.F |
52 |
CALC_IVDC |
& (rhokm1(i,j)-rhokp1(i,j))*rkSign*gravitySign.GT.0. ) THEN |
|
./model/src/config_summary.F |
617 |
CONFIG_SUMMARY |
CALL WRITE_0D_RL( rkSign, INDEX_NONE,'rkSign =', |
|
./model/src/convective_adjustment.F |
107 |
CONVECTIVE_ADJUSTMENT |
IF ( rkSign*gravitySign .GT. 0. ) THEN |
|
./model/src/convective_adjustment_ini.F |
107 |
CONVECTIVE_ADJUSTMENT_INI |
IF ( rkSign*gravitySign .GT. 0. ) THEN |
|
./model/src/convective_weights.F |
61 |
CONVECTIVE_WEIGHTS |
& .AND. (rhokm1(i,j)-rhok(i,j))*rkSign*gravitySign .GT. 0. |
|
./pkg/smooth/smooth_rhs.F |
260 |
SMOOTH_RHS |
& -fld_in(i,j,k-1,bi,bj))*rkSign |
|
./pkg/smooth/smooth_rhs.F |
350 |
SMOOTH_RHS |
& +(fVerT(i,j,k,bi,bj)-fVerT(i,j,k-1,bi,bj))*rkSign |
|
./pkg/smooth/smooth_rhs.F |
361 |
SMOOTH_RHS |
& +(fVerT(i,j,k,bi,bj))*rkSign |
|
./model/src/grad_sigma.F |
98 |
GRAD_SIGMA |
& *recip_drC(k)*rkSign |
|
./model/src/impldiff.F |
338 |
IMPLDIFF |
& * (gXnm1(i,j,k,bi,bj) - gXnm1(i,j,k-1,bi,bj))*rkSign |
|
./model/src/impldiff.F |
352 |
IMPLDIFF |
& * (gXnm1(i,j,k,bi,bj) - gXnm1(i,j,k-1,bi,bj))*rkSign |
|
./model/src/impldiff.F |
368 |
IMPLDIFF |
& * (gXnm1(i,j,k,bi,bj) - gXnm1(i,j,k-1,bi,bj))*rkSign |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
211 |
GAD_IMPLICIT_R |
& *tracer(i,j,k,bi,bj)*(rTransKp1(i,j)-rTrans(i,j))*rkSign |
|
./model/src/ini_vertical_grid.F |
131 |
INI_VERTICAL_GRID |
rF(k+1) = rF(k) + rkSign*drF(k) |
|
./model/src/ini_vertical_grid.F |
133 |
INI_VERTICAL_GRID |
rC(1) = rF(1) + rkSign*drC(1) |
|
./model/src/ini_vertical_grid.F |
135 |
INI_VERTICAL_GRID |
rC(k) = rC(k-1) + rkSign*drC(k) |
|
./model/src/ini_vertical_grid.F |
311 |
INI_VERTICAL_GRID |
dAHybSigF(k) = ( aHybSigmF(k+1) - aHybSigmF(k) )*rkSign |
|
./model/src/ini_vertical_grid.F |
312 |
INI_VERTICAL_GRID |
dBHybSigF(k) = ( bHybSigmF(k+1) - bHybSigmF(k) )*rkSign |
|
./model/src/ini_vertical_grid.F |
315 |
INI_VERTICAL_GRID |
dAHybSigC(k) = ( aHybSigmC(k) - aHybSigmC(k-1) )*rkSign |
|
./model/src/ini_vertical_grid.F |
316 |
INI_VERTICAL_GRID |
dBHybSigC(k) = ( bHybSigmC(k) - bHybSigmC(k-1) )*rkSign |
|
./model/src/ini_vertical_grid.F |
318 |
INI_VERTICAL_GRID |
dAHybSigC(1) = ( aHybSigmC(1) - aHybSigmF(1) )*rkSign |
|
./model/src/ini_vertical_grid.F |
319 |
INI_VERTICAL_GRID |
dBHybSigC(1) = ( bHybSigmC(1) - bHybSigmF(1) )*rkSign |
|
./model/src/ini_vertical_grid.F |
320 |
INI_VERTICAL_GRID |
dAHybSigC(Nr+1) = ( aHybSigmF(Nr+1) - aHybSigmC(Nr) )*rkSign |
|
./model/src/ini_vertical_grid.F |
321 |
INI_VERTICAL_GRID |
dBHybSigC(Nr+1) = ( bHybSigmF(Nr+1) - bHybSigmC(Nr) )*rkSign |
|
./model/src/ini_vertical_grid.F |
56 |
INI_VERTICAL_GRID |
rkSign = -1. _d 0 |
|
./model/src/timestep_wvel.F |
70 |
TIMESTEP_WVEL |
& - tmpFac*rkSign*recip_drC(k) |
|
./model/src/timestep_wvel.F |
78 |
TIMESTEP_WVEL |
& - tmpFac*rkSign*recip_drC(k) |
|
./model/src/tracers_iigw_correction.F |
76 |
TRACERS_IIGW_CORRECTION |
IF ( k.GT.1 ) dTr_k = (tRef(k) - tRef(k-1))*rkSign |
|
./model/src/tracers_iigw_correction.F |
77 |
TRACERS_IIGW_CORRECTION |
dTrp1 = (tRef(kp1) - tRef(k))*rkSign |
|
./model/src/tracers_iigw_correction.F |
92 |
TRACERS_IIGW_CORRECTION |
IF ( k.GT.1 ) dTr_k = (sRef(k) - sRef(k-1))*rkSign |
|
./model/src/tracers_iigw_correction.F |
93 |
TRACERS_IIGW_CORRECTION |
dTrp1 = (sRef(kp1) - sRef(k))*rkSign |
|
./pkg/diagnostics/diagnostics_check.F |
123 |
DIAGNOSTICS_CHECK |
margin = rkSign*(rF(Nr+1)-rF(1))*0.1 _d 0 |
|
./model/inc/GRID.h |
317 |
NO PROCEDURE |
& gravitySign, rkSign, globalArea |
|
./model/inc/GRID.h |
331 |
NO PROCEDURE |
_RL rkSign |