| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
317 |
NO PROCEDURE |
& gravitySign, rkSign, globalArea |
|
./model/inc/GRID.h |
331 |
NO PROCEDURE |
_RL rkSign |
|
./pkg/flt/flt_mapping.F |
217 |
FLT_MAP_IJLOCAL2XY |
fm = ( rr - rF(k) ) * recip_drF(k)*rkSign |
|
./pkg/flt/flt_mapping.F |
266 |
FLT_MAP_IJLOCAL2XY |
FLT_MAP_K2R = rF(k) + ddz*drF(k)*rkSign |
|
./pkg/flt/flt_runga2.F |
109 |
FLT_RUNGA2 |
scalez=rkSign*recip_drF(kc) |
|
./pkg/flt/flt_runga4.F |
111 |
FLT_RUNGA4 |
scalez=rkSign*recip_drF(kc) |
|
./pkg/generic_advdiff/gad_advection.F |
1015 |
GAD_ADVECTION |
& *rkSign*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
1018 |
GAD_ADVECTION |
& *rkSign*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
1045 |
GAD_ADVECTION |
& )*rkSign*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
92 |
GAD_BIHARM_R |
tmpFac = rkSign*recip_drC(k)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
65 |
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 |
170 |
GAD_CALC_RHS |
rAdvFac = rkSign*advFac |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
171 |
GAD_CALC_RHS |
IF (implicitAdvection) rAdvFac = rkSign |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
727 |
GAD_CALC_RHS |
& +MAX(0. _d 0,fVerT(i,j,kDown)*rkSign) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
728 |
GAD_CALC_RHS |
& +MAX(0. _d 0,-fVerT(i,j,kUp)*rkSign) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
742 |
GAD_CALC_RHS |
IF (-fVerT(i,j,kUp)*rkSign .GT.0. _d 0) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
745 |
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 |
753 |
GAD_CALC_RHS |
& *( -fVerT(i,j,kDown)*rkSign ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
761 |
GAD_CALC_RHS |
& *( fVerT(i,j,kDown)*rkSign ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
780 |
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)-tracer(i,j,km1))*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 |
85 |
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 |
145 |
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 |
112 |
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 |
316 |
GAD_IMPLICIT_R |
& * kappaRX(i,j,k)*recip_drC(k)*rkSign |
|
./pkg/generic_advdiff/gad_implicit_r.F |
426 |
GAD_IMPLICIT_R |
& - rkSign*div(i,j)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
103 |
GAD_U3C4_IMPL_R |
& 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
135 |
GAD_U3C4_IMPL_R |
rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
60 |
GMREDI_DIAGNOSTICS_IMPL |
tmpVar(i,j) = -recip_drC(k)*rkSign |
|
./pkg/layers/layers_thermodynamics.F |
113 |
LAYERS_CALC_RHS |
layers_dfr(i,j,k,iTracer,bi,bj) = tmpfac * rkSign * |
|
./pkg/layers/layers_thermodynamics.F |
123 |
LAYERS_CALC_RHS |
layers_afr(i,j,k,iTracer,bi,bj) = tmpfac * rkSign * |
|
./model/src/calc_gw.F |
415 |
CALC_GW |
& -wVel(i,j, k ,bi,bj) )*rkSign |
|
./model/src/calc_gw.F |
433 |
CALC_GW |
& -wVel(i,j,k-1,bi,bj) )*rkSign |
|
./model/src/calc_gw.F |
448 |
CALC_GW |
& + ( flx_Dn(i,j)-flxDisUp(i,j) )*rkSign |
|
./model/src/calc_gw.F |
567 |
CALC_GW |
& + ( flx_Dn(i,j)-flxAdvUp(i,j) )*rkSign*wUnit2rVel(k) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
102 |
MOM_CALC_3D_STRAIN |
str33(i,j,k) = recip_drF(k)*rkSign |
|
./pkg/mom_common/mom_calc_3d_strain.F |
132 |
MOM_CALC_3D_STRAIN |
& recip_drC(k)*rkSign |
|
./pkg/mom_common/mom_calc_3d_strain.F |
142 |
MOM_CALC_3D_STRAIN |
& recip_drC(k)*rkSign |
|
./pkg/mom_common/mom_calc_3d_strain.F |
154 |
MOM_CALC_3D_STRAIN |
& recip_drC(k)*rkSign |
|
./pkg/mom_common/mom_calc_3d_strain.F |
165 |
MOM_CALC_3D_STRAIN |
& recip_drC(k)*rkSign |
|
./pkg/mom_common/mom_calc_3d_strain.F |
216 |
MOM_CALC_3D_STRAIN |
& recip_drF(Nr)*rkSign |
|
./pkg/mom_common/mom_calc_3d_strain.F |
226 |
MOM_CALC_3D_STRAIN |
& recip_drF(Nr)*rkSign |
|
./pkg/mom_common/mom_u_implicit_r.F |
167 |
MOM_U_IMPLICIT_R |
& *recip_rAw(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_u_implicit_r.F |
192 |
MOM_U_IMPLICIT_R |
& *recip_rAw(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_u_implicit_r.F |
299 |
MOM_U_IMPLICIT_R |
& * kappaRU(i,j,k)*recip_drC(k)*rkSign |
|
./pkg/mom_common/mom_u_rviscflux.F |
64 |
MOM_U_RVISCFLUX |
& )*rkSign*recip_drC(k) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
113 |
MOM_UV_SMAG_3D |
& )*rkSign*recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
91 |
MOM_UV_SMAG_3D |
& )*rkSign*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
167 |
MOM_V_IMPLICIT_R |
& *recip_rAs(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_v_implicit_r.F |
192 |
MOM_V_IMPLICIT_R |
& *recip_rAs(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_v_implicit_r.F |
299 |
MOM_V_IMPLICIT_R |
& * kappaRV(i,j,k)*recip_drC(k)*rkSign |
|
./pkg/mom_common/mom_v_rviscflux.F |
64 |
MOM_V_RVISCFLUX |
& )*rkSign*recip_drC(k) |
|
./pkg/mom_common/mom_w_smag_3d.F |
94 |
MOM_W_SMAG_3D |
& )*rkSign |
|
./pkg/mom_fluxform/mom_fluxform.F |
449 |
MOM_FLUXFORM |
& +( fVerUkp(i,j) - fVerUkm(i,j) )*rkSign*rVelDudrFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
546 |
MOM_FLUXFORM |
& +( fVrDw(i,j) - fVrUp(i,j) )*rkSign*ArDudrFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
682 |
MOM_FLUXFORM |
& +( fVerVkp(i,j) - fVerVkm(i,j) )*rkSign*rVelDvdrFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
778 |
MOM_FLUXFORM |
& +( fVrDw(i,j) - fVrUp(i,j) )*rkSign*ArDvdrFac |
|
./pkg/mom_vecinv/mom_vecinv.F |
468 |
MOM_VECINV |
& *( fVerUkp(i,j) - fVerUkm(i,j) )*rkSign |
|
./pkg/mom_vecinv/mom_vecinv.F |
539 |
MOM_VECINV |
& *( fVerVkp(i,j) - fVerVkm(i,j) )*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 |
|
./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/config_summary.F |
830 |
CONFIG_SUMMARY |
CALL WRITE_0D_RL( rkSign, INDEX_NONE,'rkSign =', |
|
./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/diags_rho.F |
74 |
DIAGS_RHO_L |
& *( rho3d(i,j,k) - rhoKm1(i,j) )*rkSign |
|
./model/src/diags_rho.F |
87 |
DIAGS_RHO_L |
& *( rhoKm1(i,j) - rho3d(i,j,k-1) )*rkSign |
|
./model/src/grad_sigma.F |
103 |
GRAD_SIGMA |
& *recip_drC(k)*rkSign |
|
./model/src/impldiff.F |
339 |
IMPLDIFF |
& * KappaRX(i,j,k)*recip_drC(k)*rkSign |
|
./model/src/impldiff.F |
355 |
IMPLDIFF |
& * KappaRX(i,j,k)*recip_drC(k)*rkSign |
|
./model/src/impldiff.F |
371 |
IMPLDIFF |
& * KappaRX(i,j,k)*recip_drC(k)*rkSign |
|
./pkg/smooth/smooth_rhs.F |
255 |
SMOOTH_RHS |
& -fld_in(i,j,k-1,bi,bj))*rkSign |
|
./pkg/smooth/smooth_rhs.F |
344 |
SMOOTH_RHS |
& +(fVerT(i,j,k,bi,bj)-fVerT(i,j,k-1,bi,bj))*rkSign |
|
./pkg/smooth/smooth_rhs.F |
356 |
SMOOTH_RHS |
& +(fVerT(i,j,k,bi,bj))*rkSign |
|
./model/src/ini_vertical_grid.F |
145 |
INI_VERTICAL_GRID |
rF(k+1) = rF(k) + rkSign*drF(k) |
|
./model/src/ini_vertical_grid.F |
147 |
INI_VERTICAL_GRID |
rC(1) = rF(1) + rkSign*drC(1) |
|
./model/src/ini_vertical_grid.F |
149 |
INI_VERTICAL_GRID |
rC(k) = rC(k-1) + rkSign*drC(k) |
|
./model/src/ini_vertical_grid.F |
165 |
INI_VERTICAL_GRID |
rF(k) = rF(k+1) - rkSign*drF(k) |
|
./model/src/ini_vertical_grid.F |
167 |
INI_VERTICAL_GRID |
rC(Nr) = rF(Nr+1) - rkSign*drC(Nr+1) |
|
./model/src/ini_vertical_grid.F |
169 |
INI_VERTICAL_GRID |
rC(k-1) = rC(k) - rkSign*drC(k) |
|
./model/src/ini_vertical_grid.F |
348 |
INI_VERTICAL_GRID |
dAHybSigF(k) = ( aHybSigmF(k+1) - aHybSigmF(k) )*rkSign |
|
./model/src/ini_vertical_grid.F |
349 |
INI_VERTICAL_GRID |
dBHybSigF(k) = ( bHybSigmF(k+1) - bHybSigmF(k) )*rkSign |
|
./model/src/ini_vertical_grid.F |
352 |
INI_VERTICAL_GRID |
dAHybSigC(k) = ( aHybSigmC(k) - aHybSigmC(k-1) )*rkSign |
|
./model/src/ini_vertical_grid.F |
353 |
INI_VERTICAL_GRID |
dBHybSigC(k) = ( bHybSigmC(k) - bHybSigmC(k-1) )*rkSign |
|
./model/src/ini_vertical_grid.F |
355 |
INI_VERTICAL_GRID |
dAHybSigC(1) = ( aHybSigmC(1) - aHybSigmF(1) )*rkSign |
|
./model/src/ini_vertical_grid.F |
356 |
INI_VERTICAL_GRID |
dBHybSigC(1) = ( bHybSigmC(1) - bHybSigmF(1) )*rkSign |
|
./model/src/ini_vertical_grid.F |
357 |
INI_VERTICAL_GRID |
dAHybSigC(Nr+1) = ( aHybSigmF(Nr+1) - aHybSigmC(Nr) )*rkSign |
|
./model/src/ini_vertical_grid.F |
358 |
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 |
74 |
TIMESTEP_WVEL |
& - tmpFac*rkSign*recip_drC(k) |
|
./model/src/timestep_wvel.F |
82 |
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 |
149 |
DIAGNOSTICS_CHECK |
margin = rkSign*(rF(Nr+1)-rF(1))*0.1 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
336 |
DIAGNOSTICS_FILL_STATE |
& + (rF(k+1)-rC(k))*hFacC(i,j,k,bi,bj)*rkSign |