Symbol Description Uses
dble 12



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))