source: LMDZ5/branches/LMDZ_tree_FC/libf/phymar/yoerdi.F90 @ 5136

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 1.9 KB
Line 
1MODULE YOERDI
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     -----------------------------------------------------------------
11!*    ** *YOERDI* - COEFFICIENTS WITHIN RADIATION INTERFACE
12!     -----------------------------------------------------------------
13
14REAL_B :: RRAE
15REAL_B :: RSUNDUR
16REAL_B :: RALBSEAD
17REAL_B :: RALBICEVS_AR(12)
18REAL_B :: RALBICENI_AR(12)
19REAL_B :: RALBICEVS_AN(12)
20REAL_B :: RALBICENI_AN(12)
21REAL_B :: RALBSFO
22REAL_B :: REMISD
23REAL_B :: REMISL
24REAL_B :: REMISN
25REAL_B :: REMISS
26REAL_B :: RCARDI
27REAL_B :: RCH4
28REAL_B :: RN2O
29REAL_B :: RO3
30REAL_B :: RCFC11
31REAL_B :: RCFC12
32REAL_B :: REPALB
33REAL_B :: REPCLC
34REAL_B :: REPH2O
35
36!        * E.C.M.W.F. PHYSICS PACKAGE *
37
38!     Original  J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
39!     Modified  P. Viterbo    99/03/26    Surface tiling
40
41!  NAME     TYPE     PURPOSE
42!  ----  :  ----   : ---------------------------------------------------
43! RRAE   : EFFECT OF EARTH'S CURVATURE ON COSINE SOLAR ZENITH ANGLE
44! RSUNDUR: MINIMUM DIRECT SOLAR FOR COMPUTING SOLAR DURATION
45! RALBSEAD: OPEN SEA ALBEDO FOR DIFFUSE RADIATION
46! RALBICEVS_AR: MONTHLY SEA ICE ALBEDO FOR VISIBLE RADIATION (ARCTIC)
47! RALBICENI_AR: MONTHLY SEA ICE ALBEDO FOR NEAR-INFRARED RADIATION (ARCTIC)
48! RALBICEVS_AN: MONTHLY SEA ICE ALBEDO FOR VISIBLE RADIATION (ANTARCTIC)
49! RALBICENI_AN: MONTHLY SEA ICE ALBEDO FOR NEAR-INFRARED RADIATION (ANTARCTIC)
50! RALBSFO: SNOW ALBEDO IN THE PRESENCE OF FOREST
51
52! REMISD : LONGWAVE EMISSIVITY OF DESERT LAND SURFACE
53! REMISL : LONGWAVE EMISSIVITY OF LAND
54! REMISN : LONGWAVE EMISSIVITY OF SNOW
55! REMISS : LONGWAVE EMISSIVITY OF SEA
56
57! RCARDI : SPECIFIC ATMOSPHERIC CONTENT IN CO2
58
59! REPALB : SECURITY TO AVOID ZERO ALBEDOS.
60! REPCLC : SECURITY TO AVOID ZERO OR ONE CLOUD COVERS
61! REPH2O : SECURITY TO AVOID WATER VAPOUR CONTENT IN A LAYER
62!          TO BE MORE THAN THE RESPECTIVE VALUE AT SATURATION.
63!     -----------------------------------------------------------------
64END MODULE YOERDI
Note: See TracBrowser for help on using the repository browser.