ciniAtmos.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	ciniatmos

Function/Subroutine Documentation

ciniatmos()

subroutine ciniatmos

(

)

Definition at line 3 of file ciniAtmos.f.

References catmoscnst1(), catmoscnst2(), cnrllatlongcheck(), cqatmosmodel(), and creadatmosd().

Referenced by cbeginrun(), and main().

      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

Here is the call graph for this function:

Here is the caller graph for this function: