| 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 |
351 |
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 |
1034 |
RI_IWMIX |
diffus(i,ki,1) = dblocSm(i,ki) * (zgrid(ki)-zgrid(ki+1)) |
|
./pkg/kpp/kpp_routines.F |
1036 |
RI_IWMIX |
diffus(i,ki,2) = dbloc(i,ki) / (zgrid(ki)-zgrid(ki+1)) |
|
./pkg/kpp/kpp_routines.F |
1404 |
BLMIX |
delhat = 0.5*hwide(kn) - zgrid(kn) - hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1467 |
BLMIX |
sig = (-zgrid(ki) + 0.5 * hwide(ki)) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1490 |
BLMIX |
sig = (-zgrid(ki) + 0.5 * hwide(ki)) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1523 |
BLMIX |
sig = -zgrid(kl-1) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1545 |
BLMIX |
sig = -zgrid(kl-1) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1610 |
ENHANCE |
delta = (hbl(i) + zgrid(ki)) / (zgrid(ki) - zgrid(ki+1)) |
|
./pkg/kpp/kpp_routines.F |
440 |
BLDEPTH |
hbl(i) = -zgrid(kl) |
|
./pkg/kpp/kpp_routines.F |
461 |
BLDEPTH |
worka(i) = zgrid(kl) |
|
./pkg/kpp/kpp_routines.F |
478 |
BLDEPTH |
casea(i) = -zgrid(kl) |
|
./pkg/kpp/kpp_routines.F |
490 |
BLDEPTH |
worka(i) = zgrid(kl) |
|
./pkg/kpp/kpp_routines.F |
548 |
BLDEPTH |
1 ( dbloc(i,kl-1) / (zgrid(kl-1)-zgrid(kl ))+ |
|
./pkg/kpp/kpp_routines.F |
549 |
BLDEPTH |
2 dbloc(i,kl ) / (zgrid(kl )-zgrid(kl+1))) |
|
./pkg/kpp/kpp_routines.F |
554 |
BLDEPTH |
vtsq = -zgrid(kl) * ws(i) * sqrt(abs(bvsq)) * Vtc |
|
./pkg/kpp/kpp_routines.F |
613 |
BLDEPTH |
hbl(i) = -zgrid(kl-1) + (zgrid(kl-1)-zgrid(kl)) * |
|
./pkg/kpp/kpp_routines.F |
712 |
BLDEPTH |
& + (stable(i)-1.) * zgrid(Nr) |
|
./pkg/kpp/kpp_routines.F |
741 |
BLDEPTH |
if ( kbl(i).eq.kmtj(i) .and. (-zgrid(kl)).gt.hbl(i) ) then |
|
./pkg/kpp/kpp_routines.F |
821 |
BLDEPTH |
1 sign(p5, -zgrid(kl) - p5*hwide(kl) - hbl(i)) |