Symbol Description Uses
zero 37


File Line number Procedure Code
./pkg/fizhi/fizhi_clockstuff.F 903 ASTRO 
      _RL pi, zero, one, two, six, dg2rd, yrlen, eqnx, ob, ecc, per
./pkg/fizhi/fizhi_clockstuff.F 906 ASTRO 
      parameter ( zero  = 0.0 )
./pkg/fizhi/fizhi_moist.F 1655 CLOUD 
      _RL daylen,half,one,zero,cmb2pa,rhmax
./pkg/fizhi/fizhi_moist.F 2063 CLOUD 
      TX3(I)   =  zero
./pkg/fizhi/fizhi_moist.F 2384 RNEVP 
      _RL zm1p04,zero,two89,zp44,zp01,half,zp578,one,z3600,z1800
./pkg/fizhi/fizhi_swrad.F 1982 DELEDD 
      _RL  zero,one,two,three,four,fourth,seven,tumin
./pkg/fizhi/fizhi_swrad.F 1986 DELEDD 
      parameter (zero=0., tumin=1.e-20)
./pkg/fizhi/fizhi_swrad.F 2067 DELEDD 
                rr = max(rr,zero)
./pkg/fizhi/fizhi_swrad.F 2068 DELEDD 
                tt = max(tt,zero)
./pkg/fizhi/fizhi_utils.F 677 MSC2GRD 
      _RL zero,one
./pkg/fizhi/fizhi_utils.F 679 MSC2GRD 
      parameter (zero = 0.)
./pkg/fizhi/update_chemistry_exports.F 305 INTERP_OZ 
      _RL zero,one,o3min,voltomas
./pkg/fizhi/update_chemistry_exports.F 329 INTERP_OZ 
      slope(i) = zero
./pkg/salt_plume/salt_plume_frac.F 105 SALT_PLUME_FRAC 
         IF ( dd20 .GT. zero ) THEN
./pkg/salt_plume/salt_plume_frac.F 110 SALT_PLUME_FRAC 
          S = zero
./pkg/salt_plume/salt_plume_frac.F 112 SALT_PLUME_FRAC 
         plumek(i) = max(zero,S)
./pkg/salt_plume/salt_plume_frac.F 120 SALT_PLUME_FRAC 
         plumek(i) = max(zero,S/So)
./pkg/salt_plume/salt_plume_frac.F 127 SALT_PLUME_FRAC 
         plumek(i) = max(zero,S*So)
./pkg/salt_plume/salt_plume_frac.F 139 SALT_PLUME_FRAC 
          plumek(i) = max(zero,S/So)
./pkg/salt_plume/salt_plume_frac.F 141 SALT_PLUME_FRAC 
          plumek(i) = zero
./pkg/salt_plume/salt_plume_frac.F 146 SALT_PLUME_FRAC 
         dd   = zero
./pkg/salt_plume/salt_plume_frac.F 149 SALT_PLUME_FRAC 
          plumek(i) = zero
./pkg/salt_plume/salt_plume_frac.F 157 SALT_PLUME_FRAC 
         IF ( dd20 .GT. zero ) THEN
./pkg/salt_plume/salt_plume_frac.F 163 SALT_PLUME_FRAC 
          S  = zero
./pkg/salt_plume/salt_plume_frac.F 164 SALT_PLUME_FRAC 
          So = zero
./pkg/salt_plume/salt_plume_frac.F 167 SALT_PLUME_FRAC 
          plumek(i) = max(zero,two*So*facz-S)
./pkg/salt_plume/salt_plume_frac.F 169 SALT_PLUME_FRAC 
          plumek(i) = max(zero,
./pkg/salt_plume/salt_plume_frac.F 180 SALT_PLUME_FRAC 
          plumek(i) = max(zero,two/dd20*facz-S/So)
./pkg/salt_plume/salt_plume_frac.F 182 SALT_PLUME_FRAC 
          plumek(i) = max(zero,
./pkg/salt_plume/salt_plume_frac.F 78 SALT_PLUME_FRAC 
      _RL     one, two, three, S, So, zero
./pkg/salt_plume/salt_plume_frac.F 80 SALT_PLUME_FRAC 
      parameter( zero = 0. _d 0 )
./pkg/salt_plume/salt_plume_frac.F 99 SALT_PLUME_FRAC 
       IF (SPDepth(i).GE.facz .and. SPDepth(i) .GT. zero) THEN
./pkg/admtlm/admtlm_dsvd.F 192 ADMTLM_DSVD 
     &                 one, zero
./pkg/admtlm/admtlm_dsvd.F 193 ADMTLM_DSVD 
      parameter        (one = 1.0D+0, zero = 0.0D+0)
./pkg/admtlm/admtlm_dsvd.F 351 ADMTLM_DSVD 
      tol = zero
./pkg/chronos/chronos.F 740 ASTRO 
      _RL pi, zero, one, two, six, dg2rd, yrlen, eqnx, ob, ecc, per
./pkg/chronos/chronos.F 744 ASTRO 
      parameter ( zero  = 0.0 )