| 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 |
113 |
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 |
146 |
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 |
89 |
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 |
332 |
GAD_IMPLICIT_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
340 |
GAD_IMPLICIT_R |
& + gTracer(i,j,kp1)*d5d(i,j,k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
92 |
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 |
136 |
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 |
484 |
GGL90_CALC |
kp1=MAX(1,MIN(klowC(i,j,bi,bj),k+1)) |
|
./pkg/ggl90/ggl90_calc.F |
490 |
GGL90_CALC |
& *.5 _d 0*(KappaE(i,j,k)+KappaE(i,j,kp1)) |
|
./pkg/ggl90/ggl90_calc.F |
510 |
GGL90_CALC |
kp1 = MIN(Nr,kSurf+1) |
|
./pkg/ggl90/ggl90_calc.F |
523 |
GGL90_CALC |
GGL90TKE(i,j,kp1,bi,bj) = GGL90TKE(i,j,kp1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
524 |
GGL90_CALC |
& - a3d(i,j,kp1)*GGL90TKE(i,j,kSurf,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
525 |
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/gmredi/gmredi_calc_tensor.F |
1000 |
GMREDI_CALC_TENSOR |
& ( maskC(i,j-1,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1001 |
GMREDI_CALC_TENSOR |
& (theta(i,j-1,k,bi,bj)-theta(i,j-1,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1002 |
GMREDI_CALC_TENSOR |
& +maskC(i, j ,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1003 |
GMREDI_CALC_TENSOR |
& (theta(i, j ,k,bi,bj)-theta(i, j ,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
652 |
GMREDI_CALC_TENSOR |
kp1 = MIN(Nr,k+1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
668 |
GMREDI_CALC_TENSOR |
& +(sigmaR(i-1,j,kp1)+sigmaR(i,j,kp1))*maskp1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
798 |
GMREDI_CALC_TENSOR |
& +recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
799 |
GMREDI_CALC_TENSOR |
& ( maskC(i-1,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
800 |
GMREDI_CALC_TENSOR |
& (theta(i-1,j,k,bi,bj)-theta(i-1,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
801 |
GMREDI_CALC_TENSOR |
& +maskC( i ,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
802 |
GMREDI_CALC_TENSOR |
& (theta( i ,j,k,bi,bj)-theta( i ,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
853 |
GMREDI_CALC_TENSOR |
kp1 = MIN(Nr,k+1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
868 |
GMREDI_CALC_TENSOR |
& +(sigmaR(i,j-1,kp1)+sigmaR(i,j,kp1))*maskp1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
94 |
GMREDI_CALC_TENSOR |
INTEGER kp1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
999 |
GMREDI_CALC_TENSOR |
& +recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_residual_flow.F |
105 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
113 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
48 |
GMREDI_RESIDUAL_FLOW |
INTEGER kp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
60 |
GMREDI_RESIDUAL_FLOW |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_residual_flow.F |
66 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
74 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
99 |
GMREDI_RESIDUAL_FLOW |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
136 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
148 |
GMREDI_XTRANSPORT |
& +op5*recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_xtransport.F |
149 |
GMREDI_XTRANSPORT |
& ( maskC(i-1,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
150 |
GMREDI_XTRANSPORT |
& (Tracer(i-1,j,k)-Tracer(i-1,j,kp1)) |
|
./pkg/gmredi/gmredi_xtransport.F |
151 |
GMREDI_XTRANSPORT |
& +maskC( i ,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
152 |
GMREDI_XTRANSPORT |
& (Tracer( i ,j,k)-Tracer( i ,j,kp1)) |
|
./pkg/gmredi/gmredi_xtransport.F |
173 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
178 |
GMREDI_XTRANSPORT |
uTrans(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
201 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
206 |
GMREDI_XTRANSPORT |
tmp1k(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
59 |
GMREDI_XTRANSPORT |
INTEGER kp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
136 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
148 |
GMREDI_YTRANSPORT |
& +op5*recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_ytransport.F |
149 |
GMREDI_YTRANSPORT |
& ( maskC(i,j-1,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
150 |
GMREDI_YTRANSPORT |
& (Tracer(i,j-1,k)-Tracer(i,j-1,kp1)) |
|
./pkg/gmredi/gmredi_ytransport.F |
151 |
GMREDI_YTRANSPORT |
& +maskC(i, j ,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
152 |
GMREDI_YTRANSPORT |
& (Tracer(i, j ,k)-Tracer(i, j ,kp1)) |
|
./pkg/gmredi/gmredi_ytransport.F |
173 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
178 |
GMREDI_YTRANSPORT |
vTrans(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
200 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
205 |
GMREDI_YTRANSPORT |
tmp1k(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
59 |
GMREDI_YTRANSPORT |
INTEGER kp1 |
|
./pkg/kpp/kpp_calc.F |
212 |
KPP_CALC |
integer i, j, k, kp1, km1, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_calc.F |
456 |
KPP_CALC |
kp1 = k + 1 |
|
./pkg/kpp/kpp_calc.F |
464 |
KPP_CALC |
& (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
465 |
KPP_CALC |
& (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
466 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
467 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
468 |
KPP_CALC |
& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
469 |
KPP_CALC |
& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
470 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
471 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
474 |
KPP_CALC |
& (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
475 |
KPP_CALC |
& (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
476 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
477 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
478 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
479 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
480 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
481 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
482 |
KPP_CALC |
& (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
483 |
KPP_CALC |
& (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
484 |
KPP_CALC |
& (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
485 |
KPP_CALC |
& (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
486 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
487 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
488 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
489 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
140 |
KPP_FORCING_SURF |
INTEGER kp1 |
|
./pkg/kpp/kpp_forcing_surf.F |
228 |
KPP_FORCING_SURF |
kp1 = k+1 |
|
./pkg/kpp/kpp_forcing_surf.F |
233 |
KPP_FORCING_SURF |
boplume(I,J,kp1) = boplume(I,J,k)+temparray(I,J) |
|
./pkg/kpp/kpp_routines.F |
1020 |
RI_IWMIX |
kp1 = MIN(ki+1,Nr) |
|
./pkg/kpp/kpp_routines.F |
1023 |
RI_IWMIX |
diffus(i,ki,2) = diffusKzS(i,kp1) |
|
./pkg/kpp/kpp_routines.F |
1024 |
RI_IWMIX |
diffus(i,ki,3) = diffusKzT(i,kp1) |
|
./pkg/kpp/kpp_routines.F |
1029 |
RI_IWMIX |
diffus(i,ki,2) = diffusKzS(i,kp1) |
|
./pkg/kpp/kpp_routines.F |
1030 |
RI_IWMIX |
diffus(i,ki,3) = diffusKzT(i,kp1) |
|
./pkg/kpp/kpp_routines.F |
1036 |
RI_IWMIX |
diffus(i,ki,2) = diffusKzS(i,kp1)+fcon*difscon+fRi*difs0 |
|
./pkg/kpp/kpp_routines.F |
1037 |
RI_IWMIX |
diffus(i,ki,3) = diffusKzT(i,kp1)+fcon*diftcon+fRi*dift0 |
|
./pkg/kpp/kpp_routines.F |
1088 |
Z121 |
integer i, k, km1, kp1 |
|
./pkg/kpp/kpp_routines.F |
1125 |
Z121 |
kp1 = k + 1 |
|
./pkg/kpp/kpp_routines.F |
1128 |
Z121 |
& KRi_range(k) * KRi_range(kp1) * v(i,kp1) + |
|
./pkg/kpp/kpp_routines.F |
1131 |
Z121 |
zflag = p2 + KRi_range(k)*(KRi_range(kp1)+KRi_range(km1)) |
|
./pkg/kpp/kpp_routines.F |
935 |
RI_IWMIX |
integer i, ki, kp1 |
|
./model/src/apply_forcing.F |
432 |
APPLY_FORCING_T |
INTEGER kp1 |
|
./model/src/apply_forcing.F |
668 |
APPLY_FORCING_T |
kp1 = k+1 |
|
./model/src/apply_forcing.F |
670 |
APPLY_FORCING_T |
kp1 = k |
|
./model/src/apply_forcing.F |
677 |
APPLY_FORCING_T |
& -swfracb(2)*maskC(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/layers/layers_fluxcalc.F |
155 |
LAYERS_FLUXCALC |
kp1=k+1 |
|
./pkg/layers/layers_fluxcalc.F |
156 |
LAYERS_FLUXCALC |
IF (hFacW(i,j,kp1,bi,bj) .EQ. 0.) kp1=k |
|
./pkg/layers/layers_fluxcalc.F |
160 |
LAYERS_FLUXCALC |
& 0.5 _d 0 * (tracer(i-1,j,kp1,bi,bj)+tracer(i,j,kp1,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
234 |
LAYERS_FLUXCALC |
kp1=k+1 |
|
./pkg/layers/layers_fluxcalc.F |
235 |
LAYERS_FLUXCALC |
IF (hFacS(i,j,kp1,bi,bj) .EQ. 0.) kp1=k |
|
./pkg/layers/layers_fluxcalc.F |
239 |
LAYERS_FLUXCALC |
& 0.5 _d 0 * (tracer(i,j-1,kp1,bi,bj)+tracer(i,j,kp1,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
90 |
LAYERS_FLUXCALC |
INTEGER i,j,k,kk,kg,kci,kp1,kloc |
|
./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 |
409 |
CALC_GW |
& +KappaRU(i,j,kp1)+KappaRU(i+1,j,kp1) |
|
./model/src/calc_gw.F |
411 |
CALC_GW |
& +KappaRV(i,j,kp1)+KappaRV(i,j+1,kp1) |
|
./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 ) |
|
./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/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 |
|
./model/src/dynamics.F |
187 |
DYNAMICS |
INTEGER k, km1, kp1, kUp, kDown |
|
./model/src/dynamics.F |
428 |
DYNAMICS |
kp1 = MIN(k+1,Nr) |
|
./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 |
|
./model/src/external_forcing.F |
349 |
EXTERNAL_FORCING_T |
INTEGER kp1 |
|
./model/src/external_forcing.F |
540 |
EXTERNAL_FORCING_T |
kp1 = kLev+1 |
|
./model/src/external_forcing.F |
542 |
EXTERNAL_FORCING_T |
kp1 = kLev |
|
./model/src/external_forcing.F |
549 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./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 |
165 |
SHELFICE_FORCING_S |
kp1 = MIN(kLev+1,Nr) |
|
./pkg/shelfice/shelfice_forcing.F |
75 |
SHELFICE_FORCING_T |
kp1 = MIN(kLev+1,Nr) |
|
./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)) |
|
./model/src/pre_cg3d.F |
183 |
PRE_CG3D |
kp1 = MIN(k+1,Nr) |
|
./model/src/pre_cg3d.F |
184 |
PRE_CG3D |
wFacKp = implicDiv2DFlow*deepFac2F(kp1)*rhoFacF(kp1) |
|
./model/src/pre_cg3d.F |
194 |
PRE_CG3D |
& -wVel(i,j,kp1,bi,bj)*wFacKp |
|
./model/src/pre_cg3d.F |
199 |
PRE_CG3D |
kp1 = MIN(k+1,Nr) |
|
./model/src/pre_cg3d.F |
203 |
PRE_CG3D |
wFacKp = implicDiv2DFlow*deepFac2F(kp1)*rhoFacF(kp1) |
|
./model/src/pre_cg3d.F |
213 |
PRE_CG3D |
& -wVel(i,j,kp1,bi,bj)*wFacKp |
|
./model/src/pre_cg3d.F |
57 |
PRE_CG3D |
INTEGER ks, kp1 |
|
./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 |
148 |
TAUEDDY_TENDENCY_APPLY_V |
INTEGER kp1 |
|
./model/src/taueddy_tendency_apply.F |
155 |
TAUEDDY_TENDENCY_APPLY_V |
kp1 = MIN(k+1,Nr) |
|
./model/src/taueddy_tendency_apply.F |
165 |
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 |