| 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) |
|
./pkg/kpp/kpp_routines.F |
395 |
BLDEPTH |
integer km, km1 |
|
./pkg/kpp/kpp_routines.F |
488 |
BLDEPTH |
km =max(1,kbl(i)-1) |
|
./pkg/kpp/kpp_routines.F |
490 |
BLDEPTH |
temp = (boplume(i,km)+boplume(i,km1))*p5 |
|
./pkg/kpp/kpp_routines.F |
637 |
BLDEPTH |
km =max(1,kbl(i)-1) |
|
./pkg/kpp/kpp_routines.F |
639 |
BLDEPTH |
temp = (boplume(i,km)+boplume(i,km1))/2.0 |
|
./pkg/kpp/kpp_routines.F |
748 |
BLDEPTH |
km =max(1,kbl(i)-1) |
|
./pkg/kpp/kpp_routines.F |
750 |
BLDEPTH |
temp = (boplume(i,km)+boplume(i,km1))/2.0 |
|
./model/src/apply_forcing.F |
423 |
APPLY_FORCING_T |
INTEGER km, kc, kp |
|
./model/src/apply_forcing.F |
561 |
APPLY_FORCING_T |
km = k-1 |
|
./model/src/apply_forcing.F |
571 |
APPLY_FORCING_T |
delPI = atm_Cp*( (rC(km)/atm_Po)**atm_kappa |
|
./model/src/apply_forcing.F |
576 |
APPLY_FORCING_T |
& *( theta(i,j,km,bi,bj)*salt(i,j,km,bi,bj) |
|
./model/src/apply_forcing.F |
578 |
APPLY_FORCING_T |
& )*maskC(i,j,km,bi,bj)*0.25 _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
581 |
LAYERS_LOCATE |
INTEGER l, km |
|
./pkg/layers/layers_fluxcalc.F |
596 |
LAYERS_LOCATE |
km=(ku(i,j)+kl(i,j))/2 |
|
./pkg/layers/layers_fluxcalc.F |
598 |
LAYERS_LOCATE |
IF ( ((xx(n).GE.xx(1)).AND.(x(i,j).GE.xx(km))).OR. |
|
./pkg/layers/layers_fluxcalc.F |
599 |
LAYERS_LOCATE |
& ((xx(n).GE.xx(1)).AND.(x(i,j).GE.xx(km))) ) THEN |
|
./pkg/layers/layers_fluxcalc.F |
600 |
LAYERS_LOCATE |
kl(i,j)=km |
|
./pkg/layers/layers_fluxcalc.F |
602 |
LAYERS_LOCATE |
ku(i,j)=km |
|
./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 |
521 |
NLOPPS |
parameter (imt = 361 , jmt = 301 , km = 30 ) |
|
./pkg/opps/opps_calc.F |
551 |
NLOPPS |
real ta(imt,km),sa(imt,km),gcmdz(km),dz(km) |
|
./pkg/opps/opps_calc.F |
562 |
NLOPPS |
real ttemp(km),stemp(km),taa(km),saa(km) |
|
./pkg/opps/opps_calc.F |
563 |
NLOPPS |
real wda(km),tda(km),sda(km),mda(km) |
|
./pkg/opps/opps_calc.F |
585 |
NLOPPS |
REAL Ad(km),Sd(km),Td(km),Wd(km),Dd(km),Md(km) |
|
./pkg/opps/opps_calc.F |
586 |
NLOPPS |
REAL Se(km),Te(km),We(km),De(km) |
|
./pkg/opps/opps_calc.F |
587 |
NLOPPS |
REAL PlumeEntrainment(km) |
|
./pkg/opps/opps_calc.F |
588 |
NLOPPS |
REAL GridThickness(km) |
|
./pkg/opps/opps_calc.F |
601 |
NLOPPS |
common /countc/ convadj(imt,jmt,km),ics,depth(km),problem |
|
./pkg/opps/opps_calc.F |
609 |
NLOPPS |
do k=1,km |
|
./pkg/opps/opps_calc.F |
613 |
NLOPPS |
do k=1,km |
|
./model/src/external_forcing.F |
340 |
EXTERNAL_FORCING_T |
INTEGER km, kc, kp |
|
./model/src/external_forcing.F |
448 |
EXTERNAL_FORCING_T |
km = kLev-1 |
|
./model/src/external_forcing.F |
458 |
EXTERNAL_FORCING_T |
delPI = atm_Cp*( (rC(km)/atm_Po)**atm_kappa |
|
./model/src/external_forcing.F |
463 |
EXTERNAL_FORCING_T |
& *( theta(i,j,km,bi,bj)*salt(i,j,km,bi,bj) |
|
./model/src/external_forcing.F |
465 |
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_utils.F |
138 |
DIAGNOSTICS_GET_DIAG |
INTEGER k, kd, km, kLev |
|
./pkg/diagnostics/diagnostics_utils.F |
181 |
DIAGNOSTICS_GET_DIAG |
km = MIN(kd,kdiag(mate)) |
|
./pkg/diagnostics/diagnostics_utils.F |
182 |
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, |