Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

Mod_PHY_CM_kkl.f90 @ 2253

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

Inclusion de la physique de MAR

Integration of MAR physics

File size: 7.5 KB

Line
1	module Mod_PHY_CM_kkl
2
3	!--------------------------------------------------------------------------+
4	! Sun 9-Jun-2013 MAR \|
5	! module Mod_PHY_CM_kkl contains the main (prognostic) variables of \|
6	! Cloud Microphsics Scheme \|
7	! \|
8	! version 3.p.4.1 created by H. Gallee, Tue 19-Mar-2013 \|
9	! Last Modification by H. Gallee, Sun 9-Jun-2013 \|
10	! \|
11	!--------------------------------------------------------------------------+
12
13
14	use Mod_Real
15
16
17	IMPLICIT NONE
18
19
20	! Cloud Microphysical Model Parameters
21	! ------------------------------------
22
23	logical :: Frac__Clouds = .TRUE. ! Fractional Cloud Cover
24
25
26
27	! PHY_CM INPUT Variables
28	! -----------------------------
29
30
31
32	! PHY_CM INPUT/OUTPUT Variables
33	! -----------------------------
34
35	real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:) :: Ta__CM ! Air Temperature [K]
36	real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:) :: qvswCM ! Saturation Specific Humidity (over liquid water) [kg/kg]
37	real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:) :: qvsiCM ! Saturation Specific Humidity (over ice) [kg/kg]
38	real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:) :: qw__CM ! Cloud Droplets Concentration [kg/kg]
39	real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:) :: qwd_CM ! Cloud Droplets Concentration Variation [kg/kg]
40	real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:) :: CCNwCM ! Cloud Condensation Nuclei [-/m3]
41	real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:) :: qi__CM ! Cloud Ice Particles Concentration [kg/kg]
42	real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:) :: qid_CM ! Cloud Ice Particles Concentration Variation [kg/kg]
43	real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:) :: CCNiCM ! Cloud Ice Particles Number [-/m3]
44	real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:) :: CFraCM ! Cloud Fraction [-]
45	real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:) :: qs__CM ! Snow Particles Concentration [kg/kg]
46	! #qg real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:) :: qg__CM ! Graupels Concentration [kg/kg]
47	real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:) :: qr__CM ! Rain Drops Concentration [kg/kg]
48	real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:) :: HLatCM ! Latent Heat Release [W/m2]
49
50	real(kind=real8), SAVE,ALLOCATABLE ,dimension(:) :: uss_CM ! Snow Particles Turbulent Surface Flux [kg m/s]
51	real(kind=real8), SAVE,ALLOCATABLE ,dimension(:) :: Ice0CM ! Ice C.Accumulation (time t-dtR) [m w.e.]
52	real(kind=real8), SAVE,ALLOCATABLE ,dimension(:) :: Ice_CM ! Ice C.Accumulation (time t ) [m w.e.]
53	real(kind=real8), SAVE,ALLOCATABLE ,dimension(:) :: Sno0CM ! Snow Accumulation (time t-dt, before snow erosion) [m w.e.]
54	real(kind=real8), SAVE,ALLOCATABLE ,dimension(:) :: SnobCM ! Snow Accumulation (time t-dt, after snow erosion) [m w.e.]
55	real(kind=real8), SAVE,ALLOCATABLE ,dimension(:) :: SnowCM ! Snow Accumulation (time t ) [m w.e.]
56	real(kind=real8), SAVE,ALLOCATABLE ,dimension(:) :: Rai0CM ! Rain Accumulation (time t-dt) [m w.e.]
57	real(kind=real8), SAVE,ALLOCATABLE ,dimension(:) :: RainCM ! Rain Accumulation (time t ) [m w.e.]
58
59
60
61	! PHY_CM OUTPUT Variables
62	! -----------------------------
63
64	real(kind=real8), SAVE, ALLOCATABLE ,dimension(:,:) :: dpktCM ! Reduced Potential Temperature TENDENCY [KX/s]
65	real(kind=real8), SAVE, ALLOCATABLE ,dimension(:,:) :: dqv_CM ! Specific Humidity TENDENCY [kg/kg/s]
66	real(kind=real8), SAVE, ALLOCATABLE ,dimension(:,:) :: dqw_CM ! Cloud Droplets Concentration TENDENCY [kg/kg/s]
67	real(kind=real8), SAVE, ALLOCATABLE ,dimension(:,:) :: dqi_CM ! Cloud Crystals Concentration TENDENCY [kg/kg/s]
68	real(kind=real8), SAVE, ALLOCATABLE ,dimension(:,:) :: dqs_CM ! Snow Particles Concentration TENDENCY [kg/kg/s]
69	real(kind=real8), SAVE, ALLOCATABLE ,dimension(:,:) :: dqr_CM ! Rain Drops Concentration TENDENCY [kg/kg/s]
70	! #cw real(kind=real8), SAVE, ALLOCATABLE ,dimension(:,:) :: dCw_CM ! CCN Concentration TENDENCY [1/s]
71	real(kind=real8), SAVE, ALLOCATABLE ,dimension(:,:) :: dCi_CM ! CIN Concentration TENDENCY [1/s]
72	real(kind=real8), SAVE, ALLOCATABLE ,dimension(:,:) :: dCF_CM ! Cloud Draction TENDENCY [1/s]
73
74	real(kind=real8), SAVE, ALLOCATABLE ,dimension(:) :: wat0EW ! Total Precipitable Water in the Air Column [m w.e.]
75	real(kind=real8), SAVE, ALLOCATABLE ,dimension(:) :: wat1EW ! Total Precipitable Water in the Air Column [m w.e.]
76	real(kind=real8), SAVE, ALLOCATABLE ,dimension(:) :: wat2EW ! Total Precipitable Water in the Air Column [m w.e.]
77	real(kind=real8), SAVE, ALLOCATABLE ,dimension(:) :: watfEW ! Water Flux (Atm. --> Srf.) during 1 Time Step [m w.e.]
78	real(kind=real8), SAVE, ALLOCATABLE ,dimension(:) :: enr0EW ! Total Energy (Sens. +Lat.) in the Air Column [m w.e.]
79	real(kind=real8), SAVE, ALLOCATABLE ,dimension(:) :: enr1EW ! Total Energy (Sens. +Lat.) in the Air Column [m w.e.]
80	real(kind=real8), SAVE, ALLOCATABLE ,dimension(:) :: enr2EW ! Total Energy (Sens. +Lat.) in the Air Column [m w.e.]
81	character(len=20),ALLOCATABLE ,dimension(:) :: mphyEW !
82	character(len=20) :: mauxEW !
83
84
85	! Isotopes Proxies
86	! ~~~~~~~~~~~~~~~~
87	logical :: write_Proxy !
88	integer, SAVE :: nHL_CM ! Counter
89	real(kind=real8), SAVE, ALLOCATABLE ,dimension(:) :: Hcd_CM ! latent heat release [mm w.e.]
90	real(kind=real8), SAVE, ALLOCATABLE ,dimension(:) :: Tcd_CM ! latent heat release weighted Air Temperature [K]
91	real(kind=real8), SAVE, ALLOCATABLE ,dimension(:) :: Zcd_CM ! latent heat release weighted Altitude [m]
92	real(kind=real8), SAVE, ALLOCATABLE ,dimension(:) :: Hsb_CM ! latent heat absorb. [mm w.e.]
93	real(kind=real8), SAVE, ALLOCATABLE ,dimension(:) :: Tsb_CM ! latent heat absorb. weighted Air Temperature [K]
94	real(kind=real8), SAVE, ALLOCATABLE ,dimension(:) :: Zsb_CM ! latent heat absorb. weighted Altitude [m]
95
96
97	end module Mod_PHY_CM_kkl

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format