atmosd.f

Go to the documentation of this file.

#include "BlockData/cblkGene.h"
      implicit none
#include "Zmanagerp.h"
#include "Zatmos.h"
      integer i

      call creadparam(5)
      call cerrormsg(atmosfile, 1)
      call creadatmosd
!
      call catmoscnst1

      write(*,'(a,a)')
     * '#    Height        Temp         Press          rho  ',
     * '            a             d0           cumd            H'
      write(*,'(a)') "#-----------------------------------------"

      do i = 1, atmos%nodes-1
         write(*,
     *   '(8g14.5)')
     *   atmos%z(i), atmos%T(i),  atmos%P(i),
     *   atmos%rho(i), atmos%a(i),  atmos%d0(i),
     *   atmos%cumd(i), atmos%H(i)
      enddo

      end