Symbol Description Uses
delta 70



File Line number Procedure Code
./pkg/ggl90/ggl90_idemix.F 304 GGL90_IDEMIX
         delta(i,j,k)  = deltaTggl90*IDEMIX_tau_v
./pkg/ggl90/ggl90_idemix.F 312 GGL90_IDEMIX
         delta(i,j,1)  = 0. _d 0
./pkg/ggl90/ggl90_idemix.F 313 GGL90_IDEMIX
         delta(i,j,Nr) = 0. _d 0
./pkg/ggl90/ggl90_idemix.F 315 GGL90_IDEMIX
         delta(i,j,kBottom) = 0. _d 0
./pkg/ggl90/ggl90_idemix.F 331 GGL90_IDEMIX
         a3d(i,j,k) = -delta(i,j,k-1)*c0(i,j,km1)
./pkg/ggl90/ggl90_idemix.F 344 GGL90_IDEMIX
         c3d(i,j,k) = -delta(i,j,k)*c0(i,j,kp1)
./pkg/ggl90/ggl90_idemix.F 373 GGL90_IDEMIX
          b3d(i,j,k) = b3d(i,j,k) + delta(i,j,k)*c0(i,j,k)
./pkg/ggl90/ggl90_idemix.F 377 GGL90_IDEMIX
          b3d(i,j,k) = b3d(i,j,k) + delta(i,j,km1)*c0(i,j,k)
./pkg/ggl90/ggl90_idemix.F 393 GGL90_IDEMIX
     &        + delta(i,j,km1 )*c0(i,j,k)
./pkg/ggl90/ggl90_idemix.F 401 GGL90_IDEMIX
     &        + delta(i,j,k)*c0(i,j,k)
./pkg/ggl90/ggl90_idemix.F 68 GGL90_IDEMIX
      _RL  delta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
./pkg/ggl90/ggl90_idemix.F 91 GGL90_IDEMIX
         delta(i,j,k)   = 0. _d 0
./pkg/kpp/kpp_routines.F 1603 ENHANCE
      _RL delta
./pkg/kpp/kpp_routines.F 1610 ENHANCE
            delta = (hbl(i) + zgrid(ki)) / (zgrid(ki) - zgrid(ki+1))
./pkg/kpp/kpp_routines.F 1614 ENHANCE
               dstar         = (1.- delta)**2 * dkm1(i,md)
./pkg/kpp/kpp_routines.F 1615 ENHANCE
     &                       + delta**2 * dkmp5
./pkg/kpp/kpp_routines.F 1616 ENHANCE
               blmc(i,ki,md) = (1.- delta)*diffus(i,ki,md)
./pkg/kpp/kpp_routines.F 1617 ENHANCE
     &                       + delta*dstar
./model/src/cg2d_sr.F 106 CG2D_SR
      _RL    delta,  deltaTile(nSx,nSy)
./model/src/cg2d_sr.F 355 CG2D_SR
       delta   = sumPhi(2,1,1)
./model/src/cg2d_sr.F 384 CG2D_SR
       alpha = delta - (cgBeta*cgBeta)*alpha
./pkg/openad/externalDummies.F 186 STREAMICE_INVERT_SURF_FORTHICK
     I            delta,
./pkg/streamice/adstreamice_invert_surf_forthick.F 105 ADSTRMICE_H_INV
     &             delta,
./pkg/streamice/adstreamice_invert_surf_forthick.F 107 ADSTRMICE_H_INV
     &             delta*hf,
./pkg/streamice/adstreamice_invert_surf_forthick.F 114 ADSTRMICE_H_INV
     &          i_r * (fp-delta)/fp *
./pkg/streamice/adstreamice_invert_surf_forthick.F 119 ADSTRMICE_H_INV
     &          i_r * (fp-delta)/fp *
./pkg/streamice/adstreamice_invert_surf_forthick.F 15 ADSTRMICE_H_INV
     &            delta,
./pkg/streamice/adstreamice_invert_surf_forthick.F 35 ADSTRMICE_H_INV
      _RL rhoi, rhow, i_r, delta
./pkg/streamice/adstreamice_invert_surf_forthick.F 83 ADSTRMICE_H_INV
     I            delta,
./pkg/streamice/adstreamice_invert_surf_forthick.F 89 ADSTRMICE_H_INV
      delta=1-rhoi/rhow
./pkg/streamice/streamice_invert_surf_forthick.F 110 STREAMICE_INVERT_SURF_FORTHICK
     &             delta,
./pkg/streamice/streamice_invert_surf_forthick.F 112 STREAMICE_INVERT_SURF_FORTHICK
     &             delta*HF,
./pkg/streamice/streamice_invert_surf_forthick.F 118 STREAMICE_INVERT_SURF_FORTHICK
     &             delta,
