| 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,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_dst3_adv_r.F |
57 |
GAD_DST3_ADV_R |
INTEGER i,j,kp1,km1,km2 |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
73 |
GAD_DST3_ADV_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
77 |
GAD_DST3_ADV_R |
Rjp=(tracer(i,j,k)-tracer(i,j,kp1)) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
78 |
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 |
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_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) |
|
./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 |
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_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,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_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/ggl90/ggl90_calc.F |
483 |
GGL90_CALC |
kp1=MAX(1,MIN(klowC(i,j,bi,bj),k+1)) |
|
./pkg/ggl90/ggl90_calc.F |
489 |
GGL90_CALC |
& *.5 _d 0*(KappaE(i,j,k)+KappaE(i,j,kp1)) |
|
./pkg/ggl90/ggl90_calc.F |
509 |
GGL90_CALC |
kp1 = MIN(Nr,kSurf+1) |
|
./pkg/ggl90/ggl90_calc.F |
522 |
GGL90_CALC |
GGL90TKE(i,j,kp1,bi,bj) = GGL90TKE(i,j,kp1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
523 |
GGL90_CALC |
& - a(i,j,kp1)*GGL90TKE(i,j,kSurf,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
524 |
GGL90_CALC |
a(i,j,kp1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
77 |
GGL90_CALC |
INTEGER i, j, k, kp1, km1, kSurf, kBottom |
|
./pkg/gmredi/gmredi_calc_tensor.F |
563 |
GMREDI_CALC_TENSOR |
kp1 = MIN(Nr,k+1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
579 |
GMREDI_CALC_TENSOR |
& +(sigmaR(i-1,j,kp1)+sigmaR(i,j,kp1))*maskp1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
696 |
GMREDI_CALC_TENSOR |
& +recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
697 |
GMREDI_CALC_TENSOR |
& ( maskC(i-1,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
698 |
GMREDI_CALC_TENSOR |
& (theta(i-1,j,k,bi,bj)-theta(i-1,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
699 |
GMREDI_CALC_TENSOR |
& +maskC( i ,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
700 |
GMREDI_CALC_TENSOR |
& (theta( i ,j,k,bi,bj)-theta( i ,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
751 |
GMREDI_CALC_TENSOR |
kp1 = MIN(Nr,k+1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
766 |
GMREDI_CALC_TENSOR |
& +(sigmaR(i,j-1,kp1)+sigmaR(i,j,kp1))*maskp1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
87 |
GMREDI_CALC_TENSOR |
INTEGER kp1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
884 |
GMREDI_CALC_TENSOR |
& +recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
885 |
GMREDI_CALC_TENSOR |
& ( maskC(i,j-1,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
886 |
GMREDI_CALC_TENSOR |
& (theta(i,j-1,k,bi,bj)-theta(i,j-1,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
887 |
GMREDI_CALC_TENSOR |
& +maskC(i, j ,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
888 |
GMREDI_CALC_TENSOR |
& (theta(i, j ,k,bi,bj)-theta(i, j ,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
47 |
GMREDI_CALC_UVFLOW |
INTEGER kp1 |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
55 |
GMREDI_CALC_UVFLOW |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
60 |
GMREDI_CALC_UVFLOW |
delPsi = GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
70 |
GMREDI_CALC_UVFLOW |
delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
129 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
141 |
GMREDI_XTRANSPORT |
& +op5*recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_xtransport.F |
142 |
GMREDI_XTRANSPORT |
& ( maskC(i-1,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
143 |
GMREDI_XTRANSPORT |
& (Tracer(i-1,j,k,bi,bj)-Tracer(i-1,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
144 |
GMREDI_XTRANSPORT |
& +maskC( i ,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
145 |
GMREDI_XTRANSPORT |
& (Tracer( i ,j,k,bi,bj)-Tracer( i ,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
167 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
172 |
GMREDI_XTRANSPORT |
uTrans(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
195 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
200 |
GMREDI_XTRANSPORT |
tmp1k(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
52 |
GMREDI_XTRANSPORT |
INTEGER kp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
129 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
142 |
GMREDI_YTRANSPORT |
& +op5*recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_ytransport.F |
143 |
GMREDI_YTRANSPORT |
& ( maskC(i,j-1,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
144 |
GMREDI_YTRANSPORT |
& (Tracer(i,j-1,k,bi,bj)-Tracer(i,j-1,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
145 |
GMREDI_YTRANSPORT |
& +maskC(i, j ,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
146 |
GMREDI_YTRANSPORT |
& (Tracer(i, j ,k,bi,bj)-Tracer(i, j ,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
167 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
172 |
GMREDI_YTRANSPORT |
vTrans(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
194 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
199 |
GMREDI_YTRANSPORT |
tmp1k(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
52 |
GMREDI_YTRANSPORT |
INTEGER kp1 |
|
./pkg/kpp/kpp_calc.F |
202 |
KPP_CALC |
integer i, j, k, kp1, km1, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_calc.F |
424 |
KPP_CALC |
kp1 = k + 1 |
|
./pkg/kpp/kpp_calc.F |
432 |
KPP_CALC |
& (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
433 |
KPP_CALC |
& (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
434 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
435 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
436 |
KPP_CALC |
& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
437 |
KPP_CALC |
& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
438 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
439 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
442 |
KPP_CALC |
& (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
443 |
KPP_CALC |
& (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
444 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
445 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
446 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
447 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
448 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
449 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
450 |
KPP_CALC |
& (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
451 |
KPP_CALC |
& (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
452 |
KPP_CALC |
& (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
453 |
KPP_CALC |
& (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
454 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
455 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
456 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
457 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_routines.F |
1012 |
Z121 |
integer i, k, km1, kp1 |
|
./pkg/kpp/kpp_routines.F |
1049 |
Z121 |
kp1 = k + 1 |
|
./pkg/kpp/kpp_routines.F |
1052 |
Z121 |
& KRi_range(k) * KRi_range(kp1) * v(i,kp1) + |
|
./pkg/kpp/kpp_routines.F |
1055 |
Z121 |
zflag = p2 + KRi_range(k)*(KRi_range(kp1)+KRi_range(km1)) |
|
./pkg/kpp/kpp_routines.F |
861 |
RI_IWMIX |
integer i, ki, kp1 |
|
./pkg/kpp/kpp_routines.F |
947 |
RI_IWMIX |
kp1 = MIN(ki+1,Nr) |
|
./pkg/kpp/kpp_routines.F |
951 |
RI_IWMIX |
diffus(i,ki,2) = diffusKzS(i,kp1)+fcon*difscon+fRi*difs0 |
|
./pkg/kpp/kpp_routines.F |
952 |
RI_IWMIX |
diffus(i,ki,3) = diffusKzT(i,kp1)+fcon*diftcon+fRi*dift0 |
|
./pkg/kpp/kpp_routines.F |
955 |
RI_IWMIX |
diffus(i,ki,2) = diffusKzS(i,kp1) |
|
./pkg/kpp/kpp_routines.F |
956 |
RI_IWMIX |
diffus(i,ki,3) = diffusKzT(i,kp1) |
|
./pkg/kpp/kpp_routines.F |
960 |
RI_IWMIX |
diffus(i,ki,2) = diffusKzS(i,kp1) |
|
./pkg/kpp/kpp_routines.F |
961 |
RI_IWMIX |
diffus(i,ki,3) = diffusKzT(i,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/mom_common/mom_calc_visc.F |
107 |
MOM_CALC_VISC |
INTEGER kp1 |
|
./pkg/mom_common/mom_calc_visc.F |
468 |
MOM_CALC_VISC |
kp1 = MIN(k+1,Nr) |
|
./pkg/mom_common/mom_calc_visc.F |
472 |
MOM_CALC_VISC |
viscAh_W(i,j,kp1,bi,bj)=0.5*viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
473 |
MOM_CALC_VISC |
viscA4_W(i,j,kp1,bi,bj)=0.5*viscA4_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
485 |
MOM_CALC_VISC |
viscAh_W(i,j,kp1,bi,bj)=0.5*viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
486 |
MOM_CALC_VISC |
viscA4_W(i,j,kp1,bi,bj)=0.5*viscA4_D(i,j) |
|
./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_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/calc_gw.F |
157 |
CALC_GW |
kp1 = MIN( k+1,Nr ) |
|
./model/src/calc_gw.F |
376 |
CALC_GW |
& +KappaRU(i,j,kp1)+KappaRU(i+1,j,kp1) |
|
./model/src/calc_gw.F |
378 |
CALC_GW |
& +KappaRV(i,j,kp1)+KappaRV(i,j+1,kp1) |
|
./model/src/calc_gw.F |
381 |
CALC_GW |
& - viscLoc*( wVel(i,j,kp1,bi,bj)*mskP1 |
|
./model/src/calc_gw.F |
484 |
CALC_GW |
& +wVel(i,j,kp1,bi,bj)*rVel2wUnit(kp1)*mskP1 ) |
|
./model/src/calc_gw.F |
488 |
CALC_GW |
& +wVel(i,j,kp1,bi,bj)*deepFac2F(kp1)*rhoFacF(kp1) |
|
./model/src/calc_gw.F |
92 |
CALC_GW |
INTEGER i,j,k, km1, kp1 |
|
./pkg/monitor/mon_ke.F |
100 |
MON_KE |
& +wVel(i,j,kp1,bi,bj)*wVel(i,j,kp1,bi,bj)*mskp1 |
|
./pkg/monitor/mon_ke.F |
101 |
MON_KE |
& *deepFac2F(kp1)*rhoFacF(kp1) |
|
./pkg/monitor/mon_ke.F |
32 |
MON_KE |
INTEGER bi,bj,i,j,k,kp1 |
|
./pkg/monitor/mon_ke.F |
57 |
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 |
99 |
CG3D |
INTEGER km1, kp1 |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
37 |
SALT_PLUME_TENDENCY_APPLY_S |
integer i, j, kp1, two2 |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
55 |
SALT_PLUME_TENDENCY_APPLY_S |
kp1 = klev+1 |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
57 |
SALT_PLUME_TENDENCY_APPLY_S |
kp1 = klev |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
62 |
SALT_PLUME_TENDENCY_APPLY_S |
& -plumekb(2)*maskC(i,j,kp1, bi,bj) |
|
./model/src/dynamics.F |
196 |
DYNAMICS |
INTEGER k, km1, kp1, kup, kDown |
|
./model/src/dynamics.F |
409 |
DYNAMICS |
kp1 = MIN(k+1,Nr) |
|
./model/src/external_forcing.F |
266 |
EXTERNAL_FORCING_T |
INTEGER kp1 |
|
./model/src/external_forcing.F |
363 |
EXTERNAL_FORCING_T |
kp1 = klev+1 |
|
./model/src/external_forcing.F |
365 |
EXTERNAL_FORCING_T |
kp1 = klev |
|
./model/src/external_forcing.F |
372 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./pkg/shelfice/shelfice_forcing.F |
157 |
SHELFICE_FORCING_S |
kp1 = MIN(kLev+1,Nr) |
|
./pkg/shelfice/shelfice_forcing.F |
65 |
SHELFICE_FORCING_T |
kp1 = MIN(kLev+1,Nr) |
|
./verification/rotating_tank/code/external_forcing.F |
296 |
EXTERNAL_FORCING_T |
INTEGER kp1 |
|
./verification/rotating_tank/code/external_forcing.F |
340 |
EXTERNAL_FORCING_T |
kp1 = klev+1 |
|
./verification/rotating_tank/code/external_forcing.F |
342 |
EXTERNAL_FORCING_T |
kp1 = klev |
|
./verification/rotating_tank/code/external_forcing.F |
349 |
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)) |
|
./model/src/pre_cg3d.F |
203 |
PRE_CG3D |
kp1 = MIN(k+1,Nr) |
|
./model/src/pre_cg3d.F |
204 |
PRE_CG3D |
wFacKp = implicDiv2DFlow*deepFac2F(kp1)*rhoFacF(kp1) |
|
./model/src/pre_cg3d.F |
214 |
PRE_CG3D |
& -wVel(i,j,kp1,bi,bj)*wFacKp |
|
./model/src/pre_cg3d.F |
219 |
PRE_CG3D |
kp1 = MIN(k+1,Nr) |
|
./model/src/pre_cg3d.F |
223 |
PRE_CG3D |
wFacKp = implicDiv2DFlow*deepFac2F(kp1)*rhoFacF(kp1) |
|
./model/src/pre_cg3d.F |
233 |
PRE_CG3D |
& -wVel(i,j,kp1,bi,bj)*wFacKp |
|
./model/src/pre_cg3d.F |
60 |
PRE_CG3D |
INTEGER ks, kp1 |
|
./model/src/taueddy_external_forcing.F |
174 |
TAUEDDY_EXTERNAL_FORCING_V |
& -maskp1*_maskS(i,j,kp1,bi,bj)*GM_PsiY(i,j,kp1,bi,bj)) |
|
./model/src/taueddy_external_forcing.F |
177 |
TAUEDDY_EXTERNAL_FORCING_V |
& -maskp1*_maskS(i,j,kp1,bi,bj)*eddyPsiY(i,j,kp1,bi,bj)) |
|
./model/src/taueddy_external_forcing.F |
84 |
TAUEDDY_EXTERNAL_FORCING_U |
& -maskp1*_maskW(i,j,kp1,bi,bj)*GM_PsiX(i,j,kp1,bi,bj)) |
|
./model/src/taueddy_external_forcing.F |
87 |
TAUEDDY_EXTERNAL_FORCING_U |
& -maskp1*_maskW(i,j,kp1,bi,bj)*eddyPsiX(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 |