Fix variable names (#6), remove local unused (#4)

mlt · Apr 18, 2013 · 1335f87 · 1335f87
1 parent 14f7866
commit 1335f87
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 31 deletions.
diff --git 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,15 +455,14 @@ subroutine zero0
       sol_clay = 0. 
 !    Drainmod tile equations  01/2006 
       stmaxd = 0.
-      stmaxd_bsn = 0.
 !    Drainmod tile equations  01/2006 
 
       sol_ec = 0.
       sol_sand = 0.
       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
@@ -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.