./pkg/streamice/streamice_invert_surf_forthick.F 11 STREAMICE_INVERT_SURF_FORTHICK
     I            delta,
./pkg/streamice/streamice_invert_surf_forthick.F 120 STREAMICE_INVERT_SURF_FORTHICK
     &             delta*HF,
./pkg/streamice/streamice_invert_surf_forthick.F 59 STREAMICE_INVERT_SURF_FORTHICK
     &           (1. _d 0 - delta)
./pkg/streamice/streamice_invert_surf_forthick.F 61 STREAMICE_INVERT_SURF_FORTHICK
             IF (S(i,j,bi,bj) .gt. delta*HF) THEN
./pkg/streamice/streamice_invert_surf_forthick.F 64 STREAMICE_INVERT_SURF_FORTHICK
              htmp = S(i,j,bi,bj)/delta
./pkg/streamice/streamice_invert_surf_forthick.F 76 STREAMICE_INVERT_SURF_FORTHICK
     &           (1. _d 0 - delta)
./pkg/streamice/streamice_invert_surf_forthick.F 78 STREAMICE_INVERT_SURF_FORTHICK
                IF (S(i,j,bi,bj) .gt. delta*HF) THEN
./pkg/streamice/streamice_invert_surf_forthick.F 81 STREAMICE_INVERT_SURF_FORTHICK
                 htmp = S(i,j,bi,bj)/delta
./pkg/streamice/streamice_invert_surf_forthick.F 94 STREAMICE_INVERT_SURF_FORTHICK
                Y0v = delta*HF
./pkg/streamice/streamice_invert_surf_forthick.F 98 STREAMICE_INVERT_SURF_FORTHICK
     &             delta,
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 31 STREAMICE_UPD_FFRAC_UNCOUPLED
      _RL OD, rhoi, rhow, delta, r, h, hf, i_r, rlo
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 46 STREAMICE_UPD_FFRAC_UNCOUPLED
      delta=1-r
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 78 STREAMICE_UPD_FFRAC_UNCOUPLED
     &       delta, 
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 80 STREAMICE_UPD_FFRAC_UNCOUPLED
     &       delta*hf,
./pkg/bling/bling_carbon_chem.F 557 CARBON_COEFFS
        _RL  delta
./pkg/bling/bling_carbon_chem.F 600 CARBON_COEFFS
           delta = (57.7 _d 0 - 0.118 _d 0*tk)
./pkg/bling/bling_carbon_chem.F 605 CARBON_COEFFS
           fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) *
./pkg/bling/bling_carbon_chem.F 609 CARBON_COEFFS
           fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT)
./pkg/bling/bling_carbon_chem.F 817 CARBON_COEFFS_PRESSURE_DEP
        _RL  delta
./pkg/bling/bling_carbon_chem.F 896 CARBON_COEFFS_PRESSURE_DEP
           delta = (57.7 _d 0 - 0.118 _d 0*tk)
./pkg/bling/bling_carbon_chem.F 902 CARBON_COEFFS_PRESSURE_DEP
           fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * 
./pkg/bling/bling_carbon_chem.F 906 CARBON_COEFFS_PRESSURE_DEP
           fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT)
./pkg/bling/bling_light.F 115 BLING_LIGHT
        delta = (0.006918 _d 0
./pkg/bling/bling_light.F 129 BLING_LIGHT
          sun1 = -sin(delta)/cos(delta) * sin(lat)/cos(lat)
./pkg/bling/bling_light.F 133 BLING_LIGHT
          cosz = ( sin(delta)*sin(lat)+              !average zenith angle
./pkg/bling/bling_light.F 134 BLING_LIGHT
     &            (cos(delta)*cos(lat)*sin(dayhrs)/dayhrs) )
./pkg/bling/bling_light.F 69 BLING_LIGHT
      _RL dayfrac, yday, delta
./pkg/dic/carbon_chem.F 569 CARBON_COEFFS
        _RL  delta
./pkg/dic/carbon_chem.F 612 CARBON_COEFFS
           delta = (57.7 _d 0 - 0.118 _d 0*tk)
./pkg/dic/carbon_chem.F 615 CARBON_COEFFS
           fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT)
./pkg/dic/insol.F 41 INSOL
       _RL  dayfrac, yday, delta
./pkg/dic/insol.F 59 INSOL
        delta = (0.006918 _d 0
./pkg/dic/insol.F 73 INSOL
          sun1 = -sin(delta)/cos(delta) * sin(lat)/cos(lat)
./pkg/dic/insol.F 77 INSOL
          cosz = ( sin(delta)*sin(lat)+              !average zenith angle
./pkg/dic/insol.F 78 INSOL
     &            (cos(delta)*cos(lat)*sin(dayhrs)/dayhrs) )