| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
900 |
ASTRO |
integer i,nsecf,k,km,kp |
|
./pkg/fizhi/fizhi_turb.F |
2129 |
TRBFLX |
km(i,L) = min(km(i,L),5. _d 0) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
49 |
GAD_BIHARM_R |
INTEGER kl, km, kp |
|
./pkg/generic_advdiff/gad_biharm_r.F |
59 |
GAD_BIHARM_R |
km = k+n-3 |
|
./pkg/generic_advdiff/gad_biharm_r.F |
61 |
GAD_BIHARM_R |
IF ( km.LT.1 .OR. kl.GT.Nr ) THEN |
|
./pkg/generic_advdiff/gad_biharm_r.F |
71 |
GAD_BIHARM_R |
gradR(i,j,n) = ( tracer(i,j,kl)-tracer(i,j,km) ) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
72 |
GAD_BIHARM_R |
& *tmpFac*maskC(i,j,kl,bi,bj)*maskC(i,j,km,bi,bj) |
|
./model/src/apply_forcing.F |
444 |
APPLY_FORCING_T |
INTEGER km, kc, kp |
|
./model/src/apply_forcing.F |
575 |
APPLY_FORCING_T |
km = k-1 |
|
./model/src/apply_forcing.F |
585 |
APPLY_FORCING_T |
delPI = atm_Cp*( (rC(km)/atm_Po)**atm_kappa |
|
./model/src/apply_forcing.F |
590 |
APPLY_FORCING_T |
& *( theta(i,j,km,bi,bj)*salt(i,j,km,bi,bj) |
|
./model/src/apply_forcing.F |
592 |
APPLY_FORCING_T |
& )*maskC(i,j,km,bi,bj)*0.25 _d 0 |
|
./model/src/calc_3d_diffusivity.F |
248 |
CALC_3D_DIFFUSIVITY |
km = k - 1 |
|
./model/src/calc_3d_diffusivity.F |
255 |
CALC_3D_DIFFUSIVITY |
& *twoRL/(hFacC(i,j,km,bi,bj)+hFacC(i,j,k,bi,bj)) |
|
./model/src/calc_3d_diffusivity.F |
268 |
CALC_3D_DIFFUSIVITY |
km = k - 1 |
|
./model/src/calc_3d_diffusivity.F |
317 |
CALC_3D_DIFFUSIVITY |
IF ( pCellMix_delR.LT.drF(km) ) |
|
./model/src/calc_3d_diffusivity.F |
318 |
CALC_3D_DIFFUSIVITY |
& pC_kFac = pCellMix_delR*recip_drF(km) |
|
./model/src/calc_3d_diffusivity.F |
325 |
CALC_3D_DIFFUSIVITY |
IF ( km.EQ.kSurfC(i,j,bi,bj) .AND. |
|
./model/src/calc_3d_diffusivity.F |
326 |
CALC_3D_DIFFUSIVITY |
& km.LT.kLowC(i,j,bi,bj) ) THEN |
|
./model/src/calc_3d_diffusivity.F |
327 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = pC_kFac*_recip_hFacC(i,j,km,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
77 |
CALC_3D_DIFFUSIVITY |
INTEGER km, mixSurf, mixBott |
|
./pkg/kpp/kpp_routines.F |
411 |
BLDEPTH |
integer km, km1 |
|
./pkg/kpp/kpp_routines.F |
510 |
BLDEPTH |
km =max(1,kbl(i)-1) |
|
./pkg/kpp/kpp_routines.F |
512 |
BLDEPTH |
temp = (boplume(i,km)+boplume(i,km1))*p5 |
|
./pkg/kpp/kpp_routines.F |
671 |
BLDEPTH |
km =max(1,kbl(i)-1) |
|
./pkg/kpp/kpp_routines.F |
673 |
BLDEPTH |
temp = (boplume(i,km)+boplume(i,km1))/2.0 |
|
./pkg/kpp/kpp_routines.F |
794 |
BLDEPTH |
km =max(1,kbl(i)-1) |
|
./pkg/kpp/kpp_routines.F |
796 |
BLDEPTH |
temp = (boplume(i,km)+boplume(i,km1))/2.0 |
|
./pkg/layers/layers_fluxcalc.F |
750 |
LAYERS_LOCATE |
INTEGER l, km |
|
./pkg/layers/layers_fluxcalc.F |
765 |
LAYERS_LOCATE |
km=(ku(i,j)+kl(i,j))/2 |
|
./pkg/layers/layers_fluxcalc.F |
767 |
LAYERS_LOCATE |
IF ( ((xx(n).GE.xx(1)).AND.(x(i,j).GE.xx(km))).OR. |
|
./pkg/layers/layers_fluxcalc.F |
768 |
LAYERS_LOCATE |
& ((xx(n).GE.xx(1)).AND.(x(i,j).GE.xx(km))) ) THEN |
|
./pkg/layers/layers_fluxcalc.F |
769 |
LAYERS_LOCATE |
kl(i,j)=km |
|
./pkg/layers/layers_fluxcalc.F |
771 |
LAYERS_LOCATE |
ku(i,j)=km |
|
./model/src/calc_viscosity.F |
130 |
CALC_VISCOSITY |
km = k - 1 |
|
./model/src/calc_viscosity.F |
138 |
CALC_VISCOSITY |
& *twoRL/(hFacW(i,j,km,bi,bj)+hFacW(i,j,k,bi,bj)) |
|
./model/src/calc_viscosity.F |
148 |
CALC_VISCOSITY |
& *twoRL/(hFacS(i,j,km,bi,bj)+hFacS(i,j,k,bi,bj)) |
|
./model/src/calc_viscosity.F |
161 |
CALC_VISCOSITY |
km = k - 1 |
|
./model/src/calc_viscosity.F |
253 |
CALC_VISCOSITY |
IF ( pCellMix_delR.LT.drF(km) ) |
|
./model/src/calc_viscosity.F |
254 |
CALC_VISCOSITY |
& pC_kFac = pCellMix_delR*recip_drF(km) |
|
./model/src/calc_viscosity.F |
261 |
CALC_VISCOSITY |
IF ( km.EQ.kSurfW(i,j,bi,bj) .AND. |
|
./model/src/calc_viscosity.F |
262 |
CALC_VISCOSITY |
& km.LT.MIN( kLowC(i,j,bi,bj), kLowC(i-1,j,bi,bj) ) |
|
./model/src/calc_viscosity.F |
264 |
CALC_VISCOSITY |
tmpFac(i,j) = pC_kFac*_recip_hFacW(i,j,km,bi,bj) |
|
./model/src/calc_viscosity.F |
305 |
CALC_VISCOSITY |
IF ( km.EQ.kSurfS(i,j,bi,bj) .AND. |
|
./model/src/calc_viscosity.F |
306 |
CALC_VISCOSITY |
& km.LT.MIN( kLowC(i,j,bi,bj), kLowC(i,j-1,bi,bj) ) |
|
./model/src/calc_viscosity.F |
308 |
CALC_VISCOSITY |
tmpFac(i,j) = pC_kFac*_recip_hFacS(i,j,km,bi,bj) |
|
./model/src/calc_viscosity.F |
50 |
CALC_VISCOSITY |
INTEGER km, mixSurf, mixBott |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
104 |
MON_STATS_LATBND_RL |
IF (arrMask(i,j,km,bi,bj).NE.0. .AND. noPnts(n)) THEN |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
109 |
MON_STATS_LATBND_RL |
IF (arrMask(i,j,km,bi,bj).NE.0.) THEN |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
112 |
MON_STATS_LATBND_RL |
tmpVol = arrArea(i,j,bi,bj)*arrhFac(i,j,km,bi,bj)*arrDr(k) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
113 |
MON_STATS_LATBND_RL |
& *arrMask(i,j,km,bi,bj) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
52 |
MON_STATS_LATBND_RL |
INTEGER km, k1, k2 |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
99 |
MON_STATS_LATBND_RL |
km = MIN(k,mskNr) |
|
./pkg/obcs/obcs_mon_stats.F |
110 |
OBCS_MON_STATS_EW_RL |
km = MIN(k,mSize) |
|
./pkg/obcs/obcs_mon_stats.F |
118 |
OBCS_MON_STATS_EW_RL |
tmpMask = arrhFac(iB,j,km,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
182 |
OBCS_MON_STATS_EW_RL |
km = MIN(k,mSize) |
|
./pkg/obcs/obcs_mon_stats.F |
190 |
OBCS_MON_STATS_EW_RL |
tmpMask = arrhFac(iB,j,km,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
313 |
OBCS_MON_STATS_NS_RL |
INTEGER i, k, km |
|
./pkg/obcs/obcs_mon_stats.F |
342 |
OBCS_MON_STATS_NS_RL |
km = MIN(k,mSize) |
|
./pkg/obcs/obcs_mon_stats.F |
350 |
OBCS_MON_STATS_NS_RL |
tmpMask = arrhFac(i,jB,km,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
414 |
OBCS_MON_STATS_NS_RL |
km = MIN(k,mSize) |
|
./pkg/obcs/obcs_mon_stats.F |
422 |
OBCS_MON_STATS_NS_RL |
tmpMask = arrhFac(i,jB,km,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
81 |
OBCS_MON_STATS_EW_RL |
INTEGER j, k, km |
|
./pkg/opps/opps_calc.F |
536 |
NLOPPS |
parameter (imt = 361 , jmt = 301 , km = 30 ) |
|
./pkg/opps/opps_calc.F |
566 |
NLOPPS |
real ta(imt,km),sa(imt,km),gcmdz(km),dz(km) |
|
./pkg/opps/opps_calc.F |
577 |
NLOPPS |
real ttemp(km),stemp(km),taa(km),saa(km) |
|
./pkg/opps/opps_calc.F |
578 |
NLOPPS |
real wda(km),tda(km),sda(km),mda(km) |
|
./pkg/opps/opps_calc.F |
600 |
NLOPPS |
REAL Ad(km),Sd(km),Td(km),Wd(km),Dd(km),Md(km) |
|
./pkg/opps/opps_calc.F |
601 |
NLOPPS |
REAL Se(km),Te(km),We(km),De(km) |
|
./pkg/opps/opps_calc.F |
602 |
NLOPPS |
REAL PlumeEntrainment(km) |
|
./pkg/opps/opps_calc.F |
603 |
NLOPPS |
REAL GridThickness(km) |
|
./pkg/opps/opps_calc.F |
616 |
NLOPPS |
common /countc/ convadj(imt,jmt,km),ics,depth(km),problem |
|
./pkg/opps/opps_calc.F |
624 |
NLOPPS |
do k=1,km |
|
./pkg/opps/opps_calc.F |
628 |
NLOPPS |
do k=1,km |
|
./model/src/external_forcing.F |
340 |
EXTERNAL_FORCING_T |
INTEGER km, kc, kp |
|
./model/src/external_forcing.F |
447 |
EXTERNAL_FORCING_T |
km = kLev-1 |
|
./model/src/external_forcing.F |
457 |
EXTERNAL_FORCING_T |
delPI = atm_Cp*( (rC(km)/atm_Po)**atm_kappa |
|
./model/src/external_forcing.F |
462 |
EXTERNAL_FORCING_T |
& *( theta(i,j,km,bi,bj)*salt(i,j,km,bi,bj) |
|
./model/src/external_forcing.F |
464 |
EXTERNAL_FORCING_T |
& )*maskC(i,j,km,bi,bj)*0.25 _d 0 |
|
./verification/rotating_tank/code/apply_forcing.F |
405 |
APPLY_FORCING_T |
INTEGER km, kc, kp |
|
./verification/rotating_tank/code/apply_forcing.F |
578 |
APPLY_FORCING_T |
km = k-1 |
|
./verification/rotating_tank/code/apply_forcing.F |
588 |
APPLY_FORCING_T |
delPI = atm_Cp*( (rC(km)/atm_Po)**atm_kappa |
|
./verification/rotating_tank/code/apply_forcing.F |
593 |
APPLY_FORCING_T |
& *( theta(i,j,km,bi,bj)*salt(i,j,km,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
595 |
APPLY_FORCING_T |
& )*maskC(i,j,km,bi,bj)*0.25 _d 0 |
|
./pkg/chronos/chronos.F |
737 |
ASTRO |
integer i,nsecf,k,km,kp |
|
./pkg/diagnostics/diagnostics_fill_field.F |
101 |
DIAGNOSTICS_FILL_FIELD |
INTEGER kd, kd0, ksgn, km, kStore |
|
./pkg/diagnostics/diagnostics_fill_field.F |
238 |
DIAGNOSTICS_FILL_FIELD |
km = kd - ipointer + 1 |
|
./pkg/diagnostics/diagnostics_fill_field.F |
244 |
DIAGNOSTICS_FILL_FIELD |
I iRun, jRun, k, km, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
264 |
DIAGNOSTICS_FILL_FIELD |
km = kd - ipointer + 1 |
|
./pkg/diagnostics/diagnostics_fill_field.F |
270 |
DIAGNOSTICS_FILL_FIELD |
I iRun, jRun, k, km, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
297 |
DIAGNOSTICS_HF_CUMUL |
I iRun, jRun, k, km, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
340 |
DIAGNOSTICS_HF_CUMUL |
INTEGER iRun, jRun, k, km, bi, bj |
|
./pkg/diagnostics/diagnostics_fill_field.F |
383 |
DIAGNOSTICS_HF_CUMUL |
& + tmpFld(i,j)*hFacC(i,j,km,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
390 |
DIAGNOSTICS_HF_CUMUL |
& + tmpFld(i,j)*hFacW(i,j,km,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
397 |
DIAGNOSTICS_HF_CUMUL |
& + tmpFld(i,j)*hFacS(i,j,km,bi,bj) |
|
./pkg/diagnostics/diagnostics_utils.F |
139 |
DIAGNOSTICS_GET_DIAG |
INTEGER k, kd, km, kLev |
|
./pkg/diagnostics/diagnostics_utils.F |
182 |
DIAGNOSTICS_GET_DIAG |
km = MIN(kd,kdiag(mate)) |
|
./pkg/diagnostics/diagnostics_utils.F |
183 |
DIAGNOSTICS_GET_DIAG |
ipCt = im + km - 1 |
|
./pkg/diagnostics/diagstats_fill.F |
111 |
DIAGSTATS_FILL |
INTEGER km, km0 |
|
./pkg/diagnostics/diagstats_fill.F |
224 |
DIAGSTATS_FILL |
km = km0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
231 |
DIAGSTATS_FILL |
I km, bi, bj, bibjFlg, region2fill, |
|
./pkg/diagnostics/diagstats_fill.F |
241 |
DIAGSTATS_FILL |
km = km0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
248 |
DIAGSTATS_FILL |
I km, biArg, bjArg, bibjFlg, region2fill, |
|
./pkg/diagnostics/diagstats_fill.F |
260 |
DIAGSTATS_FILL |
km = km0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
273 |
DIAGSTATS_FILL |
I km, bi, bj, bibjFlg, region2fill, |
|
./pkg/diagnostics/diagstats_fill.F |
283 |
DIAGSTATS_FILL |
km = km0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
296 |
DIAGSTATS_FILL |
I km, biArg, bjArg, bibjFlg, region2fill, |