File |
Line number |
Procedure |
Code |
./pkg/kpp/kpp_calc.F |
374 |
KPP_CALC |
if ( work3(i,j) .lt. (phepsi*phepsi*drF(1)*drF(1)) ) then |
./pkg/kpp/kpp_calc.F |
375 |
KPP_CALC |
ustar(i,j) = SQRT( phepsi * p5 * drF(1) ) |
./pkg/kpp/kpp_calc.F |
452 |
KPP_CALC |
& MAX ( phepsi, dBdz2 - dBdz1 ) |
./pkg/kpp/kpp_calc.F |
476 |
KPP_CALC |
& MAX ( ustar(i,j), phepsi ) ) |
./pkg/kpp/kpp_calc.F |
477 |
KPP_CALC |
z0(i,j) = MAX ( z0(i,j), phepsi ) |
./pkg/kpp/kpp_readparms.F |
41 |
KPP_READPARMS |
& epsln, phepsi, epsilon, vonk, dB_dz, |
./pkg/kpp/kpp_readparms.F |
83 |
KPP_READPARMS |
phepsi = 1.e-10 |
./pkg/kpp/kpp_routines.F |
1145 |
BLMIX |
wm(i) = sign(eins,wm(i))*max(phepsi,abs(wm(i))) |
./pkg/kpp/kpp_routines.F |
1146 |
BLMIX |
ws(i) = sign(eins,ws(i))*max(phepsi,abs(ws(i))) |
./pkg/kpp/kpp_routines.F |
1153 |
BLMIX |
kn = int(caseA(i)+phepsi) *(kbl(i) -1) + |
./pkg/kpp/kpp_routines.F |
1154 |
BLMIX |
$ (1 - int(caseA(i)+phepsi)) * kbl(i) |
./pkg/kpp/kpp_routines.F |
1182 |
BLMIX |
& max(ustar(i)**4,phepsi) |
./pkg/kpp/kpp_routines.F |
1264 |
BLMIX |
ghat(i,ki) = (1.-stable(i)) * cg / max(phepsi,tempVar) |
./pkg/kpp/kpp_routines.F |
412 |
BLDEPTH |
tempVar2 = max(tempVar1, phepsi) |
./pkg/kpp/kpp_routines.F |
472 |
BLDEPTH |
bfsfc(i) = sign(eins,bfsfc(i))*max(phepsi,abs(bfsfc(i))) |
./pkg/kpp/kpp_routines.F |
488 |
BLDEPTH |
hekman = cekman * ustar(i) / max(abs(Coriol(i)),phepsi) |
./pkg/kpp/kpp_routines.F |
544 |
BLDEPTH |
bfsfc(i) = sign(eins,bfsfc(i))*max(phepsi,abs(bfsfc(i))) |
./pkg/kpp/kpp_routines.F |
742 |
RI_IWMIX |
& / max( Shsq(i,ki), phepsi ) |
./pkg/kpp/kpp_init.F |
106 |
KPP_INIT |
zgrid(0) = phepsi |
./pkg/kpp/kpp_init.F |
107 |
KPP_INIT |
hwide(0) = phepsi |
./pkg/kpp/kpp_init.F |
122 |
KPP_INIT |
hwide(Nrp1) = phepsi |
./pkg/kpp/kpp_init.F |
57 |
KPP_INIT |
zeta = zehat / max(phepsi,usta**3) |
./pkg/kpp/KPP_PARAMS.h |
107 |
NO PROCEDURE |
_KPP_RL epsln,phepsi,epsilon,vonk,dB_dz, |
./pkg/kpp/KPP_PARAMS.h |
112 |
NO PROCEDURE |
common /kmixcom/ epsln,phepsi,epsilon,vonk,dB_dz, |