Toward #1 (or #2?)

Author: mlt

src/readfile.f

@@ -768,8 +768,8 @@ subroutine readfile
 !! sj september 2010 CSWAT final output
       if (cswat == 1) then
 	open (100,file="cswat_profile.txt",recl=280)
-	write (100,*) 'year',';','day',';','hru',';','cmass',';','sol_rsd',
-     &';','mancmass'
+	write (100,*) 'year',';','day',';','hru',';','cmass',';',
+     $       'sol_rsd',';','mancmass'
       end if
 
 

src/stdaa.f

@@ -600,7 +600,7 @@ subroutine stdaa
      &    'P LEACHED =  ',f8.3,' (KG/HA)',/,t20,                        &
      &    'N UPTAKE =  ',f8.3,' (KG/HA)',/,t20,'P UPTAKE = ',f8.3,      &
      &    ' (KG/HA)',/,t20,'NO3 YIELD (GWQ) =  ',f8.3,' (KG/HA)')
- 2800 format (t20,'ACTIVE TO SOLUTION P FLOW =  ',f12.3,' (KG/HA)',/,t20,&
+ 2800 format(t20,'ACTIVE TO SOLUTION P FLOW =  ',f12.3,' (KG/HA)',/,t20,&
      &    'ACTIVE TO STABLE P FLOW =  ',f12.3,' (KG/HA)',/,t20,         &
      &    'N FERTILIZER APPLIED = ',f9.3,' (KG/HA)',/,t20,              &
      &    'P FERTILIZER APPLIED = ',f9.3,' (KG/HA)',/,t20,              &