changes

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 ]
         

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    
       

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