Mod_Atm_CM_QSa.f90

Go to the documentation of this file.

      module mod_atm_cm_qsa

!--------------------------------------------------------------------------+
!                                                     Mon 17-Jun-2013  MAR |
!     module Mod_Atm_CM_QSa contains local variables of PHY_Atm_CM_QSat    |
!                                                                          |
!     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(:)  ::  pa_hpa                  !  Pressure                               [hPa]
      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  pr_b75                  !  (1/0)          if pa_hPa (>/<)      75 [hPa]
      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  ei_sat                  !  Saturation Vapor Pressure over Ice     [hPa]
      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  ew_sat                  !  Saturation Vapor Pressure over Water   [hPa]


      end module mod_atm_cm_qsa