source: LMDZ5/branches/IPSLCM6.0.11/libf/phymar/Mod_Atm_CM_QSa.f90 @ 2892

Last change on this file since 2892 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 1.3 KB
Line 
1      module Mod_Atm_CM_QSa
2
3!--------------------------------------------------------------------------+
4!                                                     Mon 17-Jun-2013  MAR |
5!     module Mod_Atm_CM_QSa contains local variables of PHY_Atm_CM_QSat    |
6!                                                                          |
7!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
8!           Last Modification by H. Gallee,           Mon 17-Jun-2013      |
9!                                                                          |
10!--------------------------------------------------------------------------+
11
12
13! Global  Variables
14! =================
15
16      use Mod_Real
17
18
19
20! Internal Variables
21! ==================
22
23      IMPLICIT NONE
24
25
26
27      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  pa_hPa                  !  Pressure                               [hPa]
28      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  pr_b75                  !  (1/0)          if pa_hPa (>/<)      75 [hPa]
29      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  ei_sat                  !  Saturation Vapor Pressure over Ice     [hPa]
30      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  ew_sat                  !  Saturation Vapor Pressure over Water   [hPa]
31
32
33      end module Mod_Atm_CM_QSa
Note: See TracBrowser for help on using the repository browser.