source: LMDZ5/trunk/libf/phymar/Mod_CMiPhy_loc.f90 @ 3958

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

Inclusion de la physique de MAR

Integration of MAR physics
File size: 6.4 KB
RevLine 
[2089]1      module Mod_CMiPhy_loc
2
3!--------------------------------------------------------------------------+
4!                                                     Mon 17-Jun-2013  MAR |
5!     module Mod_CMiPhy_loc contains local variables of CMiPhy             |
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(:)    :: qw_io0            ! Droplets   Concentration entering CMiPhy (for io)       [kg/kg]
27      real(kind=real8), SAVE,ALLOCATABLE,dimension(:)    :: qi_io0            ! Ice  Part. Concentration entering CMiPhy (for io)       [kg/kg]
28      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: qs___0            ! Snow Part. Concentration entering CMiPhy                [kg/kg]
29! #qg real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: qg___0            ! Graupels   Concentration entering CMiPhy                [kg/kg]
30      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: qr___0            ! Rain Drops Concentration entering CMiPhy                [kg/kg]
31      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: Ta_dgC            ! Air   Temperature                                         [dgC]
32      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: sqrrro            ! sqrt(roa(mzp)/roa(k))                                       [-]
33      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: qsiEFF            ! EFFective Saturation Specific Humidity over Ice         [kg/kg]
34      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: Fletch            ! Monodisperse Nb of hexagonal Plates, Fletcher (1962)        [-]
35
36      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: lamdaS            ! Marshall-Palmer distribution parameter for Snow Particl.
37! #qg real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: lamdaG            ! Marshall-Palmer distribution parameter for Graupels     
38      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: lamdaR            ! Marshall-Palmer distribution parameter for Rain Derops 
39      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: ps_ACW            ! Accretion of Cloud Drop. by Snow Particl.          Rate [kg/kg/s]
40
41      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: ps_ACR            ! Accretion of Snow        by Rain                   Rate [kg/kg/s]
42
43      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: FallVw            !     Sedimentation Velocity   of Droplets
44      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: FallVi            !     Sedimentation Velocity   of Ice  Particles
45      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: FallVs            !     Sedimentation Velocity   of Snow Particles
46! #qg real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: FallVg            !     Sedimentation Velocity   of Snow Particles
47      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: FallVr            !     Sedimentation Velocity   of Rain Drops
48      real(kind=real8), SAVE,ALLOCATABLE,dimension(:)    :: qwLoss            ! Mass Loss related to Sedimentation of Rain Droplets
49      real(kind=real8), SAVE,ALLOCATABLE,dimension(:)    :: qiLoss            ! Mass Loss related to Sedimentation of Ice  Crystals
50      real(kind=real8), SAVE,ALLOCATABLE,dimension(:)    :: qsLoss            ! Mass Loss related to Sedimentation of Snow Particles
51      real(kind=real8), SAVE,ALLOCATABLE,dimension(:)    :: qrLoss            ! Mass Loss related to Sedimentation of Rain Drops
52
53
54!  Debug Variables
55!  ---------------
56
57! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wihm1             ! Cloud Droplets Freezing
58! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wihm2             ! Ice   Crystals Homogeneous Sublimation
59! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wicnd             ! Ice   Crystals Nucleation              (Emde & Kahlig)
60! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: widep             ! Ice   Crystals Growth Bergeron Process (Emde & Kahlig)
61! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wisub             ! Ice   Crystals             Sublimation (Levkov)
62! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wimlt             ! Ice   Crystals Melting 
63! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wwevp             ! Water Vapor Condensation / Evaporation (Fractional Cloudiness)
64! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wraut             ! Cloud Droplets AUTO-Conversion
65! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wsaut             ! Ice   Crystals AUTO-Conversion
66! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wracw             ! Accretion of Cloud Droplets by Rain, Ta > 0, --> Rain
67! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wsacw             ! Accretion of Cloud Droplets by Rain, Ta < 0, --> Snow
68! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wsaci             ! Accretion of Ice   Crystals by Snow          --> Snow
69! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wraci             ! Accretion of Ice   Crystals by Rain          --> Snow
70! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wiacr             ! Accretion of Rain by Ice   Crystals          --> Snow
71! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wsacr             ! Accretion of Rain by Snow                    --> Snow
72! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wracs             ! Accretion of Snow by Rain                    --> Snow, Rain
73! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wrevp             ! Rain  Drops     Evaporation 
74! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wssub             ! Snow  Particles Sublimation
75! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wsmlt             ! Snow  Particles Melting
76! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wsfre             ! Rain  Drops     Freezing
77
78! #wH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: debugV            ! Debug Variable (of 16 microphysical processes)
79
80
81      end module Mod_CMiPhy_loc
Note: See TracBrowser for help on using the repository browser.