| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_routines.F |
1119 |
BLMIX |
integer i, kn, ki |
|
./pkg/kpp/kpp_routines.F |
1212 |
BLMIX |
do ki = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
1215 |
BLMIX |
kkppkey = (ikppkey-1)*Nr + ki |
|
./pkg/kpp/kpp_routines.F |
1223 |
BLMIX |
sig = (-zgrid(ki) + 0.5 * hwide(ki)) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1242 |
BLMIX |
sig = (-zgrid(ki) + 0.5 * hwide(ki)) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1255 |
BLMIX |
blmc(i,ki,1) = hbl(i) * wm(i) * sig * (1. + sig * Gm) |
|
./pkg/kpp/kpp_routines.F |
1256 |
BLMIX |
blmc(i,ki,2) = hbl(i) * ws(i) * sig * (1. + sig * Gs) |
|
./pkg/kpp/kpp_routines.F |
1257 |
BLMIX |
blmc(i,ki,3) = hbl(i) * ws(i) * sig * (1. + sig * Gt) |
|
./pkg/kpp/kpp_routines.F |
1264 |
BLMIX |
ghat(i,ki) = (1.-stable(i)) * cg / max(phepsi,tempVar) |
|
./pkg/kpp/kpp_routines.F |
1348 |
ENHANCE |
integer ki, i, md |
|
./pkg/kpp/kpp_routines.F |
1352 |
ENHANCE |
ki = kbl(i)-1 |
|
./pkg/kpp/kpp_routines.F |
1353 |
ENHANCE |
if ((ki .ge. 1) .and. (ki .lt. Nr)) then |
|
./pkg/kpp/kpp_routines.F |
1354 |
ENHANCE |
delta = (hbl(i) + zgrid(ki)) / (zgrid(ki) - zgrid(ki+1)) |
|
./pkg/kpp/kpp_routines.F |
1356 |
ENHANCE |
dkmp5 = casea(i) * diffus(i,ki,md) + |
|
./pkg/kpp/kpp_routines.F |
1357 |
ENHANCE |
1 (1.- casea(i)) * blmc (i,ki,md) |
|
./pkg/kpp/kpp_routines.F |
1360 |
ENHANCE |
blmc(i,ki,md) = (1.- delta)*diffus(i,ki,md) |
|
./pkg/kpp/kpp_routines.F |
1363 |
ENHANCE |
ghat(i,ki) = (1.- casea(i)) * ghat(i,ki) |
|
./pkg/kpp/kpp_routines.F |
701 |
RI_IWMIX |
integer i, ki |
|
./pkg/kpp/kpp_routines.F |
722 |
RI_IWMIX |
do ki = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
724 |
RI_IWMIX |
diffus(i,ki,1) = 0. |
|
./pkg/kpp/kpp_routines.F |
725 |
RI_IWMIX |
diffus(i,ki,2) = 0. |
|
./pkg/kpp/kpp_routines.F |
726 |
RI_IWMIX |
diffus(i,ki,3) = 0. |
|
./pkg/kpp/kpp_routines.F |
732 |
RI_IWMIX |
do ki = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
735 |
RI_IWMIX |
diffus(i,ki,1) = 0. |
|
./pkg/kpp/kpp_routines.F |
736 |
RI_IWMIX |
diffus(i,ki,2) = 0. |
|
./pkg/kpp/kpp_routines.F |
737 |
RI_IWMIX |
elseif (ki .GE. kmtj(i)) then |
|
./pkg/kpp/kpp_routines.F |
738 |
RI_IWMIX |
diffus(i,ki,1) = diffus(i,ki-1,1) |
|
./pkg/kpp/kpp_routines.F |
739 |
RI_IWMIX |
diffus(i,ki,2) = diffus(i,ki-1,2) |
|
./pkg/kpp/kpp_routines.F |
741 |
RI_IWMIX |
diffus(i,ki,1) = dblocSm(i,ki) * (zgrid(ki)-zgrid(ki+1)) |
|
./pkg/kpp/kpp_routines.F |
742 |
RI_IWMIX |
& / max( Shsq(i,ki), phepsi ) |
|
./pkg/kpp/kpp_routines.F |
743 |
RI_IWMIX |
diffus(i,ki,2) = dbloc(i,ki) / (zgrid(ki)-zgrid(ki+1)) |
|
./pkg/kpp/kpp_routines.F |
765 |
RI_IWMIX |
do ki = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
770 |
RI_IWMIX |
Rig = max ( diffus(i,ki,2) , BVSQcon ) |
|
./pkg/kpp/kpp_routines.F |
777 |
RI_IWMIX |
Rig = max ( diffus(i,ki,1), c0 ) |
|
./pkg/kpp/kpp_routines.F |
788 |
RI_IWMIX |
diffus(i,ki,1) = viscAr + fcon * difmcon + fRi * difm0 |
|
./pkg/kpp/kpp_routines.F |
789 |
RI_IWMIX |
diffus(i,ki,2) = diffKrNrS(ki)+ fcon*difscon + fRi*difs0 |
|
./pkg/kpp/kpp_routines.F |
790 |
RI_IWMIX |
diffus(i,ki,3) = diffKrNrT(ki)+ fcon*difscon + fRi*difs0 |
|
./pkg/kpp/kpp_routines.F |
792 |
RI_IWMIX |
diffus(i,ki,1) = viscAr |
|
./pkg/kpp/kpp_routines.F |
793 |
RI_IWMIX |
diffus(i,ki,2) = diffKrNrS(ki) |
|
./pkg/kpp/kpp_routines.F |
794 |
RI_IWMIX |
diffus(i,ki,3) = diffKrNrT(ki) |
|
./pkg/kpp/kpp_routines.F |
797 |
RI_IWMIX |
diffus(i,ki,1) = viscAr |
|
./pkg/kpp/kpp_routines.F |
798 |
RI_IWMIX |
diffus(i,ki,2) = diffKrNrS(ki) |
|
./pkg/kpp/kpp_routines.F |
799 |
RI_IWMIX |
diffus(i,ki,3) = diffKrNrT(ki) |