source: LMDZ5/branches/IPSLCM6.0.8/libf/phymar/yoerip.F90

Last change on this file was 2160, checked in by Laurent Fairhead, 10 years ago

Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand

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.