creadAtmosD.f

Go to the documentation of this file.

      subroutine creadatmosd
#include  "Zcondc.h"
#if ATMOSPHERE == 3
#include  "cNRLAtmos0.fh"
#else
#include  "creadAtmosD.fh"
#endif
      end  subroutine creadatmosd

      subroutine cqatmosmodel(modelno)
      implicit none
      integer,intent(out):: modelno
      modelno = atmosphere
      end subroutine cqatmosmodel