diff --git a/src/zero0.f b/src/zero0.f index 078888e..e31e55b 100644 --- a/src/zero0.f +++ b/src/zero0.f @@ -24,7 +24,6 @@ subroutine zero0 cf = 0.0 cfh = 0.0 cfdec = 0.0 - pnd_d50 = 0.0 isnow = 0 imgt = 0 iwtr = 0 @@ -171,7 +170,6 @@ subroutine zero0 daylmn = 0. daru_km = 0. ! Drainmod tile equations 01/2006 - dc = 0. drain_co_bsn = 0. ! Drainmod tile equations 01/2006 ddrain = 0. @@ -202,9 +200,6 @@ subroutine zero0 dorm_hr = -1. dorm_flag = 0 driftco = 0. -! Drainmod tile equations 01/2006 - dtwt = 600. - dz = 0. ! Drainmod tile equations 01/2006 drydep_no3 = 0. drydep_nh4 = 0. @@ -245,8 +240,6 @@ subroutine zero0 ftmpstdmx = 0. gdrain = 0. gdrain_bsn = 0. -! Drainmod tile equations 01/2006 - gee = 0. ! Drainmod tile equations 01/2006 gsi = 0. gw_delaye = 0. @@ -259,15 +252,11 @@ subroutine zero0 ! surfq_ru = 0. ! infl_ru = 0. gwqmn = 0. -! Drainmod tile equations 01/2006 - hdrain = 0. - hdrain_bsn = 0. ! Drainmod tile equations 01/2006 hi_ovr = 0. hi_targ = 0. hlife_f = 0. hlife_s = 0. - hqd = 0. hqdsave = 0. hru_dafr = 0. hru_fr = 0. @@ -298,7 +287,6 @@ subroutine zero0 idplt = 0 idplrot = 1 idtill = 0 - ihv_gbm = 0 wstrs_id = 0 ifirstpcp = 1 ifirsthr = 1 @@ -327,7 +315,6 @@ subroutine zero0 inum6s = 0 inum7s = 0 inum8s = 1 - iop = 0 ioper = 1 iopera = 1 iopday = 0 @@ -343,7 +330,7 @@ subroutine zero0 irip = 0 irn = 0 irramt = 0. - irreff = 1 + irr_eff = 1 irrefm = 1. irrsalt = 0. irrsc = 0 @@ -355,7 +342,6 @@ subroutine zero0 irrsc = 0 irr_sc = 0 irr_no = 0 - irr_sq = 0 irr_asq = 0 irr_sca = 0 irr_noa = 0 @@ -401,7 +387,6 @@ subroutine zero0 irr_mx = 0. !! change per JGA irrigation 4/2/2009 latno3 = 0. - nicr = 0 ndmo = 0 ndtarg = 0 newrti = 0. @@ -470,7 +455,6 @@ subroutine zero0 sol_clay = 0. ! Drainmod tile equations 01/2006 stmaxd = 0. - stmaxd_bsn = 0. ! Drainmod tile equations 01/2006 sol_ec = 0. @@ -478,7 +462,7 @@ subroutine zero0 sol_silt = 0. sol_clay = 0. !! added for Srini in output.mgt nitrogen and phosphorus nutrients per JGA by gsm 9/8/2011 - sol_sumn03 = 0. + sol_sumno3 = 0. sol_sumsolp = 0. strsw = 1. strsw_sum = 0. @@ -505,7 +489,7 @@ subroutine zero0 tb_adj = 0. tdrain = 0. tdrain_bsn = 0. - tile_no3 = 0. + tile_no3o = 0. tileq = 0. tile_ttime = 0. uh = 0. diff --git a/src/zero1.f b/src/zero1.f index 302d195..4823626 100644 --- a/src/zero1.f +++ b/src/zero1.f @@ -5,6 +5,10 @@ subroutine zero1 use parm +c$$$ ! do these really get initialized or just local??? +c$$$ real :: bio_fecal, grwat_veg, plq_rt, rsp_rt, sep_opt, silt +c$$$ real :: slg_rt, sub_petco, vp + !! added for manure Armen Jan 2009 sol_mc = 0. sol_mn = 0. @@ -44,7 +48,6 @@ subroutine zero1 bio_bod = 0. fcoli = 0. bio_ntr = 0. - bio_fecal = 0. bio_ntr = 0. biom = 0. rbiom = 0. @@ -58,7 +61,7 @@ subroutine zero1 bz_area = 0 !! isep_typ = 1 isep_typ = 0 - sep_opt= 1 + isep_opt= 1 sep_tsincefail = 0 isep_tfail = 0 coeff_bod_dc = 0 @@ -112,7 +115,6 @@ subroutine zero1 grwat_l = 0. grwat_w = 0. grwat_d = 0. - grwat_veg = 0. gwati = 0. gwatn = 0. gwatl = 0. @@ -172,7 +174,6 @@ subroutine zero1 plaps = 0. !! septic changes 1/29/09 plqm = 0. - plq_rt = 0. !! septic changes 1/29/09 plt_pst = 0. pname = "" @@ -232,9 +233,6 @@ subroutine zero1 rk5 = 0. rk6 = 0. rnum1s = 0. -!! septic changes 1/29/09 - rsp_rt = 0. - slg_rt = 0. !! septic changes 1/29/09 sol_rock = 0. rs1 = 0. @@ -253,7 +251,6 @@ subroutine zero1 sedst = 0. shallst = 0. shallst_n = 0. - silt = 0. skoc = 0. slsoil = 0. slsubbsn = 0. @@ -315,8 +312,6 @@ subroutine zero1 sub_dcla = 0. sub_dsag = 0. sub_dlag = 0. - sub_dgra = 0. - sub_petco = 0. ! CB 8/24/09 sub_smfmx = 0. ! CB 8/24/09 sub_smfmn = 0. ! CB 8/24/09 sub_sftmp = 0. ! CB 8/24/09 @@ -361,8 +356,6 @@ subroutine zero1 usle_ls = 0. usle_p = 0. vel_chan = 0. -!! septic changes 1/29/09 - vp = 0. !! septic changes 1/29/09 vfsi = 0. !CB 8/24/09 vpd2 = 0.