parm.mod

水文模型的原始代码

      real, dimension (:), allocatable :: thalf,tnconc,tpconc,tno3conc
      real, dimension (:), allocatable :: fcimp,urbcn2
! mapp = max number of applications
      real, dimension (:,:,:), allocatable :: sweepeff,frt_kg
      real, dimension (:,:,:), allocatable :: pst_kg,irr_salt
      real, dimension (:,:,:), allocatable :: cnop,phuimp,phusw,irr_amt
      real, dimension (:,:,:), allocatable :: phut,phun,auto_wstr,phucf
      real, dimension (:,:,:), allocatable :: phui,phuai,phuaf,phupst
      real, dimension (:,:,:), allocatable :: cfrt_kg,phuirr,frt_surface
      real, dimension (:,:,:), allocatable :: fr_curb
      real, dimension (:), allocatable :: auto_nstrs,afrt_surface
      real, dimension (:), allocatable :: auto_napp,auto_nyr
      integer, dimension (:,:,:), allocatable :: ifert,iop,iir,ipst
      integer, dimension (:,:,:), allocatable :: iairr,iafer,isweep
      integer, dimension (:,:,:), allocatable :: irelease,ipest
      integer, dimension (:), allocatable :: iafrttyp
      integer, dimension (:,:,:), allocatable :: ifrttyp,idtill
      integer, dimension (:,:,:), allocatable :: icfert,cfrt_id
      integer, dimension (:,:,:), allocatable :: ifrt_freq,fert_days
      integer, dimension (:,:,:), allocatable :: wstrs_id, imp_trig
      integer, dimension (:,:,:), allocatable :: icpest,ipst_freq
      integer, dimension (:,:,:), allocatable :: cpst_kg,cpst_id,phucp
      integer, dimension (:,:,:), allocatable :: pest_days
! mnr = max number years of rotation
      real, dimension (:,:,:), allocatable :: yldkg,bio_trmp
      real, dimension (:,:,:), allocatable :: tnyld,tnylda,phup,lai_init
      real, dimension (:,:,:), allocatable :: bio_init,phuh,phuho,phuk
      real, dimension (:,:,:), allocatable :: phug,bio_eat
      real, dimension (:,:,:), allocatable :: harveff,yldn,manure_kg
      real, dimension (:,:,:), allocatable :: orig_tnylda,orig_phu
      real, dimension (:,:,:), allocatable :: bio_hv,phu_plt,bio_aahv
      real, dimension (:,:,:), allocatable :: hi_targ,bio_targ,hi_ovr
      integer, dimension (:,:,:), allocatable :: ihv,ikill,ihvo,igraz
      integer, dimension (:,:,:), allocatable :: ncrops,iplant,idplt
      integer, dimension (:,:,:), allocatable :: grz_days,manure_id
! mtil = max number tillages in database
      real, dimension (:), allocatable :: effmix,deptil
      character(len=8), dimension (550) :: tillnm
! mhyd = max number of hydrograph nodes
      real, dimension (:), allocatable :: rnum1s,hyd_dakm
      real, dimension (:,:), allocatable :: varoute,shyd
      real, dimension (:,:,:), allocatable :: hhvaroute
      integer, dimension (:), allocatable :: icodes,ihouts,inum1s
      integer, dimension (:), allocatable :: inum2s,inum3s,inum4s
      integer, dimension (:), allocatable :: subed
      character(len=10), dimension (:), allocatable :: recmonps
      character(len=10), dimension (:), allocatable :: reccnstps
