source: LMDZ6/branches/LMDZ-COSP/libf/phymar/Mod_Atm_CM_RUN.f90 @ 3847

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 2.0 KB
Line 
1      module Mod_Atm_CM_RUN
2
3!--------------------------------------------------------------------------+
4!                                                     Mon 17-Jun-2013  MAR |
5!     module Mod_Atm_CM_RUN contains local variables of PHY_Atm_CM_RUN     |
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      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  ::  qv__00           !  Air   Specific Humidity  before Cloud Microphys.  [kg/kg]
27      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  ::  qw__00           !  Cloud Droplets Concentr. before Cloud Microphys.  [kg/kg]
28      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  ::  qi__00           !  Cloud Crystals Concentr. before Cloud Microphys.  [kg/kg]
29      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  ::  qs__00           !  Snow  Particl. Concentr. before Cloud Microphys.  [kg/kg]
30! #qg real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  ::  qg__00           !  Graupels       Concentr. before Cloud Microphys.  [kg/kg]
31      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  ::  qr__00           !  Rain  Drops    Concentr. before Cloud Microphys.  [kg/kg]
32      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  ::  CFra00           !  Cloud Fraction           before Cloud Microphys.      [-]
33! #cw real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  ::  CCNw00           !  Cloud Condens. Nuclei    before Cloud Microphys.      [-]
34      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  ::  CCNi00           !  Cloud Ice      Nuclei    before Cloud Microphys.      [-]
35
36
37      end module Mod_Atm_CM_RUN
Note: See TracBrowser for help on using the repository browser.