| File |
Line number |
Procedure |
Code |
|
./pkg/layers/layers_fluxcalc.F |
124 |
LAYERS_FLUXCALC |
mSteps = int(log10(dble(Nlayers))/log10(2. _d 0))+1 |
|
./pkg/layers/layers_fluxcalc.F |
471 |
LAYERS_DIAPYCNAL |
mSteps = int(log10(dble(Nlayers))/log10(2. _d 0))+1 |
|
./lsopt/cubic.F |
20 |
CUBIC |
z1 = dble(fp) + dble(fpa) - 3.d0*dble(fa-f)/dble(ta-t) |
|
./lsopt/cubic.F |
21 |
CUBIC |
b = z1 + dble(fp) |
|
./lsopt/cubic.F |
28 |
CUBIC |
discri = z1*z1-dble(fp)*dble(fpa) |
|
./lsopt/cubic.F |
37 |
CUBIC |
discri = dble(fp)/z1 |
|
./lsopt/cubic.F |
38 |
CUBIC |
discri = discri*dble(fpa) |
|
./lsopt/cubic.F |
63 |
CUBIC |
den = sngl(z1+b+dble(fpa)) |