source: LMDZ5/trunk/libf/phymar/yoerip.F90 @ 2253

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 605 bytes
Line 
1MODULE YOERIP
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     ------------------------------------------------------------------
11
12!*    Real time related variables for ECMWF radiation: updated UPDTIER
13
14!     RIP0M  : I0 WEIGHTED BY THE DISTANCE EARTH-SUN
15
16!     RCODECM: COSINE OF THE DECLINATION
17!     RSIDECM:   SINE OF THE DECLINATION
18
19!     RCOVSRM: COSINE OF TRUE SOLAR TIME
20!     RSIVSRM:   SINE OF TRUE SOLAR TIME
21
22REAL_B :: RIP0M
23REAL_B :: RCODECM
24REAL_B :: RSIDECM
25REAL_B :: RCOVSRM
26REAL_B :: RSIVSRM
27!     ------------------------------------------------------------------
28END MODULE YOERIP
Note: See TracBrowser for help on using the repository browser.