| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1232 |
RAS |
integer km1,kp1,kprv,kcr,kfx,ncmx |
|
./pkg/fizhi/fizhi_moist.F |
1661 |
CLOUD |
integer nt,km1,ic1,i,L,len1,len2,isav,len11,ii |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
49 |
GAD_C2_ADV_R |
INTEGER i,j,km1 |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
52 |
GAD_C2_ADV_R |
km1=max(1,k-1) |
|
./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 |
62 |
GAD_C4_ADV_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
79 |
GAD_C4_ADV_R |
Rj =(tracer(i,j,k,bi,bj)-tracer(i,j,km1,bi,bj)) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
80 |
GAD_C4_ADV_R |
Rjm=(tracer(i,j,km1,bi,bj)-tracer(i,j,km2,bi,bj)) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
81 |
GAD_C4_ADV_R |
& *maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
84 |
GAD_C4_ADV_R |
wT(i,j) = maskC(i,j,km1,bi,bj)*( |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
86 |
GAD_C4_ADV_R |
& (Tracer(i,j,k,bi,bj)+Tracer(i,j,km1,bi,bj))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
571 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
576 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
582 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/generic_advdiff/gad_diff_r.F |
49 |
GAD_DIFF_R |
INTEGER i,j,km1 |
|
./pkg/generic_advdiff/gad_diff_r.F |
52 |
GAD_DIFF_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_diff_r.F |
66 |
GAD_DIFF_R |
& *(tracer(i,j,k,bi,bj)-tracer(i,j,km1,bi,bj))*rkSign |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
56 |
GAD_DST2U1_ADV_R |
INTEGER i,j,km1 |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
63 |
GAD_DST2U1_ADV_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
90 |
GAD_DST2U1_ADV_R |
wT(i,j) = maskC(i,j,km1,bi,bj)*( |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
91 |
GAD_DST2U1_ADV_R |
& ( rTrans(i,j)+wAbs )* 0.5 _d 0 * tracer(i,j,km1) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
110 |
GAD_DST3_ADV_R |
& *( tracer(i,j,km1) - psiP*Rj ) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
116 |
GAD_DST3_ADV_R |
& *( tracer(i,j,km1) - (d0*Rj+d1*Rjm) ) |
|
./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 |
72 |
GAD_DST3_ADV_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
79 |
GAD_DST3_ADV_R |
Rj =(tracer(i,j,km1)-tracer(i,j,k)) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
80 |
GAD_DST3_ADV_R |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
81 |
GAD_DST3_ADV_R |
Rjm=(tracer(i,j,km2)-tracer(i,j,km1)) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
82 |
GAD_DST3_ADV_R |
& *maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
112 |
GAD_DST3FL_ADV_R |
& *( tracer(i,j,km1) - psiP*Rj ) |
|
./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 |
63 |
GAD_DST3FL_ADV_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
70 |
GAD_DST3FL_ADV_R |
Rj =(tracer(i,j,km1)-tracer(i,j,k)) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
71 |
GAD_DST3FL_ADV_R |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
72 |
GAD_DST3FL_ADV_R |
Rjm=(tracer(i,j,km2)-tracer(i,j,km1)) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
73 |
GAD_DST3FL_ADV_R |
& *maskC(i,j,km1,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 |
72 |
GAD_FLUXLIMIT_ADV_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
90 |
GAD_FLUXLIMIT_ADV_R |
Rjm=(tracer(i,j,km1)-tracer(i,j,kM2)) |
|
./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 |
76 |
GAD_FLUXLIMIT_IMPL_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
88 |
GAD_FLUXLIMIT_IMPL_R |
Rj =(tFld(i,j,k) -tFld(i,j,km1)) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
89 |
GAD_FLUXLIMIT_IMPL_R |
Rjm=(tFld(i,j,km1)-tFld(i,j,km2))*maskC(i,j,km2,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 |
54 |
GAD_OS7MP_ADV_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
69 |
GAD_OS7MP_ADV_R |
Qi = Q(i,j,km1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
76 |
GAD_OS7MP_ADV_R |
MskI = maskC(i,j,k,bi,bj) * float(k-km1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
77 |
GAD_OS7MP_ADV_R |
MskIm = maskC(i,j,km1,bi,bj) * float(km1-km2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
83 |
GAD_OS7MP_ADV_R |
Qip = Q(i,j,km1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
90 |
GAD_OS7MP_ADV_R |
MskIp = maskC(i,j,km1,bi,bj) * float(km1-km2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
91 |
GAD_OS7MP_ADV_R |
MskI = maskC(i,j,k,bi,bj) * float(k-km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
112 |
GAD_SOM_ADV_R |
INTEGER km1 |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
156 |
GAD_SOM_ADV_R |
km1 = 1 |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
163 |
GAD_SOM_ADV_R |
aln (i,j,kUp) = fn_v(i,j,kUp)/sm_v(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
168 |
GAD_SOM_ADV_R |
fn_o (i,j,kUp) = aln(i,j,kUp)*sm_o(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
171 |
GAD_SOM_ADV_R |
fn_x (i,j,kUp) = aln(i,j,kUp)*sm_x(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
172 |
GAD_SOM_ADV_R |
fn_y (i,j,kUp) = aln(i,j,kUp)*sm_y(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
175 |
GAD_SOM_ADV_R |
fn_xx(i,j,kUp) = aln(i,j,kUp)*sm_xx(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
176 |
GAD_SOM_ADV_R |
fn_yy(i,j,kUp) = aln(i,j,kUp)*sm_yy(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
177 |
GAD_SOM_ADV_R |
fn_xy(i,j,kUp) = aln(i,j,kUp)*sm_xy(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
184 |
GAD_SOM_ADV_R |
km1 = k-1 |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
190 |
GAD_SOM_ADV_R |
aln (i,j,kUp) = fn_v(i,j,kUp)/sm_v(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
196 |
GAD_SOM_ADV_R |
& ( sm_o(i,j,km1) - aln1*sm_z(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
197 |
GAD_SOM_ADV_R |
& + aln1*(aln1-aln(i,j,kUp))*sm_zz(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
200 |
GAD_SOM_ADV_R |
& ( sm_z(i,j,km1) - three*aln1*sm_zz(i,j,km1) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
201 |
GAD_SOM_ADV_R |
fn_zz(i,j,kUp) = aln(i,j,kUp)*alnq*sm_zz(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
203 |
GAD_SOM_ADV_R |
& ( sm_x(i,j,km1) - aln1*sm_xz(i,j,km1) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
205 |
GAD_SOM_ADV_R |
& ( sm_y(i,j,km1) - aln1*sm_yz(i,j,km1) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
206 |
GAD_SOM_ADV_R |
fn_xz(i,j,kUp) = alnq *sm_xz(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
207 |
GAD_SOM_ADV_R |
fn_yz(i,j,kUp) = alnq *sm_yz(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
208 |
GAD_SOM_ADV_R |
fn_xx(i,j,kUp) = aln(i,j,kUp)*sm_xx(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
209 |
GAD_SOM_ADV_R |
fn_yy(i,j,kUp) = aln(i,j,kUp)*sm_yy(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
210 |
GAD_SOM_ADV_R |
fn_xy(i,j,kUp) = aln(i,j,kUp)*sm_xy(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
224 |
GAD_SOM_ADV_R |
km1 = k |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
231 |
GAD_SOM_ADV_R |
aln (i,j,kUp) = fn_v(i,j,kUp)/sm_v(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
234 |
GAD_SOM_ADV_R |
fn_o (i,j,kUp) = aln(i,j,kUp)*sm_o(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
235 |
GAD_SOM_ADV_R |
fn_x (i,j,kUp) = aln(i,j,kUp)*sm_x(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
236 |
GAD_SOM_ADV_R |
fn_y (i,j,kUp) = aln(i,j,kUp)*sm_y(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
237 |
GAD_SOM_ADV_R |
fn_xx(i,j,kUp) = aln(i,j,kUp)*sm_xx(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
238 |
GAD_SOM_ADV_R |
fn_yy(i,j,kUp) = aln(i,j,kUp)*sm_yy(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
239 |
GAD_SOM_ADV_R |
fn_xy(i,j,kUp) = aln(i,j,kUp)*sm_xy(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_advect.F |
569 |
GAD_SOM_ADVECT |
km1= MAX(k-1,1) |
|
./pkg/generic_advdiff/gad_som_advect.F |
575 |
GAD_SOM_ADVECT |
maskUp(i,j) = maskC(i,j,km1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
97 |
GAD_SOM_ADVECT |
INTEGER i,j,k,km1,kUp,kDown |
|
./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 |
59 |
GAD_U3_ADV_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
73 |
GAD_U3_ADV_R |
Rj=(tracer(i,j,k,bi,bj)-tracer(i,j,km1,bi,bj)) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
74 |
GAD_U3_ADV_R |
Rjm=(tracer(i,j,km1,bi,bj)-tracer(i,j,km2,bi,bj)) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
78 |
GAD_U3_ADV_R |
wT(i,j) = maskC(i,j,km1,bi,bj)*( |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
80 |
GAD_U3_ADV_R |
& (Tracer(i,j,k,bi,bj)+Tracer(i,j,km1,bi,bj))*0.5 _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
158 |
GGL90_CALC |
km1 = k-1 |
|
./pkg/ggl90/ggl90_calc.F |
162 |
GGL90_CALC |
I theta(1-OLx,1-OLy,km1,bi,bj), salt(1-OLx,1-OLy,km1,bi,bj), |
|
./pkg/ggl90/ggl90_calc.F |
164 |
GGL90_CALC |
I km1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
339 |
GGL90_CALC |
km1 = k-1 |
|
./pkg/ggl90/ggl90_calc.F |
396 |
GGL90_CALC |
tempU= .5 _d 0*( uVel(i,j,km1,bi,bj)+uVel(i+1,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
399 |
GGL90_CALC |
tempV= .5 _d 0*( vVel(i,j,km1,bi,bj)+vVel(i,j+1,km1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
461 |
GGL90_CALC |
km1=MAX(2,k-1) |
|
./pkg/ggl90/ggl90_calc.F |
469 |
GGL90_CALC |
& *.5 _d 0*(KappaE(i,j, k )+KappaE(i,j,km1)) |
|
./pkg/ggl90/ggl90_calc.F |
496 |
GGL90_CALC |
km1 = MAX(k-1,1) |
|
./pkg/ggl90/ggl90_calc.F |
502 |
GGL90_CALC |
& * maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
77 |
GGL90_CALC |
INTEGER i, j, k, kp1, km1, kSurf, kBottom |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
103 |
GMREDI_CALC_PSI_B |
SlopeY(i,j)=op5*( sigmaY(i,j,km1)+sigmaY(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
48 |
GMREDI_CALC_PSI_B |
INTEGER i,j,k, km1 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
78 |
GMREDI_CALC_PSI_B |
km1 = k-1 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
95 |
GMREDI_CALC_PSI_B |
SlopeX(i,j)=op5*( sigmaX(i,j,km1)+sigmaX(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
108 |
GMREDI_CALC_TENSOR |
INTEGER km1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
671 |
GMREDI_CALC_TENSOR |
km1 = MAX(k-1,1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
692 |
GMREDI_CALC_TENSOR |
& (theta(i-1,j,km1,bi,bj)-theta(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
694 |
GMREDI_CALC_TENSOR |
& (theta( i ,j,km1,bi,bj)-theta( i ,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
859 |
GMREDI_CALC_TENSOR |
km1 = MAX(k-1,1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
880 |
GMREDI_CALC_TENSOR |
& (theta(i,j-1,km1,bi,bj)-theta(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
882 |
GMREDI_CALC_TENSOR |
& (theta(i, j ,km1,bi,bj)-theta(i, j ,k,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
128 |
GMREDI_XTRANSPORT |
km1 = MAX(k-1,1) |
|
./pkg/gmredi/gmredi_xtransport.F |
137 |
GMREDI_XTRANSPORT |
& (Tracer(i-1,j,km1,bi,bj)-Tracer(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
139 |
GMREDI_XTRANSPORT |
& (Tracer( i ,j,km1,bi,bj)-Tracer( i ,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
55 |
GMREDI_XTRANSPORT |
INTEGER km1 |
|
./pkg/gmredi/gmredi_ytransport.F |
128 |
GMREDI_YTRANSPORT |
km1 = MAX(k-1,1) |
|
./pkg/gmredi/gmredi_ytransport.F |
138 |
GMREDI_YTRANSPORT |
& (Tracer(i,j-1,km1,bi,bj)-Tracer(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
140 |
GMREDI_YTRANSPORT |
& (Tracer(i, j ,km1,bi,bj)-Tracer(i, j ,k,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
55 |
GMREDI_YTRANSPORT |
INTEGER km1 |
|
./pkg/kpp/kpp_calc.F |
202 |
KPP_CALC |
integer i, j, k, kp1, km1, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_calc.F |
316 |
KPP_CALC |
km1 = max(1,k-1) |
|
./pkg/kpp/kpp_calc.F |
323 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
325 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
327 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
528 |
KPP_CALC |
km1 = max(1,k-1) |
|
./pkg/kpp/kpp_calc.F |
530 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
532 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
534 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
536 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_routines.F |
1012 |
Z121 |
integer i, k, km1, kp1 |
|
./pkg/kpp/kpp_routines.F |
1048 |
Z121 |
km1 = k - 1 |
|
./pkg/kpp/kpp_routines.F |
1055 |
Z121 |
zflag = p2 + KRi_range(k)*(KRi_range(kp1)+KRi_range(km1)) |
|
./pkg/kpp/kpp_transport_ptr.F |
102 |
KPP_TRANSPORT_PTR |
& )*LS_KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
108 |
KPP_TRANSPORT_PTR |
& )*KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
10 |
KPP_TRANSPORT_PTR |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/kpp/kpp_transport_ptr.F |
60 |
KPP_TRANSPORT_PTR |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1,tracerIdentity |
|
./pkg/kpp/kpp_transport_s.F |
105 |
KPP_TRANSPORT_S |
& *KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
10 |
KPP_TRANSPORT_S |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/kpp/kpp_transport_s.F |
50 |
KPP_TRANSPORT_S |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1 |
|
./pkg/kpp/kpp_transport_s.F |
89 |
KPP_TRANSPORT_S |
& *KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
10 |
KPP_TRANSPORT_T |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/kpp/kpp_transport_t.F |
51 |
KPP_TRANSPORT_T |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1 |
|
./pkg/kpp/kpp_transport_t.F |
79 |
KPP_TRANSPORT_T |
& *KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
94 |
KPP_TRANSPORT_T |
& *KPPghat(i,j,km1,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
119 |
LONGSTEP_THERMODYNAMICS |
INTEGER k, km1, kup, kDown |
|
./pkg/longstep/longstep_thermodynamics.F |
297 |
LONGSTEP_THERMODYNAMICS |
km1 = MAX(1,k-1) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
139 |
MOM_UV_BOUNDARY |
& *(uFld(i,j,km1,bi,bj)*maskM1 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
153 |
MOM_UV_BOUNDARY |
& *(vFld(i,j,km1,bi,bj)*maskM1 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
55 |
MOM_UV_BOUNDARY |
INTEGER km1,kp1 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
78 |
MOM_UV_BOUNDARY |
km1 = MAX( k-1, 1 ) |
|
./model/src/calc_gw.F |
156 |
CALC_GW |
km1 = MAX( k-1, 1 ) |
|
./model/src/calc_gw.F |
451 |
CALC_GW |
& drF(km1)*_hFacW(i,j,km1,bi,bj)*uVel(i,j,km1,bi,bj) |
|
./model/src/calc_gw.F |
452 |
CALC_GW |
& *rhoFacC(km1)*mskM1 |
|
./model/src/calc_gw.F |
466 |
CALC_GW |
& drF(km1)*_hFacS(i,j,km1,bi,bj)*vVel(i,j,km1,bi,bj) |
|
./model/src/calc_gw.F |
467 |
CALC_GW |
& *rhoFacC(km1)*mskM1 |
|
./model/src/calc_gw.F |
92 |
CALC_GW |
INTEGER i,j,k, km1, kp1 |
|
./model/src/cg3d.F |
202 |
CG3D |
km1 = MAX(k-1, 1 ) |
|
./model/src/cg3d.F |
219 |
CG3D |
& +aV3d( i, j, k, bi,bj)*cg3d_x( i, j,km1,bi,bj)*maskM1 |
|
./model/src/cg3d.F |
99 |
CG3D |
INTEGER km1, kp1 |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
145 |
PTRACERS_DIAGNOSTICS_STATE |
km1 = MAX(k-1,1) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
154 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i,j,km1,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
161 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i,j,km1,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
43 |
PTRACERS_DIAGNOSTICS_STATE |
INTEGER km1 |
|
./pkg/ptracers/ptracers_integrate.F |
138 |
PTRACERS_INTEGRATE |
I bi,bj,iMin,iMax,jMin,jMax,k,km1,kUp,kDown, |
|
./pkg/ptracers/ptracers_integrate.F |
87 |
PTRACERS_INTEGRATE |
INTEGER kUp,kDown,km1 |
|
./pkg/ptracers/ptracers_integrate.F |
99 |
PTRACERS_INTEGRATE |
km1 = MAX(1,k-1) |
|
./model/src/dynamics.F |
196 |
DYNAMICS |
INTEGER k, km1, kp1, kup, kDown |
|
./model/src/dynamics.F |
408 |
DYNAMICS |
km1 = MAX(1,k-1) |
|
./pkg/shelfice/shelfice_forcing.F |
164 |
SHELFICE_FORCING_S |
km1 = MAX(kLev-1,1) |
|
./pkg/shelfice/shelfice_forcing.F |
165 |
SHELFICE_FORCING_S |
drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
168 |
SHELFICE_FORCING_S |
& /( drF(km1)*_hFacC(I,J,km1,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
72 |
SHELFICE_FORCING_T |
km1 = MAX(kLev-1,1) |
|
./pkg/shelfice/shelfice_forcing.F |
73 |
SHELFICE_FORCING_T |
drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
76 |
SHELFICE_FORCING_T |
& /( drF(km1)*_hFacC(I,J,km1,bi,bj)+drLoc ) |
|
./pkg/timeave/timeave_cumul_2v.F |
124 |
TIMEAVE_CUMUL_2V |
km1 = MAX(k-1,1) |
|
./pkg/timeave/timeave_cumul_2v.F |
128 |
TIMEAVE_CUMUL_2V |
& + .25 _d 0*( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
141 |
TIMEAVE_CUMUL_2V |
km1 = MAX(k-1,1) |
|
./pkg/timeave/timeave_cumul_2v.F |
145 |
TIMEAVE_CUMUL_2V |
& + .25 _d 0*( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
44 |
TIMEAVE_CUMUL_2V |
INTEGER km1 |
|
./pkg/timeave/timeave_cumul_2v.F |
94 |
TIMEAVE_CUMUL_2V |
km1 = MAX(k-1,1) |
|
./pkg/timeave/timeave_cumul_2v.F |
98 |
TIMEAVE_CUMUL_2V |
& + .5 * ( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./model/src/thermodynamics.F |
183 |
THERMODYNAMICS |
INTEGER k, km1, kup, kDown |
|
./model/src/thermodynamics.F |
468 |
THERMODYNAMICS |
km1 = MAX(1,k-1) |
|
./model/src/thermodynamics.F |
625 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax, k,km1,kup,kDown, |
|
./model/src/thermodynamics.F |
675 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax, k,km1,kup,kDown, |
|
./model/src/timestep_wvel.F |
40 |
TIMESTEP_WVEL |
INTEGER i, j, k, km1 |
|
./model/src/timestep_wvel.F |
60 |
TIMESTEP_WVEL |
km1 = MAX( k-1, 1 ) |
|
./model/src/timestep_wvel.F |
88 |
TIMESTEP_WVEL |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
150 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
154 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j,km1,bi,bj)+uVel(i,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
170 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
174 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i,j,km1,bi,bj)+vVel(i,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
224 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
228 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,K,bi,bj)+theta(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
273 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
277 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
54 |
DIAGNOSTICS_FILL_STATE |
INTEGER km1 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
568 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
572 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,K,bi,bj)+theta(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
619 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
623 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i,j,km1,bi,bj)) |