| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1232 |
RAS |
integer km1,kp1,kprv,kcr,kfx,ncmx |
|
./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)-tracer(i,j, k ))*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
59 |
GAD_DST3_ADV_R |
INTEGER i,j,kp1,km1,km2 |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
75 |
GAD_DST3_ADV_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
79 |
GAD_DST3_ADV_R |
Rjp=(tracer(i,j,k)-tracer(i,j,kp1)) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
80 |
GAD_DST3_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 |
73 |
GAD_DST3FL_ADV_R |
Rjp=(tracer(i,j,k)-tracer(i,j,kp1)) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
74 |
GAD_DST3FL_ADV_R |
& *maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
114 |
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 |
147 |
GAD_DST3FL_IMPL_R |
mskP = maskC(i,j,kp1,bi,bj)*maskP1 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
73 |
GAD_DST3FL_IMPL_R |
INTEGER i,j,kp1,km2 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
87 |
GAD_DST3FL_IMPL_R |
kp1=MIN(Nr,k+1) |
|
./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_fluxlimit_impl_r.F |
67 |
GAD_FLUXLIMIT_IMPL_R |
INTEGER i,j,kp1,km1,km2 |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
79 |
GAD_FLUXLIMIT_IMPL_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
90 |
GAD_FLUXLIMIT_IMPL_R |
Rjp=(tFld(i,j,kp1)-tFld(i,j,k) )*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
359 |
GAD_IMPLICIT_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
367 |
GAD_IMPLICIT_R |
& + gTracer(i,j,kp1)*d5d(i,j,k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
93 |
GAD_IMPLICIT_R |
INTEGER km1, km2, kp1, kp2 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
34 |
GAD_OS7MP_ADV_R |
INTEGER i,j,kp3,kp2,kp1,km1,km2,km3,km4 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
55 |
GAD_OS7MP_ADV_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
67 |
GAD_OS7MP_ADV_R |
Qipp = Q(i,j,kp1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
74 |
GAD_OS7MP_ADV_R |
MskIpp = maskC(i,j,kp2,bi,bj) * float(kp2-kp1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
75 |
GAD_OS7MP_ADV_R |
MskIp = maskC(i,j,kp1,bi,bj) * float(kp1-k) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
85 |
GAD_OS7MP_ADV_R |
Qim = Q(i,j,kp1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
92 |
GAD_OS7MP_ADV_R |
MskIm = maskC(i,j,kp1,bi,bj) * float(kp1-k) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
93 |
GAD_OS7MP_ADV_R |
MskImm = maskC(i,j,kp2,bi,bj) * float(kp2-kp1) |
|
./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)-tracer(i,j, k ))*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
105 |
GAD_U3C4_IMPL_R |
mskP = maskC(i,j,kp1,bi,bj)*maskP1 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
137 |
GAD_U3C4_IMPL_R |
mskP = maskC(i,j,kp1,bi,bj)*maskP1 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
72 |
GAD_U3C4_IMPL_R |
INTEGER i,j,kp1,km2 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
89 |
GAD_U3C4_IMPL_R |
kp1=MIN(Nr,k+1) |
|
./pkg/ggl90/ggl90_calc.F |
579 |
GGL90_CALC |
kp1=MAX(1,MIN(klowC(i,j,bi,bj),k+1)) |
|
./pkg/ggl90/ggl90_calc.F |
585 |
GGL90_CALC |
& *.5 _d 0*(KappaE(i,j,k)+KappaE(i,j,kp1)) |
|
./pkg/ggl90/ggl90_calc.F |
629 |
GGL90_CALC |
kp1 = MIN(Nr,kSurf+1) |
|
./pkg/ggl90/ggl90_calc.F |
642 |
GGL90_CALC |
GGL90TKE(i,j,kp1,bi,bj) = GGL90TKE(i,j,kp1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
643 |
GGL90_CALC |
& - a3d(i,j,kp1)*GGL90TKE(i,j,kSurf,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
644 |
GGL90_CALC |
a3d(i,j,kp1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
78 |
GGL90_CALC |
INTEGER i, j, k, kp1, km1, kSurf, kBottom |
|
./pkg/ggl90/ggl90_calc.F |
790 |
GGL90_CALC |
kp1 = MIN(Nr,kSurf+1) |
|
./pkg/ggl90/ggl90_calc.F |
795 |
GGL90_CALC |
& GGL90TKE(i,j,kp1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
797 |
GGL90_CALC |
& *KappaE(i,j,kp1) |
|
./pkg/ggl90/ggl90_idemix.F |
343 |
GGL90_IDEMIX |
kp1=MAX(1,MIN(klowC(i,j,bi,bj),k+1)) |
|
./pkg/ggl90/ggl90_idemix.F |
344 |
GGL90_IDEMIX |
c3d(i,j,k) = -delta(i,j,k)*c0(i,j,kp1) |
|
./pkg/ggl90/ggl90_idemix.F |
60 |
GGL90_IDEMIX |
INTEGER i, j, k, kp1, km1, kBottom |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1049 |
GMREDI_CALC_TENSOR |
& +recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1050 |
GMREDI_CALC_TENSOR |
& ( maskC(i,j-1,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1051 |
GMREDI_CALC_TENSOR |
& (theta(i,j-1,k,bi,bj)-theta(i,j-1,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1052 |
GMREDI_CALC_TENSOR |
& +maskC(i, j ,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1053 |
GMREDI_CALC_TENSOR |
& (theta(i, j ,k,bi,bj)-theta(i, j ,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
668 |
GMREDI_CALC_TENSOR |
kp1 = MIN(Nr,k+1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
684 |
GMREDI_CALC_TENSOR |
& +(sigmaR(i-1,j,kp1)+sigmaR(i,j,kp1))*maskp1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
831 |
GMREDI_CALC_TENSOR |
& +recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
832 |
GMREDI_CALC_TENSOR |
& ( maskC(i-1,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
833 |
GMREDI_CALC_TENSOR |
& (theta(i-1,j,k,bi,bj)-theta(i-1,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
834 |
GMREDI_CALC_TENSOR |
& +maskC( i ,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
835 |
GMREDI_CALC_TENSOR |
& (theta( i ,j,k,bi,bj)-theta( i ,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
886 |
GMREDI_CALC_TENSOR |
kp1 = MIN(Nr,k+1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
901 |
GMREDI_CALC_TENSOR |
& +(sigmaR(i,j-1,kp1)+sigmaR(i,j,kp1))*maskp1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
97 |
GMREDI_CALC_TENSOR |
INTEGER kp1 |
|
./pkg/gmredi/gmredi_k3d.F |
442 |
GMREDI_K3D |
kp1 = min(k+1,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
448 |
GMREDI_K3D |
& *op5*(N(i,j,k)+mskp1*N(i,j,kp1)) |
|
./pkg/gmredi/gmredi_k3d.F |
486 |
GMREDI_K3D |
kp1 = min(k+1,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
494 |
GMREDI_K3D |
N2loc(i,j,k) = op5*(N2(i,j,k)+mskp1*N2(i,j,kp1)) |
|
./pkg/gmredi/gmredi_k3d.F |
52 |
GMREDI_K3D |
INTEGER i,j,k,kk,m,kp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
100 |
GMREDI_RESIDUAL_FLOW |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_residual_flow.F |
106 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
114 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
49 |
GMREDI_RESIDUAL_FLOW |
INTEGER kp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
61 |
GMREDI_RESIDUAL_FLOW |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_residual_flow.F |
67 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
75 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
151 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
163 |
GMREDI_XTRANSPORT |
& +op5*recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_xtransport.F |
164 |
GMREDI_XTRANSPORT |
& ( maskC(i-1,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
165 |
GMREDI_XTRANSPORT |
& (Tracer(i-1,j,k)-Tracer(i-1,j,kp1)) |
|
./pkg/gmredi/gmredi_xtransport.F |
166 |
GMREDI_XTRANSPORT |
& +maskC( i ,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
167 |
GMREDI_XTRANSPORT |
& (Tracer( i ,j,k)-Tracer( i ,j,kp1)) |
|
./pkg/gmredi/gmredi_xtransport.F |
188 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
193 |
GMREDI_XTRANSPORT |
uTrans(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
216 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
221 |
GMREDI_XTRANSPORT |
tmp1k(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
74 |
GMREDI_XTRANSPORT |
INTEGER kp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
150 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
162 |
GMREDI_YTRANSPORT |
& +op5*recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_ytransport.F |
163 |
GMREDI_YTRANSPORT |
& ( maskC(i,j-1,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
164 |
GMREDI_YTRANSPORT |
& (Tracer(i,j-1,k)-Tracer(i,j-1,kp1)) |
|
./pkg/gmredi/gmredi_ytransport.F |
165 |
GMREDI_YTRANSPORT |
& +maskC(i, j ,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
166 |
GMREDI_YTRANSPORT |
& (Tracer(i, j ,k)-Tracer(i, j ,kp1)) |
|
./pkg/gmredi/gmredi_ytransport.F |
187 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
192 |
GMREDI_YTRANSPORT |
vTrans(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
214 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
219 |
GMREDI_YTRANSPORT |
tmp1k(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
73 |
GMREDI_YTRANSPORT |
INTEGER kp1 |
|
./model/src/apply_forcing.F |
452 |
APPLY_FORCING_T |
INTEGER kp1 |
|
./model/src/apply_forcing.F |
682 |
APPLY_FORCING_T |
kp1 = k+1 |
|
./model/src/apply_forcing.F |
684 |
APPLY_FORCING_T |
kp1 = k |
|
./model/src/apply_forcing.F |
691 |
APPLY_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./pkg/kpp/kpp_calc.F |
214 |
KPP_CALC |
integer i, j, k, kp1, km1, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_calc.F |
464 |
KPP_CALC |
kp1 = k + 1 |
|
./pkg/kpp/kpp_calc.F |
472 |
KPP_CALC |
& (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
473 |
KPP_CALC |
& (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
474 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
475 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
476 |
KPP_CALC |
& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
477 |
KPP_CALC |
& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
478 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
479 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
482 |
KPP_CALC |
& (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
483 |
KPP_CALC |
& (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
484 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
485 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
486 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
487 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
488 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
489 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
490 |
KPP_CALC |
& (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
491 |
KPP_CALC |
& (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
492 |
KPP_CALC |
& (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
493 |
KPP_CALC |
& (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
494 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
495 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
496 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
497 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
143 |
KPP_FORCING_SURF |
INTEGER kp1 |
|
./pkg/kpp/kpp_forcing_surf.F |
231 |
KPP_FORCING_SURF |
kp1 = k+1 |
|
./pkg/kpp/kpp_forcing_surf.F |
236 |
KPP_FORCING_SURF |
boplume(I,J,kp1) = boplume(I,J,k)+temparray(I,J) |
|
./pkg/kpp/kpp_routines.F |
1084 |
RI_IWMIX |
kp1 = MIN(ki+1,Nr) |
|
./pkg/kpp/kpp_routines.F |
1087 |
RI_IWMIX |
diffus(i,ki,2) = diffusKzS(i,kp1) |
|
./pkg/kpp/kpp_routines.F |
1088 |
RI_IWMIX |
diffus(i,ki,3) = diffusKzT(i,kp1) |
|
./pkg/kpp/kpp_routines.F |
1093 |
RI_IWMIX |
diffus(i,ki,2) = diffusKzS(i,kp1) |
|
./pkg/kpp/kpp_routines.F |
1094 |
RI_IWMIX |
diffus(i,ki,3) = diffusKzT(i,kp1) |
|
./pkg/kpp/kpp_routines.F |
1100 |
RI_IWMIX |
diffus(i,ki,2) = diffusKzS(i,kp1)+fcon*difscon+fRi*difs0 |
|
./pkg/kpp/kpp_routines.F |
1101 |
RI_IWMIX |
diffus(i,ki,3) = diffusKzT(i,kp1)+fcon*diftcon+fRi*dift0 |
|
./pkg/kpp/kpp_routines.F |
1152 |
Z121 |
integer i, k, km1, kp1 |
|
./pkg/kpp/kpp_routines.F |
1192 |
Z121 |
kp1 = k + 1 |
|
./pkg/kpp/kpp_routines.F |
1195 |
Z121 |
& KRi_range(k) * KRi_range(kp1) * v(i,kp1) + |
|
./pkg/kpp/kpp_routines.F |
1198 |
Z121 |
zflag = p2 + KRi_range(k)*(KRi_range(kp1)+KRi_range(km1)) |
|
./pkg/kpp/kpp_routines.F |
996 |
RI_IWMIX |
integer i, ki, kp1 |
|
./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/layers/layers_fluxcalc.F |
108 |
LAYERS_FLUXCALC |
INTEGER i,j,k,kk,kg,kci,kp1,kloc |
|
./pkg/layers/layers_fluxcalc.F |
178 |
LAYERS_FLUXCALC |
kp1=k+1 |
|
./pkg/layers/layers_fluxcalc.F |
179 |
LAYERS_FLUXCALC |
IF (maskW(i,j,kp1,bi,bj).EQ.zeroRS) kp1=k |
|
./pkg/layers/layers_fluxcalc.F |
183 |
LAYERS_FLUXCALC |
& 0.5 _d 0 * (tracer(i-1,j,kp1,bi,bj)+tracer(i,j,kp1,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
258 |
LAYERS_FLUXCALC |
kp1=k+1 |
|
./pkg/layers/layers_fluxcalc.F |
259 |
LAYERS_FLUXCALC |
IF (maskS(i,j,kp1,bi,bj).EQ.zeroRS) kp1=k |
|
./pkg/layers/layers_fluxcalc.F |
263 |
LAYERS_FLUXCALC |
& 0.5 _d 0 * (tracer(i,j-1,kp1,bi,bj)+tracer(i,j,kp1,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
462 |
LAYERS_DIAPYCNAL |
INTEGER kp1 |
|
./pkg/layers/layers_fluxcalc.F |
528 |
LAYERS_DIAPYCNAL |
kp1=k+1 |
|
./pkg/layers/layers_fluxcalc.F |
529 |
LAYERS_DIAPYCNAL |
IF (maskC(i,j,kp1,bi,bj).EQ.zeroRS) kp1=k |
|
./pkg/layers/layers_fluxcalc.F |
531 |
LAYERS_DIAPYCNAL |
& (1. _d 0 -MapFact(kk)) * tracer(i,j,kp1,bi,bj) |
|
./model/src/calc_gw.F |
119 |
CALC_GW |
INTEGER i,j,k, km1, kp1 |
|
./model/src/calc_gw.F |
184 |
CALC_GW |
kp1 = MIN( k+1,Nr ) |
|
./model/src/calc_gw.F |
414 |
CALC_GW |
& - viscLoc*( wVel(i,j,kp1,bi,bj)*mskP1 |
|
./model/src/calc_gw.F |
533 |
CALC_GW |
& +wVel(i,j,kp1,bi,bj)*rVel2wUnit(kp1)*mskP1 ) |
|
./model/src/calc_gw.F |
537 |
CALC_GW |
& +wVel(i,j,kp1,bi,bj)*deepFac2F(kp1)*rhoFacF(kp1) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
103 |
MOM_CALC_3D_STRAIN |
& *( maskp1*wVel( i , j ,kp1,bi,bj)-wVel( i , j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
52 |
MOM_CALC_3D_STRAIN |
INTEGER kp1 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
59 |
MOM_CALC_3D_STRAIN |
kp1 = MIN(k+1,Nr) |
|
./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 |
59 |
MOM_U_CORIOLIS_NH |
& +wFld( i ,j,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk ) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
62 |
MOM_U_CORIOLIS_NH |
& +wFld(i-1,j,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk ) |
|
./pkg/mom_common/mom_u_metric_nh.F |
46 |
MOM_U_METRIC_NH |
INTEGER i,j,kp1 |
|
./pkg/mom_common/mom_u_metric_nh.F |
50 |
MOM_U_METRIC_NH |
kp1=min(k+1,Nr) |
|
./pkg/mom_common/mom_u_metric_nh.F |
57 |
MOM_U_METRIC_NH |
& *0.25*( (wFld(i-1,j,kp1,bi,bj)+wFld(i,j,kp1,bi,bj)) |
|
./pkg/mom_common/mom_u_metric_nh.F |
58 |
MOM_U_METRIC_NH |
& *rVel2wUnit(kp1)*wVelBottomOverride |
|
./pkg/mom_common/mom_uv_smag_3d.F |
55 |
MOM_UV_SMAG_3D |
INTEGER km1, kp1 |
|
./pkg/mom_common/mom_uv_smag_3d.F |
59 |
MOM_UV_SMAG_3D |
kp1 = MIN(Nr,k+1) |
|
./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 |
59 |
MOM_V_CORIOLIS_NH |
& +wFld( i ,j,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk ) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
62 |
MOM_V_CORIOLIS_NH |
& +wFld(i,j-1,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk ) |
|
./pkg/mom_common/mom_v_metric_nh.F |
46 |
MOM_V_METRIC_NH |
INTEGER i,j,kp1 |
|
./pkg/mom_common/mom_v_metric_nh.F |
50 |
MOM_V_METRIC_NH |
kp1=min(k+1,Nr) |
|
./pkg/mom_common/mom_v_metric_nh.F |
57 |
MOM_V_METRIC_NH |
& *0.25*( (wFld(i,j-1,kp1,bi,bj)+wFld(i,j,kp1,bi,bj)) |
|
./pkg/mom_common/mom_v_metric_nh.F |
58 |
MOM_V_METRIC_NH |
& *rVel2wUnit(kp1)*wVelBottomOverride |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
140 |
MOM_UV_BOUNDARY |
& +uFld(i,j,kp1,bi,bj)*maskP1) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
154 |
MOM_UV_BOUNDARY |
& +vFld(i,j,kp1,bi,bj)*maskP1) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
55 |
MOM_UV_BOUNDARY |
INTEGER km1,kp1 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
79 |
MOM_UV_BOUNDARY |
kp1 = MIN( k+1, Nr ) |
|
./model/src/cg3d.F |
203 |
CG3D |
kp1 = MIN(k+1, Nr) |
|
./model/src/cg3d.F |
220 |
CG3D |
& +aV3d( i, j,kp1,bi,bj)*cg3d_x( i, j,kp1,bi,bj)*maskP1 |
|
./model/src/cg3d.F |
98 |
CG3D |
INTEGER km1, kp1 |
|
./model/src/cg3d_ex0.F |
196 |
CG3D_EX0 |
kp1 = MIN(k+1, Nr) |
|
./model/src/cg3d_ex0.F |
213 |
CG3D_EX0 |
& +aV3d( i, j,kp1,bi,bj)*cg3d_x( i, j,kp1,bi,bj)*maskP1 |
|
./model/src/cg3d_ex0.F |
90 |
CG3D_EX0 |
INTEGER km1, kp1 |
|
./pkg/monitor/mon_ke.F |
115 |
MON_KE |
& +wVel(i,j,kp1,bi,bj)*wVel(i,j,kp1,bi,bj)*mskp1 |
|
./pkg/monitor/mon_ke.F |
116 |
MON_KE |
& *deepFac2F(kp1)*rhoFacF(kp1) |
|
./pkg/monitor/mon_ke.F |
35 |
MON_KE |
INTEGER ks, kp1 |
|
./pkg/monitor/mon_ke.F |
71 |
MON_KE |
kp1 = MIN(k+1,Nr) |
|
./model/src/dynamics.F |
187 |
DYNAMICS |
INTEGER k, km1, kp1, kUp, kDown |
|
./model/src/dynamics.F |
428 |
DYNAMICS |
kp1 = MIN(k+1,Nr) |
|
./model/src/external_forcing.F |
349 |
EXTERNAL_FORCING_T |
INTEGER kp1 |
|
./model/src/external_forcing.F |
539 |
EXTERNAL_FORCING_T |
kp1 = kLev+1 |
|
./model/src/external_forcing.F |
541 |
EXTERNAL_FORCING_T |
kp1 = kLev |
|
./model/src/external_forcing.F |
548 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./pkg/salt_plume/salt_plume_apply.F |
192 |
SALT_PLUME_APPLY |
kp1=k+1 |
|
./pkg/salt_plume/salt_plume_apply.F |
200 |
SALT_PLUME_APPLY |
dSPvolBelow2kLev = -dSPvolkLev2Above(i,j,kp1,bi,bj) |
|
./pkg/salt_plume/salt_plume_apply.F |
201 |
SALT_PLUME_APPLY |
gTr_Below2kLev= dSPvolBelow2kLev * work(i,j,kp1) |
|
./pkg/salt_plume/salt_plume_apply.F |
246 |
SALT_PLUME_APPLY |
kp1=k+1 |
|
./pkg/salt_plume/salt_plume_apply.F |
76 |
SALT_PLUME_APPLY |
integer kp1, Nrp1 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
170 |
SALT_PLUME_VOLFRAC |
kp1=k+1 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
171 |
SALT_PLUME_VOLFRAC |
dSPvolkLev2Above(i,j,k,bi,bj)=dSPvolkLev2Above(i,j,kp1,bi,bj) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
68 |
SALT_PLUME_VOLFRAC |
INTEGER i,j,k,kp1,Nlev,Nrp1 |
|
./pkg/shelfice/shelfice_forcing.F |
167 |
SHELFICE_FORCING_S |
kp1 = MIN(kLev+1,Nr) |
|
./pkg/shelfice/shelfice_forcing.F |
75 |
SHELFICE_FORCING_T |
kp1 = MIN(kLev+1,Nr) |
|
./model/src/pre_cg3d.F |
192 |
PRE_CG3D |
kp1 = MIN(k+1,Nr) |
|
./model/src/pre_cg3d.F |
193 |
PRE_CG3D |
wFacKp = implicDiv2DFlow*deepFac2F(kp1)*rhoFacF(kp1) |
|
./model/src/pre_cg3d.F |
203 |
PRE_CG3D |
& -wVel(i,j,kp1,bi,bj)*wFacKp |
|
./model/src/pre_cg3d.F |
208 |
PRE_CG3D |
kp1 = MIN(k+1,Nr) |
|
./model/src/pre_cg3d.F |
212 |
PRE_CG3D |
wFacKp = implicDiv2DFlow*deepFac2F(kp1)*rhoFacF(kp1) |
|
./model/src/pre_cg3d.F |
222 |
PRE_CG3D |
& -wVel(i,j,kp1,bi,bj)*wFacKp |
|
./model/src/pre_cg3d.F |
58 |
PRE_CG3D |
INTEGER ks, kp1 |
|
./verification/rotating_tank/code/apply_forcing.F |
414 |
APPLY_FORCING_T |
INTEGER kp1 |
|
./verification/rotating_tank/code/apply_forcing.F |
670 |
APPLY_FORCING_T |
kp1 = k+1 |
|
./verification/rotating_tank/code/apply_forcing.F |
672 |
APPLY_FORCING_T |
kp1 = k |
|
./verification/rotating_tank/code/apply_forcing.F |
679 |
APPLY_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
234 |
EXTERNAL_FORCING_T |
INTEGER kp1 |
|
./verification/tidal_basin_2d/code/external_forcing.F |
268 |
EXTERNAL_FORCING_T |
kp1 = klev+1 |
|
./verification/tidal_basin_2d/code/external_forcing.F |
270 |
EXTERNAL_FORCING_T |
kp1 = klev |
|
./verification/tidal_basin_2d/code/external_forcing.F |
277 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./model/src/taueddy_tendency_apply.F |
147 |
TAUEDDY_TENDENCY_APPLY_V |
INTEGER kp1 |
|
./model/src/taueddy_tendency_apply.F |
154 |
TAUEDDY_TENDENCY_APPLY_V |
kp1 = MIN(k+1,Nr) |
|
./model/src/taueddy_tendency_apply.F |
164 |
TAUEDDY_TENDENCY_APPLY_V |
& - maskp1*_maskS(i,j,kp1,bi,bj)*tauyEddy(i,j,kp1,bi,bj) ) |
|
./model/src/taueddy_tendency_apply.F |
66 |
TAUEDDY_TENDENCY_APPLY_U |
INTEGER kp1 |
|
./model/src/taueddy_tendency_apply.F |
73 |
TAUEDDY_TENDENCY_APPLY_U |
kp1 = MIN(k+1,Nr) |
|
./model/src/taueddy_tendency_apply.F |
83 |
TAUEDDY_TENDENCY_APPLY_U |
& - maskp1*_maskW(i,j,kp1,bi,bj)*tauxEddy(i,j,kp1,bi,bj) ) |
|
./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 |