Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Normal
Revision Log

Mod_PHY_CM_kkl.f90 @ 2361

Last change on this file since 2361 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

Rev	Line
[2089]	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