source: LMDZ5/trunk/libf/phymar/yoeaerd.F90 @ 4356

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 2.2 KB
Line 
1MODULE YOEAERD
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     ------------------------------------------------------------------
11!*     *YOEAERD* SPECTRAL DISTRIBUTION OF AEROSOLS
12!     ------------------------------------------------------------------
13
14!REAL_B,ALLOCATABLE:: CVDAES(:)
15!REAL_B,ALLOCATABLE:: CVDAEL(:)
16!REAL_B,ALLOCATABLE:: CVDAEU(:)
17!REAL_B,ALLOCATABLE:: CVDAED(:)
18
19REAL_B :: CVDAES(601)
20REAL_B :: CVDAEL(601)
21REAL_B :: CVDAEU(601)
22REAL_B :: CVDAED(601)
23
24REAL_B :: RAESC(66)
25REAL_B :: RAESS(55)
26REAL_B :: RAELC(66)
27REAL_B :: RAELS(55)
28REAL_B :: RAEUC(66)
29REAL_B :: RAEUS(55)
30REAL_B :: RAEDC(66)
31REAL_B :: RAEDS(55)
32
33REAL_B :: RCAEOPS
34REAL_B :: RCAEOPL
35REAL_B :: RCAEOPU
36REAL_B :: RCAEOPD
37REAL_B :: RCTRBGA
38REAL_B :: RCVOBGA
39REAL_B :: RCSTBGA
40REAL_B :: RCTRPT
41REAL_B :: RCAEADK(3)
42REAL_B :: RCAEADM
43REAL_B :: RCAEROS
44
45
46!*     *YOEAERD* SPECTRAL DISTRIBUTION OF AEROSOLS.
47!                     (TRIANGULAR *T10* TRUNCATION FOR AEROSOLS).
48
49!     R.G AND M.J        E.C.M.W.F.     29/11/82.
50!     J.-J. MORCRETTE    E.C.M.W.F.     92/09/24  Adaptation to IFS
51
52!      NAME     TYPE      PURPOSE
53!      ----     ----      -------
54
55!     *CAES_*   REAL      *REFERS TO *SEA AEROSOLS.
56!     *CAEL_*   REAL      *REFERS TO *LAND AEROSOLS.
57!     *CAEU_*   REAL      *REFERS TO *URBAN AEROSOLS.
58!     *CAED_*   REAL      *REFERS TO *DESERT AEROSOLS.
59!     *C___C*   REAL      *REFERS TO *COS COMPONENT.
60!     *C___S*   REAL      *REFERS TO *SIN COMPONENT.
61!     *CAEOP_*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
62!     *C___S*   REAL      *REFERS TO *SEA AEROSOLS.
63!     *C___L*   REAL      *REFERS TO *LAND AEROSOLS.
64!     *C___U*   REAL      *REFERS TO *URBAN AEROSOLS.
65!     *C___D*   REAL      *REFERS TO *DESERT AEROSOLS.
66!     *C__BGA*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
67!     *CVDAE_*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.(NFLEV+1)
68!     *RCTRPT*   REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
69!     *RCAEADK*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
70!     *RCAEADM*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
71!     *RCAEROS*  REAL      *BACKGROUND VALUE IN ABSENCE OF AEROSOLS.
72
73!     ------------------------------------------------------------------
74END MODULE YOEAERD
Note: See TracBrowser for help on using the repository browser.