source: LMDZ5/trunk/libf/phymar/yoeozoc.F90 @ 3603

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 879 bytes
RevLine 
[2089]1MODULE YOEOZOC
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     ------------------------------------------------------------------
11!*     *YOEOZOC* SPECTRAL DISTRIBUTION OF OZONE
12!     ------------------------------------------------------------------
13
14
15REAL_B :: COZQC(21)
16REAL_B :: COZQS(15)
17REAL_B :: COZHC(21)
18REAL_B :: COZHS(15)
19
20REAL_B :: RSINC(19)
21REAL_B :: ROZT(19,0:35)
22REAL_B :: RPROC(0:35)
23
24!*     *YOEOZOC* SPECTRAL DISTRIBUTION OF OZONE
25!                     (TRIANGULAR *T5* TRUNCATION FOR OZONE).
26
27!     R.G AND M.J        E.C.M.W.F.     29/11/82.
28
29!      NAME     TYPE      PURPOSE
30!      ----     ----      -------
31
32!     *COZ__*   REAL      *REFERS TO *OZONE.
33!     *C___C*   REAL      *REFERS TO *COS COMPONENT.
34!     *C___S*   REAL      *REFERS TO *SIN COMPONENT.
35!       ----------------------------------------------------------------
36END MODULE YOEOZOC
Note: See TracBrowser for help on using the repository browser.