| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/KPP_PARAMS.h |
103 |
NO PROCEDURE |
_RL epsln,phepsi,epsilon,vonk,dB_dz, |
|
./pkg/kpp/KPP_PARAMS.h |
108 |
NO PROCEDURE |
common /kmixcom/ epsln,phepsi,epsilon,vonk,dB_dz, |
|
./pkg/kpp/kpp_forcing_surf.F |
189 |
KPP_FORCING_SURF |
if ( work3(i,j) .lt. (phepsi*phepsi*drF(1)*drF(1)) ) then |
|
./pkg/kpp/kpp_forcing_surf.F |
190 |
KPP_FORCING_SURF |
ustar(i,j) = SQRT( phepsi * p5 * drF(1) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
295 |
KPP_FORCING_SURF |
& MAX ( phepsi, dBdz2 - dBdz1 ) |
|
./pkg/kpp/kpp_forcing_surf.F |
319 |
KPP_FORCING_SURF |
& MAX ( ustar(i,j), phepsi ) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
320 |
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 |
41 |
KPP_READPARMS |
& epsln, phepsi, epsilon, vonk, dB_dz, |
|
./pkg/kpp/kpp_readparms.F |
82 |
KPP_READPARMS |
phepsi = 1. _d -10 |
|
./pkg/kpp/kpp_routines.F |
1240 |
BLMIX |
wm(i) = sign(eins,wm(i))*max(phepsi,abs(wm(i))) |
|
./pkg/kpp/kpp_routines.F |
1241 |
BLMIX |
ws(i) = sign(eins,ws(i))*max(phepsi,abs(ws(i))) |
|
./pkg/kpp/kpp_routines.F |
1248 |
BLMIX |
kn = int(caseA(i)+phepsi) *(kbl(i) -1) + |
|
./pkg/kpp/kpp_routines.F |
1249 |
BLMIX |
$ (1 - int(caseA(i)+phepsi)) * kbl(i) |
|
./pkg/kpp/kpp_routines.F |
1277 |
BLMIX |
& max(ustar(i)**4,phepsi) |
|
./pkg/kpp/kpp_routines.F |
1359 |
BLMIX |
ghat(i,ki) = (1.-stable(i)) * cg / max(phepsi,tempVar) |
|
./pkg/kpp/kpp_routines.F |
505 |
BLDEPTH |
tempVar2 = max(tempVar1, phepsi) |
|
./pkg/kpp/kpp_routines.F |
594 |
BLDEPTH |
bfsfc(i) = sign(eins,bfsfc(i))*max(phepsi,abs(bfsfc(i))) |
|
./pkg/kpp/kpp_routines.F |
612 |
BLDEPTH |
hekman = cekman * ustar(i) / max(abs(Coriol(i)),phepsi) |
|
./pkg/kpp/kpp_routines.F |
690 |
BLDEPTH |
bfsfc(i) = sign(eins,bfsfc(i))*max(phepsi,abs(bfsfc(i))) |
|
./pkg/kpp/kpp_routines.F |
902 |
RI_IWMIX |
& / max( Shsq(i,ki), phepsi ) |