| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/KPP_PARAMS.h |
100 |
NO PROCEDURE |
_RL epsln,phepsi,epsilon,vonk,dB_dz, |
|
./pkg/kpp/KPP_PARAMS.h |
105 |
NO PROCEDURE |
common /kmixcom/ epsln,phepsi,epsilon,vonk,dB_dz, |
|
./pkg/kpp/kpp_check.F |
51 |
KPP_CHECK |
CALL WRITE_0D_RL( phepsi, INDEX_NONE, ' phepsi =', |
|
./pkg/kpp/kpp_forcing_surf.F |
198 |
KPP_FORCING_SURF |
if ( work3(i,j) .lt. (phepsi*phepsi*drF(1)*drF(1)) ) then |
|
./pkg/kpp/kpp_forcing_surf.F |
199 |
KPP_FORCING_SURF |
ustar(i,j) = SQRT( phepsi * p5 * drF(1) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
323 |
KPP_FORCING_SURF |
& MAX ( phepsi, dBdz2 - dBdz1 ) |
|
./pkg/kpp/kpp_forcing_surf.F |
347 |
KPP_FORCING_SURF |
& MAX ( ustar(i,j), phepsi ) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
348 |
KPP_FORCING_SURF |
z0(i,j) = MAX ( z0(i,j), phepsi ) |
|
./pkg/kpp/kpp_init_fixed.F |
142 |
KPP_INIT_FIXED |
zeta = zehat / max(phepsi,usta**3) |
|
./pkg/kpp/kpp_init_fixed.F |
168 |
KPP_INIT_FIXED |
zgrid(0) = phepsi |
|
./pkg/kpp/kpp_init_fixed.F |
169 |
KPP_INIT_FIXED |
hwide(0) = phepsi |
|
./pkg/kpp/kpp_init_fixed.F |
184 |
KPP_INIT_FIXED |
hwide(Nrp1) = phepsi |
|
./pkg/kpp/kpp_readparms.F |
45 |
KPP_READPARMS |
& epsln, phepsi, epsilon, vonk, dB_dz, |
|
./pkg/kpp/kpp_readparms.F |
97 |
KPP_READPARMS |
phepsi = 1. _d -10 |
|
./pkg/kpp/kpp_routines.F |
1035 |
RI_IWMIX |
& / max( Shsq(i,ki), phepsi ) |
|
./pkg/kpp/kpp_routines.F |
1387 |
BLMIX |
wm(i) = sign(eins,wm(i))*max(phepsi,abs(wm(i))) |
|
./pkg/kpp/kpp_routines.F |
1388 |
BLMIX |
ws(i) = sign(eins,ws(i))*max(phepsi,abs(ws(i))) |
|
./pkg/kpp/kpp_routines.F |
1397 |
BLMIX |
kn = int(caseA(i)+phepsi) *(kbl(i) -1) + |
|
./pkg/kpp/kpp_routines.F |
1398 |
BLMIX |
$ (1 - int(caseA(i)+phepsi)) * kbl(i) |
|
./pkg/kpp/kpp_routines.F |
1426 |
BLMIX |
& max(ustar(i)**4,phepsi) |
|
./pkg/kpp/kpp_routines.F |
1512 |
BLMIX |
ghat(i,ki) = (1.-stable(i)) * cg / max(phepsi,tempVar) |
|
./pkg/kpp/kpp_routines.F |
570 |
BLDEPTH |
tempVar2 = max(tempVar1, phepsi) |
|
./pkg/kpp/kpp_routines.F |
688 |
BLDEPTH |
bfsfc(i) = sign(eins,bfsfc(i))*max(phepsi,abs(bfsfc(i))) |
|
./pkg/kpp/kpp_routines.F |
708 |
BLDEPTH |
hekman = cekman * ustar(i) / max(abs(Coriol(i)),phepsi) |
|
./pkg/kpp/kpp_routines.F |
811 |
BLDEPTH |
bfsfc(i) = sign(eins,bfsfc(i))*max(phepsi,abs(bfsfc(i))) |