| File |
Line number |
Procedure |
Code |
|
./pkg/ptracers/ptracers_integrate.F |
82 |
PTRACERS_INTEGRATE |
INTEGER kUp,kDown,km1 |
|
./pkg/ptracers/ptracers_integrate.F |
94 |
PTRACERS_INTEGRATE |
km1 = MAX(1,k-1) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
102 |
PTRACERS_DIAGNOSTICS_FILL |
& + ptracer(i,j,km1,bi,bj,N)) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
37 |
PTRACERS_DIAGNOSTICS_FILL |
INTEGER km1 |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
97 |
PTRACERS_DIAGNOSTICS_FILL |
km1 = MAX(K-1,1) |
|
./pkg/gmredi/gmredi_xtransport.F |
117 |
GMREDI_XTRANSPORT |
km1 = MAX(k-1,1) |
|
./pkg/gmredi/gmredi_xtransport.F |
126 |
GMREDI_XTRANSPORT |
& (Tracer(i-1,j,km1,bi,bj)-Tracer(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
128 |
GMREDI_XTRANSPORT |
& (Tracer( i ,j,km1,bi,bj)-Tracer( i ,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
52 |
GMREDI_XTRANSPORT |
INTEGER km1,kp1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
429 |
GMREDI_CALC_TENSOR |
km1 = MAX(k-1,1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
446 |
GMREDI_CALC_TENSOR |
& (theta(i-1,j,km1,bi,bj)-theta(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
448 |
GMREDI_CALC_TENSOR |
& (theta( i ,j,km1,bi,bj)-theta( i ,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
565 |
GMREDI_CALC_TENSOR |
& (theta(i,j-1,km1,bi,bj)-theta(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
567 |
GMREDI_CALC_TENSOR |
& (theta(i, j ,km1,bi,bj)-theta(i, j ,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
69 |
GMREDI_CALC_TENSOR |
INTEGER km1 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
102 |
GMREDI_CALC_PSI_B |
SlopeY(i,j)=op5*( sigmaY(i,j,km1)+sigmaY(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
47 |
GMREDI_CALC_PSI_B |
INTEGER i,j,k, km1 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
77 |
GMREDI_CALC_PSI_B |
km1 = k-1 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
94 |
GMREDI_CALC_PSI_B |
SlopeX(i,j)=op5*( sigmaX(i,j,km1)+sigmaX(i,j,k) ) |
|
./pkg/gmredi/gmredi_ytransport.F |
117 |
GMREDI_YTRANSPORT |
km1 = MAX(k-1,1) |
|
./pkg/gmredi/gmredi_ytransport.F |
127 |
GMREDI_YTRANSPORT |
& (Tracer(i,j-1,km1,bi,bj)-Tracer(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
129 |
GMREDI_YTRANSPORT |
& (Tracer(i, j ,km1,bi,bj)-Tracer(i, j ,k,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
52 |
GMREDI_YTRANSPORT |
INTEGER km1,kp1 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
138 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
142 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j,km1,bi,bj)+uVel(i,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
158 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
162 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i,j,km1,bi,bj)+vVel(i,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
212 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
216 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,K,bi,bj)+theta(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
261 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
265 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
51 |
DIAGNOSTICS_FILL_STATE |
INTEGER km1 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
554 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
558 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,K,bi,bj)+theta(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
605 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
609 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i,j,km1,bi,bj)) |
|
./pkg/fizhi/fizhi_moist.F |
1174 |
RAS |
integer km1,kp1,kprv,kcr,kfx,ncmx |
|
./pkg/fizhi/fizhi_moist.F |
1601 |
CLOUD |
integer nt,km1,ic1,i,L,len1,len2,isav,len11,ii |
|
./verification/OpenAD/code/gad_fluxlimit_impl_r.F |
64 |
GAD_FLUXLIMIT_IMPL_R |
INTEGER i,j,kp1,km1,km2 |
|
./verification/OpenAD/code/gad_fluxlimit_impl_r.F |
75 |
GAD_FLUXLIMIT_IMPL_R |
km1=MAX(1,k-1) |
|
./verification/OpenAD/code/gad_fluxlimit_impl_r.F |
87 |
GAD_FLUXLIMIT_IMPL_R |
Rj =(tFld(i,j,k) -tFld(i,j,km1)) |
|
./verification/OpenAD/code/gad_fluxlimit_impl_r.F |
88 |
GAD_FLUXLIMIT_IMPL_R |
Rjm=(tFld(i,j,km1)-tFld(i,j,km2))*maskC(i,j,km2,bi,bj) |
|
./verification/OpenAD/code/gad_fluxlimit_adv_r.F |
103 |
GAD_FLUXLIMIT_ADV_R |
Rjm=(tracer(i,j,km1,bi,bj)-tracer(i,j,kM2,bi,bj)) |
|
./verification/OpenAD/code/gad_fluxlimit_adv_r.F |
64 |
GAD_FLUXLIMIT_ADV_R |
INTEGER i,j,kp1,km1,km2,bi,bj |
|
./verification/OpenAD/code/gad_fluxlimit_adv_r.F |
85 |
GAD_FLUXLIMIT_ADV_R |
km1=MAX(1,k-1) |
|
./model/src/dynamics.F |
190 |
DYNAMICS |
INTEGER k, km1, kp1, kup, kDown |
|
./model/src/dynamics.F |
388 |
DYNAMICS |
km1 = MAX(1,k-1) |
|
./model/src/thermodynamics.F |
166 |
THERMODYNAMICS |
INTEGER k, km1, kup, kDown |
|
./model/src/thermodynamics.F |
393 |
THERMODYNAMICS |
km1 = MAX(1,k-1) |
|
./model/src/thermodynamics.F |
525 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax, k,km1,kup,kDown, |
|
./model/src/thermodynamics.F |
558 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax, k,km1,kup,kDown, |
|
./pkg/ggl90/ggl90_calc.F |
275 |
GGL90_CALC |
km1=MAX(1,k-1) |
|
./pkg/ggl90/ggl90_calc.F |
279 |
GGL90_CALC |
& *recip_drF(km1)*recip_hFacI(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
280 |
GGL90_CALC |
& *.5*(KappaE(i,j, k )+KappaE(i,j,km1)) |
|
./pkg/ggl90/ggl90_calc.F |
282 |
GGL90_CALC |
IF (recip_hFacI(i,j,km1,bi,bj).EQ.0.) a(i,j,k)=0. |
|
./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 |
52 |
KPP_TRANSPORT_PTR |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1,tracerIdentity |
|
./pkg/kpp/kpp_transport_ptr.F |
73 |
KPP_TRANSPORT_PTR |
& *KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
84 |
KPP_TRANSPORT_PTR |
& *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 |
43 |
KPP_TRANSPORT_S |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1 |
|
./pkg/kpp/kpp_transport_s.F |
64 |
KPP_TRANSPORT_S |
& *KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
75 |
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 |
47 |
KPP_TRANSPORT_T |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1 |
|
./pkg/kpp/kpp_transport_t.F |
68 |
KPP_TRANSPORT_T |
& *KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
83 |
KPP_TRANSPORT_T |
& *KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_routines.F |
847 |
Z121 |
integer i, k, km1, kp1 |
|
./pkg/kpp/kpp_routines.F |
883 |
Z121 |
km1 = k - 1 |
|
./pkg/kpp/kpp_routines.F |
890 |
Z121 |
zflag = p2 + KRi_range(k)*(KRi_range(kp1)+KRi_range(km1)) |
|
./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) ) |
|
./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_dst3_adv_r.F |
111 |
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 |
58 |
GAD_DST3_ADV_R |
INTEGER i,j,kp1,km1,km2 |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
71 |
GAD_DST3_ADV_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
78 |
GAD_DST3_ADV_R |
Rj =(tracer(i,j,km1)-tracer(i,j,k)) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
79 |
GAD_DST3_ADV_R |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
80 |
GAD_DST3_ADV_R |
Rjm=(tracer(i,j,km2)-tracer(i,j,km1)) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
81 |
GAD_DST3_ADV_R |
& *maskC(i,j,km1,bi,bj) |
|
./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_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_dst3fl_adv_r.F |
113 |
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_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_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_calc_rhs.F |
542 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
546 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
551 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./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/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)) |