| 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 |
53 |
KPP_CHECK |
CALL WRITE_0D_RL( epsilon, INDEX_NONE, ' epsilon =', |
|
./pkg/kpp/kpp_forcing_surf.F |
351 |
KPP_FORCING_SURF |
zRef(i,j) = MAX ( epsilon * zRef(i,j), z0(i,j) ) |
|
./pkg/kpp/kpp_init_fixed.F |
128 |
KPP_INIT_FIXED |
Vtc = concv * SQRT(0.2 _d 0 /concs/epsilon) / vonk**2 / Ricr |
|
./pkg/kpp/kpp_init_fixed.F |
129 |
KPP_INIT_FIXED |
cg = cstar * vonk * (concs * vonk * epsilon)**p33 |
|
./pkg/kpp/kpp_readparms.F |
45 |
KPP_READPARMS |
& epsln, phepsi, epsilon, vonk, dB_dz, |
|
./pkg/kpp/kpp_readparms.F |
98 |
KPP_READPARMS |
epsilon = 1. _d -1 |
|
./pkg/kpp/kpp_routines.F |
1372 |
BLMIX |
sigma(i) = stable(i) * 1.0 + (1. - stable(i)) * epsilon |
|
./pkg/kpp/kpp_routines.F |
1468 |
BLMIX |
sigma(i) = stable(i)*sig + (1.-stable(i))*min(sig,epsilon) |
|
./pkg/kpp/kpp_routines.F |
1525 |
BLMIX |
& + (1. - stable(i)) * min(sig,epsilon) |
|
./pkg/kpp/kpp_routines.F |
527 |
BLDEPTH |
sigma(i) = stable(i) + (1. - stable(i)) * epsilon |
|
./pkg/my82/my82_ri_number.F |
121 |
MY82_RI_NUMBER |
RiNumber(I,J) = -buoyFreq(I,J)/max(vertShear(I,J),epsilon) |
|
./pkg/my82/my82_ri_number.F |
64 |
MY82_RI_NUMBER |
_RL epsilon |
|
./pkg/my82/my82_ri_number.F |
65 |
MY82_RI_NUMBER |
PARAMETER ( epsilon = 1.D-10 ) |
|
./pkg/pp81/pp81_ri_number.F |
125 |
PP81_RI_NUMBER |
RiNumber(I,J) = buoyFreq/max(RiFlux,epsilon) |
|
./pkg/pp81/pp81_ri_number.F |
66 |
PP81_RI_NUMBER |
_RL epsilon |
|
./pkg/pp81/pp81_ri_number.F |
67 |
PP81_RI_NUMBER |
PARAMETER ( epsilon = 1.D-10 ) |
|
./pkg/seaice/seaice_jacvec.F |
152 |
SEAICE_JACVEC |
epsilon = SEAICE_JFNKepsilon |
|
./pkg/seaice/seaice_jacvec.F |
153 |
SEAICE_JACVEC |
reps = 1. _d 0/epsilon |
|
./pkg/seaice/seaice_jacvec.F |
159 |
SEAICE_JACVEC |
utp(I,J,bi,bj) = uIce(I,J,bi,bj) + epsilon * duIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_jacvec.F |
160 |
SEAICE_JACVEC |
vtp(I,J,bi,bj) = vIce(I,J,bi,bj) + epsilon * dvIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_jacvec.F |
69 |
SEAICE_JACVEC |
_RL epsilon, reps |