Symbol Description Uses
zero 49


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/generic_advdiff/gad_osc_mul_r.F 24 GAD_OSC_MUL_R 
          _RL osum,zero,mval
./pkg/generic_advdiff/gad_osc_mul_r.F 33 GAD_OSC_MUL_R 
          zero = 1. _d -20
./pkg/generic_advdiff/gad_osc_mul_r.F 62 GAD_OSC_MUL_R 
     &             / (omax + zero)**3
./pkg/generic_advdiff/gad_osc_mul_r.F 64 GAD_OSC_MUL_R 
     &             / (omin + zero)**3
./pkg/generic_advdiff/gad_osc_mul_x.F 24 GAD_OSC_MUL_X 
          _RL osum,zero,mval
./pkg/generic_advdiff/gad_osc_mul_x.F 33 GAD_OSC_MUL_X 
          zero = 1. _d -20
./pkg/generic_advdiff/gad_osc_mul_x.F 62 GAD_OSC_MUL_X 
     &             / (omax + zero)**3
./pkg/generic_advdiff/gad_osc_mul_x.F 64 GAD_OSC_MUL_X 
     &             / (omin + zero)**3
./pkg/generic_advdiff/gad_osc_mul_y.F 24 GAD_OSC_MUL_Y 
          _RL osum,zero,mval
./pkg/generic_advdiff/gad_osc_mul_y.F 33 GAD_OSC_MUL_Y 
          zero = 1. _d -20
./pkg/generic_advdiff/gad_osc_mul_y.F 62 GAD_OSC_MUL_Y 
     &             / (omax + zero)**3
./pkg/generic_advdiff/gad_osc_mul_y.F 64 GAD_OSC_MUL_Y 
     &             / (omin + zero)**3
./pkg/salt_plume/salt_plume_frac.F 104 SALT_PLUME_FRAC 
         IF ( dd20 .GT. zero ) THEN
./pkg/salt_plume/salt_plume_frac.F 109 SALT_PLUME_FRAC 
          S = zero
./pkg/salt_plume/salt_plume_frac.F 111 SALT_PLUME_FRAC 
         plumek(i) = max(zero,S)
./pkg/salt_plume/salt_plume_frac.F 119 SALT_PLUME_FRAC 
         plumek(i) = max(zero,S/So)
./pkg/salt_plume/salt_plume_frac.F 126 SALT_PLUME_FRAC 
         plumek(i) = max(zero,S*So)
./pkg/salt_plume/salt_plume_frac.F 138 SALT_PLUME_FRAC 
          plumek(i) = max(zero,S/So)
./pkg/salt_plume/salt_plume_frac.F 140 SALT_PLUME_FRAC 
          plumek(i) = zero
./pkg/salt_plume/salt_plume_frac.F 145 SALT_PLUME_FRAC 
         dd   = zero
./pkg/salt_plume/salt_plume_frac.F 148 SALT_PLUME_FRAC 
          plumek(i) = zero
./pkg/salt_plume/salt_plume_frac.F 156 SALT_PLUME_FRAC 
         IF ( dd20 .GT. zero ) THEN
./pkg/salt_plume/salt_plume_frac.F 162 SALT_PLUME_FRAC 
          S  = zero
./pkg/salt_plume/salt_plume_frac.F 163 SALT_PLUME_FRAC 
          So = zero
./pkg/salt_plume/salt_plume_frac.F 166 SALT_PLUME_FRAC 
          plumek(i) = max(zero,two*So*facz-S)
./pkg/salt_plume/salt_plume_frac.F 168 SALT_PLUME_FRAC 
          plumek(i) = max(zero,
./pkg/salt_plume/salt_plume_frac.F 179 SALT_PLUME_FRAC 
          plumek(i) = max(zero,two/dd20*facz-S/So)
./pkg/salt_plume/salt_plume_frac.F 181 SALT_PLUME_FRAC 
          plumek(i) = max(zero,
./pkg/salt_plume/salt_plume_frac.F 77 SALT_PLUME_FRAC 
      _RL     one, two, three, S, So, zero
./pkg/salt_plume/salt_plume_frac.F 79 SALT_PLUME_FRAC 
      parameter( zero = 0. _d 0 )
./pkg/salt_plume/salt_plume_frac.F 98 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 )