zero0.f

水文模型的原始代码

      subroutine zero0

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

      use parm
      wtab = 0.8
      afrt_surface = 0.
      alai_min = 0.
      lai_init = 0.
      aird = 0.
      alpha_bf = 0.
      alpha_bfe = 0.
      ammonian = 0.
      amp_r = 0.
      ap_ef = 0.
      auto_eff = 0.
      auto_nyr = 0.
      auto_napp = 0.
      auto_nstrs = -1.
      auto_wstr = 0.
      bactkddb = 0.
      bactlp_plt = 0.
      bactlpdb = 0.
      bactp_plt = 0.
      bactpdb = 0.
      bc1 = 0.
      bc2 = 0.
      bc3 = 0.
      bc4 = 0.
      bio_e = 0.
      bio_hv = 0.
      bio_init = 0.
      bio_leaf = 0.
      bio_min = 0.
      bio_ms = 0.
      bio_n1 = 0.
      bio_n2 = 0.
      bio_p1 = 0.
      bio_p2 = 0.
      bio_targ = 0.
      blai = 0.
      bio_eat = 0.
      bio_trmp = 0.
      brt = 0.
      bss = 0.
      canmx = 0.
      canstor = 0.
      cbodcnst = 0.
      cbodmon = 0.
      cbodyr = 0.
      cfrt_id = 0
      cfrt_kg = 0.
      ch_cov = 0.
      ch_d = 0.
      ch_di = 0.
      ch_erod = 0.
      ch_k = 0.
      ch_li = 0.
      ch_n = 0.
      ch_s = 0.
      ch_si = 0.
      ch_w = 0.
      ch_wi = 0.
      ch_wdr = 0.
      chlacnst = 0.
      chlamon = 0.
      chlayr = 0.
      chlora = 0.
      chpst_conc = 0.
      chpst_koc = 0.
      chpst_mix = 0.
      chpst_rea = 0.
      chpst_rsp = 0.
      chpst_stl = 0.
      chpst_vol = 0.
      chside = 0.
      chtmx = 0.
      cn1 = 0.
      cn2 = 0.
      cn3 = 0.
      cnop = 0.
      cnyld = 0.
      co2 = 0.
      conv_wt = 0.
      cpnm = ""
      cpyld = 0.
      curbden = 0.
      curyr_mat = 0.
      cvm = 0.
      daylmn = 0.
      ddrain = 0.
      ddrain_bsn = 0.
      decay_f = 0.
      decay_s = 0.
      deepirr = 0.
      deepst = 0.
      delay = 0.
      depimp_bsn = 0.
      dep_imp = 0.
      deptil = 0.
      dewpt = 0.
      dirtmx = 0.
      disolvp = 0.
      disoxcnst = 0.
      disoxmon = 0.
      disoxyr = 0.
      divmax = 0.
      dlai = 0.
      dormhr = 0.
      dorm_hr = -1.
      driftco = 0.
      effmix = 0.
      elevb = 0.
      elevb_fr = 0.
      epco = 0.
      esco = 0.
      evpnd = 0.
      evpot = 0.
      evrsv = 0.
      evwet = 0.
      fcst_reg = 0
      fcstaao = 0.
      fcstcnt = 0
      fertnm = ""
      ffc = 0.
      ffcst = 0
      filterw = 0.
      fimp = 0.
      fld_fr = 0.
      flomon = 0.
      flowmin = 0.
      fminn = 0.
      fminp = 0.
      fnh3n = 0.
      forgn = 0.
      forgp = 0.
      fpcp_stat = 0.
      fpr_w = 0.
      frt_kg = 0.
      frt_surface = 0.
      ftmpmn = 0.
      ftmpmx = 0.
      ftmpstdmn = 0.
      ftmpstdmx = 0.
      gdrain = 0.
      gdrain_bsn = 0.
      gsi = 0.
      gw_delaye = 0.
      gw_q = 0.
      gw_revap = 0.
      gw_spyld = 0.
      gwht = 0.
      gwqmn = 0.
      hi_ovr = 0.
      hi_targ = 0.
      hlife_f = 0.
      hlife_s = 0.
      hqd = 0.
      hqdsave = 0.
      hru_dafr = 0.
      hru_fr = 0.
      hru_ha = 0.
      hru_km = 0.
      hrugis = 0
      hrupest = 0
      hrupsta = 0.
      hrupstm = 0.
      hrupsty = 0.
      huminc = 0.
      hvsti = 0.
      hyd_dakm = 0.
      iafer = 0
      iafrttyp = 0
      iairr = 0
      icfert = 0
      icfrt = 0
      icodes = 0
      icpest = 0
      icpst = 0
      icr = 1
      iday_fert = 0
      idc = 0
      idorm = 0
      idplt = 0
      idtill = 0
      wstrs_id = 0
      ifert = 0
      ifirstpcp = 1
      ifirsthr = 1
      ifirstr = 1 
      ifirstt = 1 
      ifld = 0
      iflod1 = 0
      iflod2 = 0
      ifrt_freq = 0
      ifrttyp = 0
      manure_id = 0
      igraz = 0
      igro = 0
      igrz = 0
      ihouts = 0
      ihv = 0
      ihvo = 0
      iir = 0
      ikill = 0
      inum1s = 0
      inum2s = 0
      inum3s = 0
      inum4s = 0
      iop = 0
      ipdhru = 0
      ipdvab = 0
      ipdvar = 0
      ipdvas = 0
      ipest = 0
      iplant = 0
      ipot = 0
      ipst = 400
      ireg = 1
      irgage = 0
      irip = 0
      irn = 0
      irr_amt = 0.
      irr_salt = 0.
      irrno = 0
      irrsc = 0
      isweep = 0
      itb = 0 
      itgage = 0
      iurban = 0
      ivar_orig = 0
      kirr = " "
      laiday = 0.
      lat_sed = 0.
      lat_ttime = 0.
      latcos = 0.
      latsin = 0.
      leaf1 = 0.
      leaf2 = 0.
      ncrops = 0 
      ncut = 1
      ndcfrt = 0
      fert_days = 0
      grz_days = 0
      ndmo = 0
      ndtarg = 0
      newrti = 0.
      nitraten = 0.
      nitriten = 0.
      nmgt = 0
      nope = 0
      npcp = 1
      npno = 0
      nro = 1
      nrot = 0
      ntil = 1
      orig_alai = 0.
      orig_bioms = 0.
      orig_deepst = 0.
      orig_igro = 0
      organicn = 0.
      organicp = 0.
      ov_n = 0.
      pltnfr = 0.
      pltpfr = 0.
      rch_cbod = 0.
      rch_dox = 0.
      rchrg_n = 0.
      reccnstps = '             '
      recmonps = '             '
      sol_clay = 0. 
      subed = 0
      sub_elev = 0.
      subfr_nowtr = 0.
      sub_lat = 0.
      sub_latq = 0.
      sub_latno3 = 0.
      subgis = 0
      tb_adj = 0.
      tdrain = 0.
      tdrain_bsn = 0.
      tile_ttime = 0.
      uh = 0.
      wshd_aamon = 0.

      return
      end