diff --git a/src/cx_pfaast_coef_mod.f90 b/src/cx_pfaast_coef_mod.f90
index 325e5212ad7cd1f0aa60a5f29a0149c3d8d2b695..5570864cf0818b83475cf463097c0184ce4374aa 100644
--- a/src/cx_pfaast_coef_mod.f90
+++ b/src/cx_pfaast_coef_mod.f90
@@ -511,6 +511,9 @@ contains
       this % wvp_solid  = coefs (:,:,0,:)
       this % wvp_liquid = coefl (:,:,0,:)
       
+    
+     
+     
       this % modis_channel_eqv = [ (i,i=20,36),1 ]
       this % native_channel = [ (i,i=20,36),1 ]
         
diff --git a/src/cx_pfaast_mod.f90 b/src/cx_pfaast_mod.f90
index 18f80e78981d4b03d8ace948371eaccc6130757c..3e0b35b0e451e9aee64678fd3375f4e99cf741d0 100644
--- a/src/cx_pfaast_mod.f90
+++ b/src/cx_pfaast_mod.f90
@@ -154,7 +154,7 @@ contains
              
       ! - build total transmisison
       taut = taud * tauo * tauc * tauw
-      print*,taud(101),tauo(101),tauc(101),tauw(101)
+      print*,'tau values 101: tau-dry, tau-oz, tau-con, tau-wav ',taud(101),tauo(101),tauc(101),tauw(101)
       
       ! - done    
       
diff --git a/src/cx_pfaast_tools_mod.f90 b/src/cx_pfaast_tools_mod.f90
index 96065ff96b94f93815dfd5bb159d971a821f3bee..ec031af9aa0038132c10ff443c33d5945dd87d9e 100644
--- a/src/cx_pfaast_tools_mod.f90
+++ b/src/cx_pfaast_tools_mod.f90
@@ -992,8 +992,11 @@ subroutine tauwtr( ccs , ccl , xx , tau )
          od_sum=od_sum + max(yy,0.)
          if ( yy > 0. ) taulyr = exp ( -yy)
          tau ( j + 1) = tau ( j ) * taulyr   
+        
             
       end do
+      
+       
       cc=> null() 
      
       return