source: LMDZ6/branches/DYNAMICO-conv/libf/phymar/yoeaer.F90 @ 3024

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 2.3 KB
Line 
1MODULE YOEAER
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     -----------------------------------------------------------------
11!*    ** *YOEAER* - RADIATIVE CHARACTERISTICS OF THE AEROSOLS
12!     -----------------------------------------------------------------
13
14
15!*       1.    SHORTWAVE COEFFICIENTS
16!              ----------------------
17
18REAL_B , DIMENSION(4,5)   :: RTAUA=RESHAPE((/&
19 &.730719_JPRB,.730719_JPRB,.730719_JPRB,.730719_JPRB,&
20 &.912819_JPRB,.912819_JPRB,.912819_JPRB,.912819_JPRB,&
21 &.725059_JPRB,.725059_JPRB,.725059_JPRB,.725059_JPRB,&
22 &.745405_JPRB,.745405_JPRB,.745405_JPRB,.745405_JPRB,&
23 &.682188_JPRB,.682188_JPRB,.682188_JPRB,.682188_JPRB /)&
24 &,SHAPE=(/4,5/))
25REAL_B , DIMENSION(4,5)   :: RPIZA=RESHAPE((/&
26 &.872212_JPRB,.872212_JPRB,.872212_JPRB,.872212_JPRB,&
27 &.982545_JPRB,.982545_JPRB,.982545_JPRB,.982545_JPRB,&
28 &.623143_JPRB,.623143_JPRB,.623143_JPRB,.623143_JPRB,&
29 &.944887_JPRB,.944887_JPRB,.944887_JPRB,.944887_JPRB,&
30 &.997975_JPRB,.997975_JPRB,.997975_JPRB,.997975_JPRB /)&
31 &,SHAPE=(/4,5/))
32REAL_B , DIMENSION(4,5)   :: RCGA=RESHAPE((/&
33 &.647596_JPRB,.647596_JPRB,.647596_JPRB,.647596_JPRB,&
34 &.739002_JPRB,.739002_JPRB,.739002_JPRB,.739002_JPRB,&
35 &.580845_JPRB,.580845_JPRB,.580845_JPRB,.580845_JPRB,&
36 &.662657_JPRB,.662657_JPRB,.662657_JPRB,.662657_JPRB,&
37 &.624246_JPRB,.624246_JPRB,.624246_JPRB,.624246_JPRB /)&
38 &,SHAPE=(/4,5/))
39
40!*       2.    LONGWAVE COEFFICIENTS
41!              ---------------------
42
43
44REAL_B , DIMENSION(5,5)   :: RAER=RESHAPE((/&
45 &.038520_JPRB, .037196_JPRB, .040532_JPRB, .054934_JPRB, .038520_JPRB ,&
46 &.12613_JPRB , .18313_JPRB , .10357_JPRB , .064106_JPRB, .126130_JPRB ,&
47 &.012579_JPRB, .013649_JPRB, .018652_JPRB, .025181_JPRB, .012579_JPRB ,&
48 &.011890_JPRB, .016142_JPRB, .021105_JPRB, .028908_JPRB, .011890_JPRB ,&
49 &.013792_JPRB, .026810_JPRB, .052203_JPRB, .066338_JPRB, .013792_JPRB /&
50       &),SHAPE=(/5,5/))
51
52
53!        * E.C.M.W.F. PHYSICS PACKAGE *
54
55!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
56
57!  NAME     TYPE     PURPOSE
58!  ----  :  ----   : -------
59!  RTAUA :  REAL     S.W. NORMALIZED OPTICAL THICKNESS AT 0.55 MICRON
60!  RPIZA :  REAL     S.W. SINGLE SCATTERING ALBEDO
61!  RCGA  :  REAL     S.W. ASSYMETRY FACTOR
62!  RAER  :  REAL     L.W. ABSORPTION COEFFICIENTS
63!     -----------------------------------------------------------------
64END MODULE YOEAER
Note: See TracBrowser for help on using the repository browser.