zero1.f

水文模型的原始代码

      subroutine zero1

!!    ~ ~ ~ PURPOSE ~ ~ ~
!!    this subroutine initializes the values for some of the arrays 

      use parm

      hru_slp = 0.
      hruaao = 0.
      hruyro = 0.
      orig_phu = 0.
      orig_phuacc = 0.
      orig_pltpst = 0.
      orig_pndsed = 0.
      orig_pndvol = 0.
      orig_potno3 = 0.
      orig_potsed = 0.
      orig_potvol = 0.
      orig_sedpstconc = 0.
      orig_shallst = 0.
      orig_snoeb = 0.
      orig_snohru = 0.
      orig_solactp = 0.
      orig_solaorgn = 0.
      orig_solcov = 0.
      orig_solfon = 0.
      orig_solfop = 0.
      orig_solno3 = 0.
      orig_solorgn = 0.
      orig_solorgp = 0.
      orig_solpst = 0.
      orig_solrsd = 0.
      orig_solsolp = 0.
      orig_solstap = 0.
      orig_sumix = 0.
      orig_tnylda = 0.
      orig_wetsed = 0.
      orig_wetvol = 0.
      opcp_stat = 0.
      opr_w = 0.
      otmpmx = 0.
      otmpmn = 0.
      otmpstdmn = 0.
      otmpstdmx = 0.
      pcp_stat = 0.
      phu_plt = 0.
      phuacc = 0.
      phuaf = 300.
      phuai = 300.
      phucf = 300.
      phucp = 300.
      phug = 300.
      phuh = 300.
      phuho = 300.
      phuimp = 300.
      phuirr = 300.
      phuk = 300.
      phun = 300.
      phup = 300.
      phupst = 300.
      phusw = 300.
      phut = 300.
      phutot = 0.
      plaps = 0.
      plt_pst = 0.
      pname = ""
      pnd_esa = 0.
      pnd_evol = 0.
      pnd_fr = 0.
      pnd_k = 0.
      pnd_nsed = 0.
      pnd_psa = 0.
      pnd_pvol = 0.
      pnd_sed = 0.
      pnd_vol = 0.
      pot_fr = 0.
      pot_no3 = 0.
      pot_no3l = 0.
      pot_nsed = 0.
      pot_sed = 0.
      pot_tile = 0.
      pot_vol = 0.
      pr_w = 0.
      pst_enr = 0.
      pst_kg = 0.
      pst_lag = 0.
      pst_wof = 0.
      pst_wsol = 0.
      radinc = 0.
      rch_dakm = 0.
      rchrg = 0.
      rchrg_dp = 0.
      rdmx = 0.
      resouty = 0.
      revapmn = 0.
      rfile = ""
      rfinc = 0.
      rip_fr = 0.
      rk1 = 0.
      rk2 = 0.
      rk3 = 0.
      rk4 = 0.
      rk5 = 0.
      rk6 = 0.
      rnum1s = 0.
      rock = 0.
      rs1 = 0.
      rs2 = 0.
      rs3 = 0.
      rs4 = 0.
      rs5 = 0.
      rs6 = 0.
      rs7 = 0.
      rsdin = 0.
      rvar_orig = 0.
      sedpst_act = 0.
      sedpst_bry = 0.
      sedpst_conc = 0.
      sedpst_rea = 0.
      sedst = 0.
      shallst = 0.
      shallst_n = 0.
      silt = 0.
      skoc = 0.
      slsoil = 0.
      slsubbsn = 0.
      snam = ""
      sno_hru = 0.
      snoeb = 0.
      sol_actp = 0.
      sol_alb = 0.
      sol_aorgn = 0.
      sol_bd = 0.
      sol_cbn = 0.
      sol_cov = 0.
      sol_crk = 0.
      sol_fon = 0.
      sol_fop = 0.
      sol_hum = 0.
      sol_k = 0.
      sol_kp = 0.
      sol_nh3 = 0.
      sol_nly = 0
      sol_no3 = 0.
      sol_orgn = 0.
      sol_orgp = 0.
      sol_por = 0.
      sol_pst = 0.
      sol_rsd = 0.
      sol_solp = 0.
      sol_stap = 0.
      sol_sumwp = 0.
      sol_up = 0.
      sol_wp = 0.
      sol_z = 0.
      sol_zmx = 0.
      solarav = 0.
      solpstcnst = 0.
      solpstmon = 0.
      solpstyr = 0.
      srbpstcnst = 0.
      srbpstmon = 0.
      srbpstyr = 0.
      rchaao = 0.
      rchyro = 0.
      resouta = 0.
      sub_fr = 0.
      sub_km = 0.
      subaao = 0.
      subyro = 0.
      sumix = 0.
      sweepeff = 0.
      swtrg = 0
      t_base = 0.
      t_opt = 0.
      t_ov = 0.
      tconc = 0.
      tdrain = 0.
      tfile = ""
      thalf = 0.
      tillnm = ""
      title = ""
      tlaps = 0.
      tmp_an = 0.
      tmpinc = 0.
      tmpmn = 0.
      tmpmx = 0.
      tmpstdmn = 0.
      tmpstdmx = 0.
      tnconc = 0.
      tno3conc = 0.
      tnyld = 0.
      tnylda = 0.
      tpconc = 0.
      trapeff = 0.
      urbcoef = 0.
      urbcn2 = 0.
      usle_k = 0.
      usle_ls = 0.
      usle_p = 0.
      vel_chan = 0.
      vpd2 = 0.
      wac21 = 0.
      wac22 = 0.
      wavp = 0.
      wet_fr = 0.
      wet_k = 0.
      wet_mxsa = 0.
      wet_mxvol = 0.
      wet_nsa = 0.
      wet_nsed = 0.
      wet_nvol = 0.
      wet_sed = 0.
      wet_vol = 0.
      wfsh = 0.
      manure_kg = 0.
      wndav = 0.
      wshd_pstap = 0.
      wsyf = 0.
      wudeep = 0.
      wurch = 0.
      wushal = 0.
      yldkg = 0.

      return
      end