Mod_Atm_S0_RUN.f90

Go to the documentation of this file.

      module mod_atm_s0_run

!--------------------------------------------------------------------------+
!                                                     Mon 17-Jun-2013  MAR |
!     module Mod_Atm_S0_RUN contains local variables of PHY_Atm_S0_RUN     |
!                                                                          |
!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
!           Last Modification by H. Gallee,           Mon 17-Jun-2013      |
!                                                                          |
!--------------------------------------------------------------------------+


! Global  Variables
! =================

      use mod_real



! Internal Variables
! ==================

      IMPLICIT NONE


      real(kind=real8), SAVE,ALLOCATABLE, dimension(:)    ::  cszmin !  MIN    cos(zenith.Dist), if Mountain MASK        RUN
      real(kind=real8), SAVE,ALLOCATABLE, dimension(:)    ::  sin_sz !     sin(Sun zenith.Dist)                          RUN
      real(kind=real8), SAVE,ALLOCATABLE, dimension(:)    ::  sin_ho !     sin(Sun Hour  Angle)                          RUN


      end module mod_atm_s0_run