source: LMDZ5/trunk/libf/phymar/yoerdu.F90 @ 2526

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 1.6 KB
Line 
1MODULE YOERDU
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     ------------------------------------------------------------------
11!*    ** *YOERDU* - CONTROL, PARAMETERS AND SECURITY IN RADIATION
12!     ------------------------------------------------------------------
13
14INTEGER_M :: NUAER
15INTEGER_M :: NTRAER
16INTEGER_M :: NIMP
17INTEGER_M :: NOUT
18REAL_B :: RCDAY
19REAL_B :: R10E
20REAL_B :: REPLOG
21REAL_B :: REPSC
22REAL_B :: REPSCO
23REAL_B :: REPSCQ
24REAL_B :: REPSCT
25REAL_B :: REPSCW
26REAL_B :: DIFF
27
28
29!        * E.C.M.W.F. PHYSICS PACKAGE *
30
31!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
32
33!  NAME     TYPE     PURPOSE
34!  ----  :  ----   : ---------------------------------------------------
35! NUAER  : INTEGER   NUMBER OF ABSORBER AMOUNTS        W OR W/O AEROSOLS
36! NTRAER : INTEGER   NUMBER OF TRANSMISSION FUNCTIONS  W OR W/O AEROSOLS
37! NIMP   : INTEGER   INDEX FOR EXTRA PRINTS WITHIN RADIATION CODE
38! NOUT   : INTEGER   UNIT NUMBER FOR THE EXTRA PRINTS
39! RCDAY  : REAL
40! CCO2   : REAL      CONVERSION COEFFICIENT FOR CO2 IN S.W. CODE
41! CH2O   : REAL      CONVERSION COEFFICIENT FOR H2O IN S.W. CODE
42! R10E   : REAL      DECIMAL/NATURAL LOG.FACTOR
43! DIFF   : REAL      DIFFUSIVITY FACTOR
44!-SECURITY THRESHOLDS
45! REPLOG : REAL      SEC. EPSILON FOR ABS.AMOUNT IN LAPLACE TRANSFORM
46! REPSC  : REAL      SEC. EPSILON FOR CLOUD COVER
47! REPSCO : REAL      SEC. EPSILON FOR OZONE AMOUNT
48! REPSCQ : REAL      SEC. EPSILON FOR WATER VAPOR
49! REPSCT : REAL      SEC. EPSILON FOR SHORTWAVE OPTICAL THICKNESS
50! REPSCW : REAL      SEC. EPSILON FOR CLOUD LIQUID WATER PATH
51
52!     -----------------------------------------------------------------
53END MODULE YOERDU
Note: See TracBrowser for help on using the repository browser.