| 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_c2_adv_r.F |
63 |
GAD_C2_ADV_R |
wT(i,j) = maskC(i,j,km1,bi,bj)* |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
65 |
GAD_C2_ADV_R |
& (tracer(i,j,k)+tracer(i,j,km1))*0.5 _d 0 |
|
./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 |
78 |
GAD_C4_ADV_R |
Rj = (tracer(i,j, k )-tracer(i,j,km1)) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
79 |
GAD_C4_ADV_R |
Rjm = (tracer(i,j,km1)-tracer(i,j,km2))*maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
83 |
GAD_C4_ADV_R |
wT(i,j) = maskC(i,j,km1,bi,bj)*( |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
84 |
GAD_C4_ADV_R |
& rTrans(i,j)*( (tracer(i,j,k)+tracer(i,j,km1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
666 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
671 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
677 |
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)-tracer(i,j,km1))*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 |
112 |
GAD_DST3_ADV_R |
& *( tracer(i,j,km1) - psiP*Rj ) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
118 |
GAD_DST3_ADV_R |
& *( tracer(i,j,km1) - (d0*Rj+d1*Rjm) ) |
|
./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 |
74 |
GAD_DST3_ADV_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
81 |
GAD_DST3_ADV_R |
Rj =(tracer(i,j,km1)-tracer(i,j,k)) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
82 |
GAD_DST3_ADV_R |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
83 |
GAD_DST3_ADV_R |
Rjm=(tracer(i,j,km2)-tracer(i,j,km1)) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
84 |
GAD_DST3_ADV_R |
& *maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
117 |
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 |
75 |
GAD_DST3FL_ADV_R |
Rj =(tracer(i,j,km1)-tracer(i,j,k)) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
76 |
GAD_DST3FL_ADV_R |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
77 |
GAD_DST3FL_ADV_R |
Rjm=(tracer(i,j,km2)-tracer(i,j,km1)) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
78 |
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 |
67 |
GAD_FLUXLIMIT_IMPL_R |
INTEGER i,j,kp1,km1,km2 |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
78 |
GAD_FLUXLIMIT_IMPL_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
91 |
GAD_FLUXLIMIT_IMPL_R |
Rj =(tFld(i,j,k) -tFld(i,j,km1)) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
92 |
GAD_FLUXLIMIT_IMPL_R |
Rjm=(tFld(i,j,km1)-tFld(i,j,km2))*maskC(i,j,km2,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
357 |
GAD_IMPLICIT_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
366 |
GAD_IMPLICIT_R |
& + gTracer(i,j,km1)*b5d(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 |
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 |
186 |
GAD_SOM_ADV_R |
km1 = 1 |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
193 |
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 |
198 |
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 |
201 |
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 |
202 |
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 |
205 |
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 |
206 |
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 |
207 |
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 |
214 |
GAD_SOM_ADV_R |
km1 = k-1 |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
220 |
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 |
226 |
GAD_SOM_ADV_R |
& ( sm_o(i,j,km1) - aln1*sm_z(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
227 |
GAD_SOM_ADV_R |
& + aln1*(aln1-aln(i,j,kUp))*sm_zz(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
230 |
GAD_SOM_ADV_R |
& ( sm_z(i,j,km1) - three*aln1*sm_zz(i,j,km1) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
231 |
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 |
233 |
GAD_SOM_ADV_R |
& ( sm_x(i,j,km1) - aln1*sm_xz(i,j,km1) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
235 |
GAD_SOM_ADV_R |
& ( sm_y(i,j,km1) - aln1*sm_yz(i,j,km1) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
236 |
GAD_SOM_ADV_R |
fn_xz(i,j,kUp) = alnq *sm_xz(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
237 |
GAD_SOM_ADV_R |
fn_yz(i,j,kUp) = alnq *sm_yz(i,j,km1) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
238 |
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 |
239 |
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 |
240 |
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 |
254 |
GAD_SOM_ADV_R |
km1 = k |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
261 |
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 |
264 |
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 |
265 |
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 |
266 |
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 |
267 |
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 |
268 |
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 |
269 |
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 |
540 |
GAD_SOM_ADVECT |
km1= MAX(k-1,1) |
|
./pkg/generic_advdiff/gad_som_advect.F |
545 |
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 |
94 |
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 |
72 |
GAD_U3_ADV_R |
Rj = (tracer(i,j, k )-tracer(i,j,km1)) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
73 |
GAD_U3_ADV_R |
Rjm = (tracer(i,j,km1)-tracer(i,j,km2))*maskC(i,j,km2,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
76 |
GAD_U3_ADV_R |
wT(i,j) = maskC(i,j,km1,bi,bj)*( |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
77 |
GAD_U3_ADV_R |
& rTrans(i,j)*( (tracer(i,j,k)+tracer(i,j,km1))*0.5 _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
156 |
GGL90_CALC |
& MIN(.5 _d 0,_hFacC(i,j,km1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_calc.F |
364 |
GGL90_CALC |
km1 = k-1 |
|
./pkg/ggl90/ggl90_calc.F |
438 |
GGL90_CALC |
tempU = ( uVel( i ,j,km1,bi,bj) - uVel( i ,j,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
439 |
GGL90_CALC |
tempUp = ( uVel(i+1,j,km1,bi,bj) - uVel(i+1,j,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
440 |
GGL90_CALC |
tempV = ( vVel(i, j ,km1,bi,bj) - vVel(i, j ,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
441 |
GGL90_CALC |
tempVp = ( vVel(i,j+1,km1,bi,bj) - vVel(i,j+1,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
452 |
GGL90_CALC |
tempU = ( ( uVel(i,j,km1,bi,bj) + uVel(i+1,j,km1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
455 |
GGL90_CALC |
tempV = ( ( vVel(i,j,km1,bi,bj) + vVel(i,j+1,km1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
557 |
GGL90_CALC |
km1=MAX(2,k-1) |
|
./pkg/ggl90/ggl90_calc.F |
565 |
GGL90_CALC |
& *.5 _d 0*(KappaE(i,j, k )+KappaE(i,j,km1)) |
|
./pkg/ggl90/ggl90_calc.F |
616 |
GGL90_CALC |
km1 = MAX(k-1,1) |
|
./pkg/ggl90/ggl90_calc.F |
622 |
GGL90_CALC |
& * maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
78 |
GGL90_CALC |
INTEGER i, j, k, kp1, km1, kSurf, kBottom |
|
./pkg/ggl90/ggl90_idemix.F |
327 |
GGL90_IDEMIX |
km1=MAX(2,k-1) |
|
./pkg/ggl90/ggl90_idemix.F |
331 |
GGL90_IDEMIX |
a3d(i,j,k) = -delta(i,j,k-1)*c0(i,j,km1) |
|
./pkg/ggl90/ggl90_idemix.F |
366 |
GGL90_IDEMIX |
km1 = MAX(k-1,2) |
|
./pkg/ggl90/ggl90_idemix.F |
371 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
375 |
GGL90_IDEMIX |
& *maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
377 |
GGL90_IDEMIX |
b3d(i,j,k) = b3d(i,j,k) + delta(i,j,km1)*c0(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
388 |
GGL90_IDEMIX |
km1 = MAX(k-1,2) |
|
./pkg/ggl90/ggl90_idemix.F |
391 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
393 |
GGL90_IDEMIX |
& + delta(i,j,km1 )*c0(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
399 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
403 |
GGL90_IDEMIX |
& *maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
60 |
GGL90_IDEMIX |
INTEGER i, j, k, kp1, km1, kBottom |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
111 |
GMREDI_CALC_PSI_B |
SlopeX(i,j)=op5*( sigmaX(i,j,km1)+sigmaX(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
119 |
GMREDI_CALC_PSI_B |
SlopeY(i,j)=op5*( sigmaY(i,j,km1)+sigmaY(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
144 |
GMREDI_CALC_PSI_B |
& *(GM_bolFac1d(km1)+GM_bolFac1d(k))*op25 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
152 |
GMREDI_CALC_PSI_B |
& *( op25*( kapGM(i-1,j,km1,bi,bj)+kapGM(i,j,km1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
175 |
GMREDI_CALC_PSI_B |
& *( op25*( kapGM(i,j-1,km1,bi,bj)+kapGM(i,j,km1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
64 |
GMREDI_CALC_PSI_B |
INTEGER i,j,k, km1 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
95 |
GMREDI_CALC_PSI_B |
km1 = k-1 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
106 |
GMREDI_CALC_PSI_BVP |
km1 = k-1 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
108 |
GMREDI_CALC_PSI_BVP |
& *(GM_bolFac1d(km1)+GM_bolFac1d(k))*op25 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
112 |
GMREDI_CALC_PSI_BVP |
sigmaX_W = op5*( sigmaX(i,j,km1)+sigmaX(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
139 |
GMREDI_CALC_PSI_BVP |
km1 = k-1 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
145 |
GMREDI_CALC_PSI_BVP |
& *recip_drF(km1)*recip_hFacW(i,j,km1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
148 |
GMREDI_CALC_PSI_BVP |
& *(recip_drF(km1)*recip_hFacW(i,j,km1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
186 |
GMREDI_CALC_PSI_BVP |
km1 = k-1 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
188 |
GMREDI_CALC_PSI_BVP |
& *(GM_bolFac1d(km1)+GM_bolFac1d(k))*op25 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
191 |
GMREDI_CALC_PSI_BVP |
sigmaY_W = op5*( sigmaY(i,j,km1)+sigmaY(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
211 |
GMREDI_CALC_PSI_BVP |
km1 = k-1 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
217 |
GMREDI_CALC_PSI_BVP |
& *recip_drF(km1)*recip_hFacS(i,j,km1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
220 |
GMREDI_CALC_PSI_BVP |
& *(recip_drF(km1)*recip_hFacS(i,j,km1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
51 |
GMREDI_CALC_PSI_BVP |
INTEGER i,j,k, km1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1015 |
GMREDI_CALC_TENSOR |
km1 = MAX(k-1,1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1045 |
GMREDI_CALC_TENSOR |
& (theta(i,j-1,km1,bi,bj)-theta(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1047 |
GMREDI_CALC_TENSOR |
& (theta(i, j ,km1,bi,bj)-theta(i, j ,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
529 |
GMREDI_CALC_TENSOR |
km1 = MAX(k-1,1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
531 |
GMREDI_CALC_TENSOR |
& *(GM_isoFac1d(km1)+GM_isoFac1d(k))*op5 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
533 |
GMREDI_CALC_TENSOR |
& *(GM_bolFac1d(km1)+GM_bolFac1d(k))*op5 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
540 |
GMREDI_CALC_TENSOR |
Kgm_tmp = op5*(kapRedi(i,j,k,bi,bj)+kapRedi(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
549 |
GMREDI_CALC_TENSOR |
& + GM_skewflx*op5*(kapGM(i,j,k,bi,bj)+kapGM(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
558 |
GMREDI_CALC_TENSOR |
& + op5*(K3D(i,j,k,bi,bj)+K3D(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
568 |
GMREDI_CALC_TENSOR |
& +kapRedi(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
577 |
GMREDI_CALC_TENSOR |
& + op5*(K3D(i,j,k,bi,bj)+K3D(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
797 |
GMREDI_CALC_TENSOR |
km1 = MAX(k-1,1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
827 |
GMREDI_CALC_TENSOR |
& (theta(i-1,j,km1,bi,bj)-theta(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
829 |
GMREDI_CALC_TENSOR |
& (theta( i ,j,km1,bi,bj)-theta( i ,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
95 |
GMREDI_CALC_TENSOR |
INTEGER km1 |
|
./pkg/gmredi/gmredi_xtransport.F |
150 |
GMREDI_XTRANSPORT |
km1 = MAX(k-1,1) |
|
./pkg/gmredi/gmredi_xtransport.F |
159 |
GMREDI_XTRANSPORT |
& (Tracer(i-1,j,km1)-Tracer(i-1,j,k)) |
|
./pkg/gmredi/gmredi_xtransport.F |
161 |
GMREDI_XTRANSPORT |
& (Tracer( i ,j,km1)-Tracer( i ,j,k)) |
|
./pkg/gmredi/gmredi_xtransport.F |
77 |
GMREDI_XTRANSPORT |
INTEGER km1 |
|
./pkg/gmredi/gmredi_ytransport.F |
149 |
GMREDI_YTRANSPORT |
km1 = MAX(k-1,1) |
|
./pkg/gmredi/gmredi_ytransport.F |
158 |
GMREDI_YTRANSPORT |
& (Tracer(i,j-1,km1)-Tracer(i,j-1,k)) |
|
./pkg/gmredi/gmredi_ytransport.F |
160 |
GMREDI_YTRANSPORT |
& (Tracer(i, j ,km1)-Tracer(i, j ,k)) |
|
./pkg/gmredi/gmredi_ytransport.F |
76 |
GMREDI_YTRANSPORT |
INTEGER km1 |
|
./pkg/kpp/kpp_calc.F |
214 |
KPP_CALC |
integer i, j, k, kp1, km1, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_calc.F |
330 |
KPP_CALC |
km1 = max(1,k-1) |
|
./pkg/kpp/kpp_calc.F |
337 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
339 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
341 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
573 |
KPP_CALC |
km1 = max(1,k-1) |
|
./pkg/kpp/kpp_calc.F |
575 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
577 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
579 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
581 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_routines.F |
1152 |
Z121 |
integer i, k, km1, kp1 |
|
./pkg/kpp/kpp_routines.F |
1191 |
Z121 |
km1 = k - 1 |
|
./pkg/kpp/kpp_routines.F |
1198 |
Z121 |
zflag = p2 + KRi_range(k)*(KRi_range(kp1)+KRi_range(km1)) |
|
./pkg/kpp/kpp_routines.F |
411 |
BLDEPTH |
integer km, km1 |
|
./pkg/kpp/kpp_routines.F |
511 |
BLDEPTH |
km1=max(1,kbl(i)) |
|
./pkg/kpp/kpp_routines.F |
512 |
BLDEPTH |
temp = (boplume(i,km)+boplume(i,km1))*p5 |
|
./pkg/kpp/kpp_routines.F |
672 |
BLDEPTH |
km1=max(1,kbl(i)) |
|
./pkg/kpp/kpp_routines.F |
673 |
BLDEPTH |
temp = (boplume(i,km)+boplume(i,km1))/2.0 |
|
./pkg/kpp/kpp_routines.F |
795 |
BLDEPTH |
km1=max(1,kbl(i)-0) |
|
./pkg/kpp/kpp_routines.F |
796 |
BLDEPTH |
temp = (boplume(i,km)+boplume(i,km1))/2.0 |
|
./pkg/kpp/kpp_transport_ptr.F |
111 |
KPP_TRANSPORT_PTR |
& )*LS_KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
117 |
KPP_TRANSPORT_PTR |
& )*KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
11 |
KPP_TRANSPORT_PTR |
I bi, bj, k, km1, iTr, |
|
./pkg/kpp/kpp_transport_ptr.F |
65 |
KPP_TRANSPORT_PTR |
INTEGER bi, bj, k, km1, iTr |
|
./pkg/kpp/kpp_transport_s.F |
114 |
KPP_TRANSPORT_S |
& *KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
13 |
KPP_TRANSPORT_S |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/kpp/kpp_transport_s.F |
53 |
KPP_TRANSPORT_S |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1 |
|
./pkg/kpp/kpp_transport_s.F |
98 |
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 |
81 |
KPP_TRANSPORT_T |
& *KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
96 |
KPP_TRANSPORT_T |
& *KPPghat(i,j,km1,bi,bj) |
|
./model/src/calc_gw.F |
119 |
CALC_GW |
INTEGER i,j,k, km1, kp1 |
|
./model/src/calc_gw.F |
183 |
CALC_GW |
km1 = MAX( k-1, 1 ) |
|
./model/src/calc_gw.F |
500 |
CALC_GW |
& drF(km1)*_hFacW(i,j,km1,bi,bj)*uVel(i,j,km1,bi,bj) |
|
./model/src/calc_gw.F |
501 |
CALC_GW |
& *rhoFacC(km1)*mskM1 |
|
./model/src/calc_gw.F |
515 |
CALC_GW |
& drF(km1)*_hFacS(i,j,km1,bi,bj)*vVel(i,j,km1,bi,bj) |
|
./model/src/calc_gw.F |
516 |
CALC_GW |
& *rhoFacC(km1)*mskM1 |
|
./model/src/calc_gw.F |
579 |
CALC_GW |
& +addMass(i,j,km1,bi,bj)*mskM1 ) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
55 |
MOM_UV_SMAG_3D |
INTEGER km1, kp1 |
|
./pkg/mom_common/mom_uv_smag_3d.F |
58 |
MOM_UV_SMAG_3D |
km1 = MAX( 1,k-1) |
|
./pkg/mom_common/mom_w_smag_3d.F |
57 |
MOM_W_SMAG_3D |
INTEGER km1 |
|
./pkg/mom_common/mom_w_smag_3d.F |
60 |
MOM_W_SMAG_3D |
km1 = MAX(1,k-1) |
|
./pkg/mom_common/mom_w_smag_3d.F |
93 |
MOM_W_SMAG_3D |
& -viscAh3d_00( i , j ,km1)*str33( i , j ,km1)*maskM1 |
|
./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/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 |
98 |
CG3D |
INTEGER km1, kp1 |
|
./model/src/cg3d_ex0.F |
195 |
CG3D_EX0 |
km1 = MAX(k-1, 1 ) |
|
./model/src/cg3d_ex0.F |
212 |
CG3D_EX0 |
& +aV3d( i, j, k, bi,bj)*cg3d_x( i, j,km1,bi,bj)*maskM1 |
|
./model/src/cg3d_ex0.F |
90 |
CG3D_EX0 |
INTEGER km1, kp1 |
|
./pkg/obcs/obcs_apply_w.F |
110 |
OBCS_APPLY_W |
km1 = MAX( k-1, 1 ) |
|
./pkg/obcs/obcs_apply_w.F |
111 |
OBCS_APPLY_W |
obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
115 |
OBCS_APPLY_W |
obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
129 |
OBCS_APPLY_W |
km1 = MAX( k-1, 1 ) |
|
./pkg/obcs/obcs_apply_w.F |
130 |
OBCS_APPLY_W |
obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
134 |
OBCS_APPLY_W |
obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
48 |
OBCS_APPLY_W |
INTEGER k, km1 |
|
./pkg/obcs/obcs_apply_w.F |
60 |
OBCS_APPLY_W |
km1 = MAX( k-1, 1 ) |
|
./pkg/obcs/obcs_apply_w.F |
71 |
OBCS_APPLY_W |
km1 = MAX( k-1, 1 ) |
|
./pkg/obcs/obcs_apply_w.F |
72 |
OBCS_APPLY_W |
obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
76 |
OBCS_APPLY_W |
obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
90 |
OBCS_APPLY_W |
km1 = MAX( k-1, 1 ) |
|
./pkg/obcs/obcs_apply_w.F |
91 |
OBCS_APPLY_W |
obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
95 |
OBCS_APPLY_W |
obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj) |
|
./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 |
|
./model/src/dynamics.F |
187 |
DYNAMICS |
INTEGER k, km1, kp1, kUp, kDown |
|
./model/src/dynamics.F |
427 |
DYNAMICS |
km1 = MAX(1,k-1) |
|
./pkg/shelfice/shelfice_forcing.F |
175 |
SHELFICE_FORCING_S |
km1 = MAX(kLev-1,1) |
|
./pkg/shelfice/shelfice_forcing.F |
176 |
SHELFICE_FORCING_S |
drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
180 |
SHELFICE_FORCING_S |
& /( drF(km1)*_hFacC(I,J,km1,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
83 |
SHELFICE_FORCING_T |
km1 = MAX(kLev-1,1) |
|
./pkg/shelfice/shelfice_forcing.F |
84 |
SHELFICE_FORCING_T |
drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
88 |
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/timestep_wvel.F |
47 |
TIMESTEP_WVEL |
INTEGER i, j, k, km1 |
|
./model/src/timestep_wvel.F |
64 |
TIMESTEP_WVEL |
km1 = MAX( k-1, 1 ) |
|
./model/src/timestep_wvel.F |
92 |
TIMESTEP_WVEL |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
156 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
160 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j,km1,bi,bj)+uVel(i,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
176 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
180 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i,j,km1,bi,bj)+vVel(i,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
230 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
234 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,k,bi,bj)+theta(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
279 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
283 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
581 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
585 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,k,bi,bj)+theta(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
62 |
DIAGNOSTICS_FILL_STATE |
INTEGER km1 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
632 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
636 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i,j,km1,bi,bj)) |