summry.f

Go to the documentation of this file.

      subroutine summry                                                 
c
c     subroutine summry prints out summry of the input parameters       
c***********************************************************************
c.....include the common and declaration statemnets.....................
      implicit real*8 (a-h,o-z)
      include 'afrt_rt2.cmn'
c***********************************************************************
c     print summry of the input parameters                              
c     write(6,350)                                                      
c     ixz = dtheta
c     write(6,352) ixz,lphi,deltau,qt,qs,wvlth,rmuo,amuo                
c     write(6,351)tr,tm,ta,tautot,press                                 
c     if(ipsudo.eq.0)write(6,354)                                       
c     if(ipsudo.eq.1)write(6,355)                                       
c     if(ipol.eq.1) then                                                
c        write(6,357)ipol                                                   
c        write(6,358)rho                                                   
c     endif                                                             
c     if(iref.eq.0) write(6,353) refl                                   
c*****format statements*************************************************
350   format(10x, 'radiative transfer computation (input summry)') 
351   format(/ t10,'rayleigh optical thickness',t45,'=',1pe15.5/        
     1   t10,'aerosol optical thickness',t45,'=',1pe15.5/               
     2   t10,'ozone optical thickness',t45,'=',1pe15.5/                 
     3   t10,'total optical thickness',t45,'=',1pe15.5/                 
     4   t10,'surface pressure',t45,'=',1pe15.5/)                       
352   format(// t10,'polar angle increment', t45,'=',10x,i5,'  deg.'/   
     1   t10,'azimuth angle increment',t45,'=',10x,i5,'  deg.'/         
     2   t10,'delta tau',t45,'=',1pe15.5  /                             
     3   t10,'mie vol. ext. coeff.',t45,'=',1pe15.5,'  cm-1'/           
     4   t10,'mie vol. sct. coeff.',t45,'=',1pe15.5,'  cm-1'/           
     5   t10,'wavelenth',t45,'=',1pe15.5,'   u' /                       
     6   t10,'solar zenith angle',t45,'=',1pe15.5,'  deg.'  /           
     7   t10,'mu zero',t45,'=',1pe15.5  /   )                           
353   format(t10, 'lambert reflection at the lower boundary'        /   
     1 t10, 'surface reflectivity ',t45, '=',1pe15.5 /)                 
354   format(t10,'model atmosphere',t45,'=',t48,'plane parallel')       
355   format(t10,'model atmosphere',t45,'=',t48,'pseudo spherical')     
357   format(t10,'mol. depol. flag: ipol',t45,'=',i5)                   
358   format(t10,'molecular depolarization factor',t45,1pe15.5)         
c***********************************************************************
      return                                                            
      end                                                               
c***********************************************************************