! mhru = maximum number of hydrologic response units
      real, dimension (:), allocatable :: pot_fr,pot_tile,pot_vol,potsa
      real, dimension (:), allocatable :: pot_volx,potflwi,potsedi,wfsh
      real, dimension (:), allocatable :: pot_nsed,pot_no3l,newrti,gwno3
      real, dimension (:), allocatable :: pot_sed,pot_no3,fsred,tmpavp
      real, dimension (:), allocatable :: evpot
      real, dimension (:), allocatable :: filterw,sumix,usle_ls,phuacc
      real, dimension (:), allocatable :: esco,epco,slsubbsn,hru_slp
      real, dimension (:), allocatable :: erorgn,erorgp,biomix,pnd_seci
      real, dimension (:), allocatable :: flowmin,divmax,canmx,usle_p
      real, dimension (:), allocatable :: lat_sed,rch_dakm,pnd_no3s,cn1
      real, dimension (:), allocatable :: cn2,lat_ttime,flowfr,sol_zmx
      real, dimension (:), allocatable :: tile_ttime
      real, dimension (:), allocatable :: slsoil,sed_stl,gwminp,sol_cov
      real, dimension (:), allocatable :: yldanu,pnd_solp,pnd_no3,ov_n
      real, dimension (:), allocatable :: driftco,pnd_orgp,pnd_orgn,cn3
      real, dimension (:), allocatable :: sol_sumul,pnd_chla,hru_fr
      real, dimension (:), allocatable :: bio_ms,sol_alb,strsw,hru_km
      real, dimension (:), allocatable :: pnd_fr,pnd_psa,pnd_pvol,pnd_k
      real, dimension (:), allocatable :: pnd_esa,pnd_evol,pnd_vol,yldaa
      real, dimension (:), allocatable :: pnd_sed,pnd_nsed,strsa,dep_imp
      real, dimension (:), allocatable :: evpnd, evwet
      real, dimension (:), allocatable :: wet_fr,wet_nsa,wet_nvol,wet_k
      real, dimension (:), allocatable :: wet_mxsa,wet_mxvol,wet_vol
      real, dimension (:), allocatable :: wet_sed,wet_nsed
      real, dimension (:), allocatable :: smx,sci,bp1,bp2
      real, dimension (:), allocatable :: bw1,bw2,bactpq
      real, dimension (:), allocatable :: bactp_plt,bactlp_plt,cnday
      real, dimension (:), allocatable :: bactlpq,auto_eff,sol_sw,secciw
      real, dimension (:), allocatable :: bactps,bactlps,tmpav,chlaw
      real, dimension (:), allocatable :: subp,sno_hru,hru_ra,wet_orgn
      real, dimension (:), allocatable :: tmx,tmn,rsdin,tmp_hi,tmp_lo
      real, dimension (:), allocatable :: rwt,olai,usle_k,tconc,hru_rmx
      real, dimension (:), allocatable :: anano3,aird,t_ov,sol_sumfc
      real, dimension (:), allocatable :: sol_avpor,usle_mult,wet_orgp
      real, dimension (:), allocatable :: rock,silt,aairr,cht,u10,rhd
      real, dimension (:), allocatable :: shallirr,deepirr,lai_aamx
      real, dimension (:), allocatable :: canstor,ovrlnd,ch_l1,wet_no3
      real, dimension (:), allocatable :: wet_solp,wet_no3s,wet_chla
      real, dimension (:), allocatable :: wet_seci,pnd_no3g,pstsol
      real, dimension (:), allocatable :: gwht,delay,gw_q,pnd_solpg
      real, dimension (:), allocatable :: alpha_bf,alpha_bfe,gw_spyld
      real, dimension (:), allocatable :: gw_delaye,gw_revap,rchrg_dp
      real, dimension (:), allocatable :: revapmn,anion_excl,rchrg
      real, dimension (:), allocatable :: ffc,bio_min,surqsolp
      real, dimension (:), allocatable :: cklsp,deepst,shallst,wet_solpg
      real, dimension (:), allocatable :: wet_no3g,sol_avbd,trapeff
      real, dimension (:), allocatable :: gwqmn,tdrain,pplnt,snotmp
      real, dimension (:), allocatable :: ddrain,gdrain,sol_crk,dayl,brt
      real, dimension (:), allocatable :: twash,rnd2,rnd3,sol_cnsw,doxq
      real, dimension (:), allocatable :: rnd8,rnd9,percn,sol_sumwp
      real, dimension (:), allocatable :: tauton,tautop,cbodu,chl_a,qdr
      real, dimension (:), allocatable :: tfertn,tfertp,tgrazn,tgrazp
      real, dimension (:), allocatable :: latno3,latq,minpgw,no3gw,nplnt
      real, dimension (:), allocatable :: tileq, tileno3
      real, dimension (:), allocatable :: sedminpa,sedminps,sedorgn
      real, dimension (:), allocatable :: sedorgp,sedyld,sepbtm,strsn
      real, dimension (:), allocatable :: strsp,strstmp,surfq,surqno3
      real, dimension (:), allocatable :: tcfrtn,tcfrtp,hru_ha,hru_dafr
      real, dimension (:), allocatable :: phubase,bio_yrms,hvstiadj
      real, dimension (:), allocatable :: laimxfr,laiday,chlap,pnd_psed
      real, dimension (:), allocatable :: wet_psed,seccip,plantn,plt_et
      real, dimension (:), allocatable :: plt_pet,plantp,bio_aams
      real, dimension (:), allocatable :: bio_aamx,lai_yrmx,dormhr
      real, dimension (:), allocatable :: lat_pst
      real, dimension (:), allocatable :: orig_snohru,orig_potvol,fld_fr
      real, dimension (:), allocatable :: orig_alai,orig_bioms,pltfr_n
      real, dimension (:), allocatable :: orig_phuacc,orig_sumix,pltfr_p
      real, dimension (:), allocatable :: orig_shallst,orig_deepst
      real, dimension (:), allocatable :: orig_pndvol,orig_pndsed,rip_fr
      real, dimension (:), allocatable :: orig_pndno3,orig_pndsolp
      real, dimension (:), allocatable :: orig_pndorgn,orig_pndorgp
      real, dimension (:), allocatable :: orig_wetvol,orig_wetsed
      real, dimension (:), allocatable :: orig_wetno3,orig_wetsolp
      real, dimension (:), allocatable :: orig_wetorgn,orig_wetorgp
      real, dimension (:), allocatable :: orig_solcov,orig_solsw
      real, dimension (:), allocatable :: orig_potno3,orig_potsed
      real, dimension (:), allocatable :: wtab,wtab_mn,wtab_mx
      real, dimension (:), allocatable :: shallst_n,gw_nloss,rchrg_n
      real, dimension (:,:), allocatable :: rfqeo_30d,eo_30d
      real, dimension (:,:), allocatable :: wgncur,wgnold,wrt,psetlp
      real, dimension (:,:), allocatable :: zdb,pst_surq,pst_enr
      real, dimension (:,:), allocatable :: plt_pst,pst_sed,psetlw
      real, dimension (:,:), allocatable :: pcpband,wupnd,tavband,phi
      real, dimension (:,:), allocatable :: wushal,wudeep,tmnband,snoeb
      real, dimension (:,:), allocatable :: surf_bs,nsetlw,snotmpeb,bss
      real, dimension (:,:), allocatable :: tmxband,nsetlp
      real, dimension (:,:), allocatable :: rainsub,hhsubp,frad
      real, dimension (:,:), allocatable :: orig_snoeb,orig_pltpst
      real, dimension (:,:,:), allocatable :: pst_lag
      integer, dimension (:), allocatable :: ipot,nrelease,swtrg,hrupest
      integer, dimension (:), allocatable :: nro,nrot,nfert,npest
      integer, dimension (:), allocatable :: igro,nair,ipnd1,ipnd2
      integer, dimension (:), allocatable :: nirr,iflod1,iflod2,ndtarg
      integer, dimension (:), allocatable :: nmgt,icr,ncut,nsweep,nafert
      integer, dimension (:), allocatable :: irn,irrno,sol_nly,npcp
      integer, dimension (:), allocatable :: igrz,ndeat,ngr,ncf
      integer, dimension (:), allocatable :: idorm,urblu,hru_sub,ldrain
      integer, dimension (:), allocatable :: hru_seq
      integer, dimension (:), allocatable :: iurban,iday_fert,icfrt
      integer, dimension (:), allocatable :: ndcfrt,irip,ifld,hrugis
      integer, dimension (:), allocatable :: orig_igro,ntil,irrsc
      integer, dimension (:), allocatable :: iwatable,curyr_mat
      integer, dimension (:), allocatable :: ncpest,icpst,ndcpst
      integer, dimension (:), allocatable :: iday_pest
      integer, dimension (:,:), allocatable :: rndseed
      real, dimension (:), allocatable :: wshd_pstap, wshd_pstdg
      integer, dimension (:), allocatable :: ndmo,npno
      character(len=13), dimension (18) :: rfile,tfile
      character(len=1), dimension (6300) :: hydgrp, kirr
      character(len=4), dimension (50) :: urbname
      character(len=16), dimension (6300) :: snam
      character(len=17), dimension (300) :: pname
      character(len=13) :: heds(68),hedb(18),hedr(42),hedrsv(41)
      character(len=13) :: hedwtr(40)
      character(len=4) :: title(60), cpnm(250)
