| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_xtransport.F |
118 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
130 |
GMREDI_XTRANSPORT |
& +op5*recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_xtransport.F |
131 |
GMREDI_XTRANSPORT |
& ( maskC(i-1,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
132 |
GMREDI_XTRANSPORT |
& (Tracer(i-1,j,k,bi,bj)-Tracer(i-1,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
133 |
GMREDI_XTRANSPORT |
& +maskC( i ,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
134 |
GMREDI_XTRANSPORT |
& (Tracer( i ,j,k,bi,bj)-Tracer( i ,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
155 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
160 |
GMREDI_XTRANSPORT |
uTrans(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
52 |
GMREDI_XTRANSPORT |
INTEGER km1,kp1 |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
47 |
GMREDI_CALC_UVFLOW |
INTEGER kp1 |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
54 |
GMREDI_CALC_UVFLOW |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
59 |
GMREDI_CALC_UVFLOW |
delPsi = GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
69 |
GMREDI_CALC_UVFLOW |
delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
311 |
GMREDI_CALC_TENSOR |
kp1 = MIN(Nr,k+1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
353 |
GMREDI_CALC_TENSOR |
& +maskp1*(sigmaR(i-1,j,kp1) +sigmaR(i,j,kp1)) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
44 |
GMREDI_CALC_TENSOR |
INTEGER i,j,k,kp1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
450 |
GMREDI_CALC_TENSOR |
& +recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
451 |
GMREDI_CALC_TENSOR |
& ( maskC(i-1,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
452 |
GMREDI_CALC_TENSOR |
& (theta(i-1,j,k,bi,bj)-theta(i-1,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
453 |
GMREDI_CALC_TENSOR |
& +maskC( i ,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
454 |
GMREDI_CALC_TENSOR |
& (theta( i ,j,k,bi,bj)-theta( i ,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
474 |
GMREDI_CALC_TENSOR |
& +maskp1*(sigmaR(i,j-1,kp1) +sigmaR(i,j,kp1)) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
569 |
GMREDI_CALC_TENSOR |
& +recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
570 |
GMREDI_CALC_TENSOR |
& ( maskC(i,j-1,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
571 |
GMREDI_CALC_TENSOR |
& (theta(i,j-1,k,bi,bj)-theta(i,j-1,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
572 |
GMREDI_CALC_TENSOR |
& +maskC(i, j ,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
573 |
GMREDI_CALC_TENSOR |
& (theta(i, j ,k,bi,bj)-theta(i, j ,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
118 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
131 |
GMREDI_YTRANSPORT |
& +op5*recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_ytransport.F |
132 |
GMREDI_YTRANSPORT |
& ( maskC(i,j-1,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
133 |
GMREDI_YTRANSPORT |
& (Tracer(i,j-1,k,bi,bj)-Tracer(i,j-1,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
134 |
GMREDI_YTRANSPORT |
& +maskC(i, j ,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
135 |
GMREDI_YTRANSPORT |
& (Tracer(i, j ,k,bi,bj)-Tracer(i, j ,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
155 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
160 |
GMREDI_YTRANSPORT |
vTrans(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
52 |
GMREDI_YTRANSPORT |
INTEGER km1,kp1 |
|
./model/src/tracers_iigw_correction.F |
48 |
TRACERS_IIGW_CORRECTION |
INTEGER kp1 |
|
./model/src/tracers_iigw_correction.F |
65 |
TRACERS_IIGW_CORRECTION |
kp1 = MIN(k+1,Nr) |
|
./model/src/tracers_iigw_correction.F |
69 |
TRACERS_IIGW_CORRECTION |
dWp1(i,j) = ( wVel(i,j,kp1,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
70 |
TRACERS_IIGW_CORRECTION |
& - gW(i,j,kp1,bi,bj) )*maskC(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
77 |
TRACERS_IIGW_CORRECTION |
dTrp1 = (tRef(kp1) - tRef(k))*rkSign |
|
./model/src/tracers_iigw_correction.F |
93 |
TRACERS_IIGW_CORRECTION |
dTrp1 = (sRef(kp1) - sRef(k))*rkSign |
|
./model/src/taueddy_external_forcing.F |
146 |
TAUEDDY_EXTERNAL_FORCING_V |
& -maskp1*_maskS(i,j,kp1,bi,bj)*eddyTauY(i,j,kp1,bi,bj)) |
|
./model/src/taueddy_external_forcing.F |
72 |
TAUEDDY_EXTERNAL_FORCING_U |
& -maskp1*_maskW(i,j,kp1,bi,bj)*eddyTauX(i,j,kp1,bi,bj)) |
|
./pkg/fizhi/fizhi_moist.F |
1174 |
RAS |
integer km1,kp1,kprv,kcr,kfx,ncmx |
|
./model/src/external_forcing.F |
265 |
EXTERNAL_FORCING_T |
INTEGER kp1 |
|
./model/src/external_forcing.F |
322 |
EXTERNAL_FORCING_T |
kp1 = klev+1 |
|
./model/src/external_forcing.F |
324 |
EXTERNAL_FORCING_T |
kp1 = klev |
|
./model/src/external_forcing.F |
331 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
284 |
EXTERNAL_FORCING_T |
INTEGER kp1 |
|
./verification/tidal_basin_2d/code/external_forcing.F |
328 |
EXTERNAL_FORCING_T |
kp1 = klev+1 |
|
./verification/tidal_basin_2d/code/external_forcing.F |
330 |
EXTERNAL_FORCING_T |
kp1 = klev |
|
./verification/tidal_basin_2d/code/external_forcing.F |
337 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./verification/rotating_tank/code/external_forcing.F |
297 |
EXTERNAL_FORCING_T |
INTEGER kp1 |
|
./verification/rotating_tank/code/external_forcing.F |
341 |
EXTERNAL_FORCING_T |
kp1 = klev+1 |
|
./verification/rotating_tank/code/external_forcing.F |
343 |
EXTERNAL_FORCING_T |
kp1 = klev |
|
./verification/rotating_tank/code/external_forcing.F |
350 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./verification/OpenAD/code/gad_fluxlimit_impl_r.F |
64 |
GAD_FLUXLIMIT_IMPL_R |
INTEGER i,j,kp1,km1,km2 |
|
./verification/OpenAD/code/gad_fluxlimit_impl_r.F |
76 |
GAD_FLUXLIMIT_IMPL_R |
kp1=MIN(Nr,k+1) |
|
./verification/OpenAD/code/gad_fluxlimit_impl_r.F |
86 |
GAD_FLUXLIMIT_IMPL_R |
Rjp=(tFld(i,j,kp1)-tFld(i,j,k) )*maskC(i,j,kp1,bi,bj) |
|
./verification/OpenAD/code/gad_fluxlimit_adv_r.F |
100 |
GAD_FLUXLIMIT_ADV_R |
Rjp=(tracer(i,j,kp1,bi,bj)-tracer(i,j,k,bi,bj)) |
|
./verification/OpenAD/code/gad_fluxlimit_adv_r.F |
101 |
GAD_FLUXLIMIT_ADV_R |
& *maskC(i,j,kp1,bi_arg,bj_arg) |
|
./verification/OpenAD/code/gad_fluxlimit_adv_r.F |
64 |
GAD_FLUXLIMIT_ADV_R |
INTEGER i,j,kp1,km1,km2,bi,bj |
|
./verification/OpenAD/code/gad_fluxlimit_adv_r.F |
86 |
GAD_FLUXLIMIT_ADV_R |
kp1=MIN(Nr,k+1) |
|
./model/src/dynamics.F |
190 |
DYNAMICS |
INTEGER k, km1, kp1, kup, kDown |
|
./model/src/dynamics.F |
389 |
DYNAMICS |
kp1 = MIN(k+1,Nr) |
|
./model/src/calc_gw.F |
130 |
CALC_GW |
kp1=k+1 |
|
./model/src/calc_gw.F |
133 |
CALC_GW |
kp1=Nr |
|
./model/src/calc_gw.F |
285 |
CALC_GW |
& +KappaRU(i,j,kp1)+KappaRU(i+1,j,kp1) |
|
./model/src/calc_gw.F |
287 |
CALC_GW |
& +KappaRV(i,j,kp1)+KappaRV(i,j+1,kp1) |
|
./model/src/calc_gw.F |
290 |
CALC_GW |
& - viscLoc*( wVel(i,j,kp1,bi,bj)*wOverRide |
|
./model/src/calc_gw.F |
366 |
CALC_GW |
& +wVel(i,j,kp1,bi,bj)*wOverRide ) |
|
./model/src/calc_gw.F |
86 |
CALC_GW |
INTEGER i,j,k, kp1 |
|
./model/src/solve_for_pressure.F |
399 |
SOLVE_FOR_PRESSURE |
kp1 = MIN(k+1,Nr) |
|
./model/src/solve_for_pressure.F |
410 |
SOLVE_FOR_PRESSURE |
& -wVel(i,j,kp1,bi,bj)*maskKp1 |
|
./model/src/solve_for_pressure.F |
415 |
SOLVE_FOR_PRESSURE |
kp1 = MIN(k+1,Nr) |
|
./model/src/solve_for_pressure.F |
426 |
SOLVE_FOR_PRESSURE |
& -wVel(i,j,kp1,bi,bj)*maskKp1 |
|
./model/src/solve_for_pressure.F |
67 |
SOLVE_FOR_PRESSURE |
INTEGER ks, kp1 |
|
./pkg/ggl90/ggl90_calc.F |
295 |
GGL90_CALC |
kp1=min(Nr,k+1) |
|
./pkg/ggl90/ggl90_calc.F |
300 |
GGL90_CALC |
& *.5*(KappaE(i,j,k)+KappaE(i,j,kp1)) |
|
./pkg/ggl90/ggl90_calc.F |
302 |
GGL90_CALC |
IF (recip_hFacI(i,j,kp1,bi,bj).EQ.0.) c(i,j,k)=0. |
|
./pkg/kpp/kpp_calc.F |
197 |
KPP_CALC |
integer i, j, k, kp1, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_calc.F |
601 |
KPP_CALC |
kp1 = k + 1 |
|
./pkg/kpp/kpp_calc.F |
609 |
KPP_CALC |
$ (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
610 |
KPP_CALC |
$ (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
611 |
KPP_CALC |
$ (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
612 |
KPP_CALC |
$ (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
613 |
KPP_CALC |
$ (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
614 |
KPP_CALC |
$ (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
615 |
KPP_CALC |
$ (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
616 |
KPP_CALC |
$ (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
619 |
KPP_CALC |
$ (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
620 |
KPP_CALC |
$ (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
621 |
KPP_CALC |
$ (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
622 |
KPP_CALC |
$ (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
623 |
KPP_CALC |
$ (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
624 |
KPP_CALC |
$ (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
625 |
KPP_CALC |
$ (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
626 |
KPP_CALC |
$ (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
627 |
KPP_CALC |
$ (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
628 |
KPP_CALC |
$ (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
629 |
KPP_CALC |
$ (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
630 |
KPP_CALC |
$ (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
631 |
KPP_CALC |
$ (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
632 |
KPP_CALC |
$ (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
633 |
KPP_CALC |
$ (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
634 |
KPP_CALC |
$ (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_routines.F |
847 |
Z121 |
integer i, k, km1, kp1 |
|
./pkg/kpp/kpp_routines.F |
884 |
Z121 |
kp1 = k + 1 |
|
./pkg/kpp/kpp_routines.F |
887 |
Z121 |
& KRi_range(k) * KRi_range(kp1) * v(i,kp1) + |
|
./pkg/kpp/kpp_routines.F |
890 |
Z121 |
zflag = p2 + KRi_range(k)*(KRi_range(kp1)+KRi_range(km1)) |
|
./pkg/mom_common/mom_v_metric_nh.F |
58 |
MOM_V_METRIC_NH |
& (wFld(i,j,kp1,bi,bj)+wFld(i,j-1,kp1,bi,bj)) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
44 |
MOM_V_CORIOLIS_NH |
INTEGER i,j,kp1 |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
49 |
MOM_V_CORIOLIS_NH |
kp1=min(k+1,Nr) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
58 |
MOM_V_CORIOLIS_NH |
& *0.5*( wFld( i ,j,k,bi,bj)+wFld( i ,j,kp1,bi,bj)*wMsk ) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
60 |
MOM_V_CORIOLIS_NH |
& *0.5*( wFld(i,j-1,k,bi,bj)+wFld(i,j-1,kp1,bi,bj)*wMsk ) ) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
44 |
MOM_U_CORIOLIS_NH |
INTEGER i,j,kp1 |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
49 |
MOM_U_CORIOLIS_NH |
kp1=min(k+1,Nr) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
58 |
MOM_U_CORIOLIS_NH |
& *0.5*( wFld( i ,j,k,bi,bj)+wFld( i ,j,kp1,bi,bj)*wMsk ) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
60 |
MOM_U_CORIOLIS_NH |
& *0.5*( wFld(i-1,j,k,bi,bj)+wFld(i-1,j,kp1,bi,bj)*wMsk ) ) |
|
./pkg/mom_common/mom_calc_visc.F |
422 |
MOM_CALC_VISC |
kp1 = MIN(k+1,Nr) |
|
./pkg/mom_common/mom_calc_visc.F |
425 |
MOM_CALC_VISC |
viscAh_W(i,j,kp1,bi,bj)=0.5*viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
426 |
MOM_CALC_VISC |
viscA4_W(i,j,kp1,bi,bj)=0.5*viscA4_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
432 |
MOM_CALC_VISC |
viscAh_W(i,j,kp1,bi,bj)=0.5*viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
433 |
MOM_CALC_VISC |
viscA4_W(i,j,kp1,bi,bj)=0.5*viscA4_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
96 |
MOM_CALC_VISC |
INTEGER kp1 |
|
./pkg/mom_common/mom_u_metric_nh.F |
58 |
MOM_U_METRIC_NH |
& (wFld(i-1,j,kp1,bi,bj)+wFld(i,j,kp1,bi,bj)) |
|
./pkg/land/land_stepfwd.F |
116 |
LAND_STEPFWD |
& -land_groundT(i,j,kp1,bi,bj) ) |
|
./pkg/land/land_stepfwd.F |
117 |
LAND_STEPFWD |
& *land_rec_dzC(kp1) |
|
./pkg/land/land_stepfwd.F |
273 |
LAND_STEPFWD |
kp1 = k |
|
./pkg/land/land_stepfwd.F |
276 |
LAND_STEPFWD |
kp1 = k+1 |
|
./pkg/land/land_stepfwd.F |
317 |
LAND_STEPFWD |
& land_groundT(i,j,kp1,bi,bj).LT.0. _d 0 ) THEN |
|
./pkg/land/land_stepfwd.F |
325 |
LAND_STEPFWD |
& -land_groundW(i,j,kp1,bi,bj) ) |
|
./pkg/land/land_stepfwd.F |
333 |
LAND_STEPFWD |
& *land_groundT(i,j,kp1,bi,bj) |
|
./pkg/land/land_stepfwd.F |
81 |
LAND_STEPFWD |
INTEGER i,j,k,kp1 |
|
./pkg/land/land_stepfwd.F |
94 |
LAND_STEPFWD |
kp1 = MIN(k+1,land_nLev) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
58 |
GAD_DST3_ADV_R |
INTEGER i,j,kp1,km1,km2 |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
72 |
GAD_DST3_ADV_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
76 |
GAD_DST3_ADV_R |
Rjp=(tracer(i,j,k)-tracer(i,j,kp1)) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
77 |
GAD_DST3_ADV_R |
& *maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
56 |
GAD_C4_ADV_R |
INTEGER i,j,kp1,km1,km2 |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
63 |
GAD_C4_ADV_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
76 |
GAD_C4_ADV_R |
maskBound = maskPM*maskC(i,j,km2,bi,bj)*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
77 |
GAD_C4_ADV_R |
Rjp=(tracer(i,j,kp1,bi,bj)-tracer(i,j,k,bi,bj)) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
78 |
GAD_C4_ADV_R |
& *maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
55 |
GAD_DST3FL_ADV_R |
INTEGER i,j,kp1,km1,km2 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
64 |
GAD_DST3FL_ADV_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
68 |
GAD_DST3FL_ADV_R |
Rjp=(tracer(i,j,k)-tracer(i,j,kp1)) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
69 |
GAD_DST3FL_ADV_R |
& *maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
65 |
GAD_FLUXLIMIT_IMPL_R |
INTEGER i,j,kp1,km1,km2 |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
77 |
GAD_FLUXLIMIT_IMPL_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
87 |
GAD_FLUXLIMIT_IMPL_R |
Rjp=(tFld(i,j,kp1)-tFld(i,j,k) )*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
54 |
GAD_U3_ADV_R |
INTEGER i,j,kp1,km1,km2 |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
60 |
GAD_U3_ADV_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
71 |
GAD_U3_ADV_R |
Rjp=(tracer(i,j,kp1,bi,bj)-tracer(i,j,k,bi,bj)) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
72 |
GAD_U3_ADV_R |
& *maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
64 |
GAD_FLUXLIMIT_ADV_R |
INTEGER i,j,kp1,km1,km2 |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
73 |
GAD_FLUXLIMIT_ADV_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
87 |
GAD_FLUXLIMIT_ADV_R |
Rjp=(tracer(i,j,kp1)-tracer(i,j,k)) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
88 |
GAD_FLUXLIMIT_ADV_R |
& *maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
70 |
GAD_U3C4_IMPL_R |
INTEGER i,j,kp1,km2 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
81 |
GAD_U3C4_IMPL_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
95 |
GAD_U3C4_IMPL_R |
mskP = maskC(i,j,kp1,bi,bj)*maskP1 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
111 |
GAD_DST3FL_IMPL_R |
Rjh = (tFld(i,j,kp1)-tFld(i,j,k) )*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
144 |
GAD_DST3FL_IMPL_R |
mskP = maskC(i,j,kp1,bi,bj)*maskP1 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
71 |
GAD_DST3FL_IMPL_R |
INTEGER i,j,kp1,km2 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
85 |
GAD_DST3FL_IMPL_R |
kp1=MIN(Nr,k+1) |