| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/KPP_PARAMS.h |
41 |
NO PROCEDURE |
_RL zgrid ( 0:Nr+1 ) |
|
./pkg/kpp/KPP_PARAMS.h |
49 |
NO PROCEDURE |
COMMON /kpp_r1/ zgrid, hwide |
|
./pkg/kpp/kpp_calc.F |
347 |
KPP_CALC |
Ritop(i,j,k) = (zgrid(1)-zgrid(k)) * Ritop(i,j,k) |
|
./pkg/kpp/kpp_init_fixed.F |
168 |
KPP_INIT_FIXED |
zgrid(0) = phepsi |
|
./pkg/kpp/kpp_init_fixed.F |
178 |
KPP_INIT_FIXED |
zgrid(k) = rC(k) |
|
./pkg/kpp/kpp_init_fixed.F |
182 |
KPP_INIT_FIXED |
zgrid(Nrp1) = zgrid(Nr) * 100. |
|
./pkg/kpp/kpp_routines.F |
1331 |
BLMIX |
delhat = 0.5*hwide(kn) - zgrid(kn) - hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1394 |
BLMIX |
sig = (-zgrid(ki) + 0.5 * hwide(ki)) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1413 |
BLMIX |
sig = (-zgrid(ki) + 0.5 * hwide(ki)) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1445 |
BLMIX |
sig = -zgrid(kbl(i)-1) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1462 |
BLMIX |
sig = -zgrid(kbl(i)-1) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1527 |
ENHANCE |
delta = (hbl(i) + zgrid(ki)) / (zgrid(ki) - zgrid(ki+1)) |
|
./pkg/kpp/kpp_routines.F |
422 |
BLDEPTH |
hbl(i) = -zgrid(kbl(i)) |
|
./pkg/kpp/kpp_routines.F |
443 |
BLDEPTH |
worka(i) = zgrid(kl) |
|
./pkg/kpp/kpp_routines.F |
456 |
BLDEPTH |
casea(i) = -zgrid(kl) |
|
./pkg/kpp/kpp_routines.F |
468 |
BLDEPTH |
worka(i) = zgrid(kl) |
|
./pkg/kpp/kpp_routines.F |
524 |
BLDEPTH |
1 ( dbloc(i,kl-1) / (zgrid(kl-1)-zgrid(kl ))+ |
|
./pkg/kpp/kpp_routines.F |
525 |
BLDEPTH |
2 dbloc(i,kl ) / (zgrid(kl )-zgrid(kl+1))) |
|
./pkg/kpp/kpp_routines.F |
530 |
BLDEPTH |
vtsq = -zgrid(kl) * ws(i) * sqrt(abs(bvsq)) * Vtc |
|
./pkg/kpp/kpp_routines.F |
585 |
BLDEPTH |
hbl(i) = -zgrid(kl-1) + (zgrid(kl-1)-zgrid(kl)) * |
|
./pkg/kpp/kpp_routines.F |
674 |
BLDEPTH |
& + (stable(i)-1.) * zgrid(Nr) |
|
./pkg/kpp/kpp_routines.F |
699 |
BLDEPTH |
if ( kbl(i).eq.kmtj(i) .and. (-zgrid(kl)).gt.hbl(i) ) then |
|
./pkg/kpp/kpp_routines.F |
772 |
BLDEPTH |
1 sign(p5, -zgrid(kbl(i)) - p5*hwide(kbl(i)) - hbl(i)) |
|
./pkg/kpp/kpp_routines.F |
974 |
RI_IWMIX |
diffus(i,ki,1) = dblocSm(i,ki) * (zgrid(ki)-zgrid(ki+1)) |
|
./pkg/kpp/kpp_routines.F |
976 |
RI_IWMIX |
diffus(i,ki,2) = dbloc(i,ki) / (zgrid(ki)-zgrid(ki+1)) |