ciniAtmos.f

Go to the documentation of this file.

#include "Zcondc.h"
      subroutine ciniatmos
      implicit none
#include "Zmanagerp.h"
#include "Zobs.h"
#include "Zobsp.h"
      integer:: atmosmodel
      
#if ATMOSPHERE == 1
!          read segmented atmosphere data
      call creadatmosd
!          manipulate data
      call catmoscnst1
      call catmoscnst2
#elif ATMOSPHERE == 2
!          read segmented atmosphere data
      call creadatmosd
!          manipulate data
      call catmoscnst1
#elif ATMOSPHERE == 3
      call creadatmosd  ! use NRL
!     check Lat,Longit
      if( atmosfile /=  " " ) then
!     If  Lat,Long differ from those in AtmosFile, stop
         call cnrllatlongcheck( latitofsite, longitofsite )
      endif   
#endif
      call cqatmosmodel(atmosmodel)
      write(0,*) ' Atmosphere model # is ', atmosmodel
      end   subroutine ciniatmos