! measured input files
      real, dimension (:,:,:), allocatable :: flomon,solpstmon,srbpstmon
      real, dimension (:,:,:), allocatable :: sedmon,orgnmon,orgpmon
      real, dimension (:,:,:), allocatable :: no3mon,minpmon,nh3mon
      real, dimension (:,:,:), allocatable :: no2mon,bactpmon,bactlpmon
      real, dimension (:,:,:), allocatable :: cmtl1mon,cmtl2mon,cmtl3mon
      real, dimension (:,:,:), allocatable :: chlamon,disoxmon,cbodmon
      real, dimension (:,:), allocatable :: floyr,sedyr,orgnyr,orgpyr
      real, dimension (:,:), allocatable :: no3yr,minpyr,nh3yr,no2yr
      real, dimension (:,:), allocatable :: bactpyr,bactlpyr,cmtl1yr
      real, dimension (:,:), allocatable :: cmtl2yr,cmtl3yr,chlayr
      real, dimension (:,:), allocatable :: disoxyr,cbodyr,solpstyr
      real, dimension (:,:), allocatable :: srbpstyr
      real, dimension (:), allocatable :: flocnst,sedcnst,orgncnst
      real, dimension (:), allocatable :: orgpcnst,no3cnst,minpcnst
      real, dimension (:), allocatable :: nh3cnst,no2cnst,bactpcnst
      real, dimension (:), allocatable :: cmtl1cnst,cmtl2cnst,bactlpcnst
      real, dimension (:), allocatable :: cmtl3cnst,chlacnst,disoxcnst
      real, dimension (:), allocatable :: cbodcnst,solpstcnst,srbpstcnst

! hourly time step (by AVG)
      integer :: idt, nstep
      real, dimension (:), allocatable :: hrtwtr,hhstor,hdepth,hsdti
      real, dimension (:), allocatable :: hrchwtr,halgae,horgn,hnh4
      real, dimension (:), allocatable :: hno2,hno3,horgp,hsolp,hbod
      real, dimension (:), allocatable :: hdisox,hchla,hsedyld,hsedst
      real, dimension (:), allocatable :: hharea,hsolpst,hsorpst
      real, dimension (:), allocatable :: hhqday,hhprecip,precipdt
      real, dimension (:), allocatable :: hhtime,hbactp,hbactlp
! store initial values
      integer, dimension (:), allocatable :: ivar_orig
      real, dimension (:), allocatable :: rvar_orig
! Input Uncertainty, added by Ann van Griensven
      integer ::  iseed, nauto, imocheck,idlast
	real*8 ::  psamp
	integer, dimension (:), allocatable :: isamp, itelmon
      integer, dimension (:,:), allocatable :: ipinue
      real, dimension (:,:), allocatable :: stprain, stptemp, stprad
	real, dimension (:,:), allocatable :: stprhd, stppst, stpfrt
        real, dimension (:,:), allocatable :: variimon
	real, dimension (:,:,:), allocatable :: stpcst
! additional reach variables , added by Ann van Griensven
        real, dimension (:), allocatable :: wattemp
! Modifications to Pesticide and Water routing routines by Balaji Narasimhan
        real, dimension (:), allocatable :: lkpst_mass, lkspst_mass
        real, dimension (:), allocatable :: vel_chan

      end module parm