source: LMDZ5/trunk/libf/phymar/yomrip.F90 @ 5452

Last change on this file since 5452 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
RevLine 
[2089]1MODULE YOMRIP
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     ------------------------------------------------------------------
11
12!*    Real time related variables (updated in UPDTIM)
13
14!     NINDAT : run initial date in the form AAAAMMDD
15!     NSSSSS : initial time in seconds (e.g. for 12h, 43200)
16!     RTIMST : ABSOLUTE TIME OF THE MODEL AT START
17
18!     NSTADD : NUMBER OF DAYS SINCE START OF THE MODEL
19!     NSTASS : NUMBER OF SECONDS since start of model modulo(86400)
20!     RSTATI : NUMBER OF SECONDS SINCE START OF THE MODEL
21!     RTIMTR : ABSOLUTE TIME OF THE MODEL
22
23!     RHGMT  : GMT TIME OF THE MODEL  (BETWEEN 0 AND 86400)
24!     REQTIM : EQUATION OF TIME
25!     RSOVR  : TRUE SOLAR TIME (GMT+EQUATION OF TIME)
26
27!     RDEASO : DISTANCE EARTH-SUN
28!     RDECLI : DECLINATION
29!     RWSOVR : IN RADIANS, TRUE SOLAR TIME (GMT+EQUATION OF TIME)
30!     RIP0   : I0 WEIGHTED BY THE DISTANCE EARTH-SUN
31
32!     RCODEC : COSINE OF THE DECLINATION
33!     RSIDEC :   SINE OF THE DECLINATION
34
35!     RCOVSR : COSINE OF TRUE SOLAR TIME
36!     RSIVSR :   SINE OF TRUE SOLAR TIME
37
38!     RDTSA  : TDT  /RA
39!     RDTSA2 : RDTSA**2
40!     RDTS62 : RDTSA**2/6
41!     RDTS22 : RDTSA**2/2
42
43!     RTDT   : TDT
44
45
46INTEGER_M :: NINDAT
47INTEGER_M :: NSSSSS
48INTEGER_M :: NSTADD
49INTEGER_M :: NSTASS
50REAL_B :: RTIMST
51REAL_B :: RSTATI
52REAL_B :: RTIMTR
53REAL_B :: RHGMT
54REAL_B :: REQTIM
55REAL_B :: RSOVR
56REAL_B :: RDEASO
57REAL_B :: RDECLI
58REAL_B :: RWSOVR
59REAL_B :: RIP0
60REAL_B :: RCODEC
61REAL_B :: RSIDEC
62REAL_B :: RCOVSR
63REAL_B :: RSIVSR
64REAL_B :: RDTSA
65REAL_B :: RDTSA2
66REAL_B :: RDTS62
67REAL_B :: RDTS22
68REAL_B :: RTDT
69!     ------------------------------------------------------------------
70END MODULE YOMRIP
Note: See TracBrowser for help on using the repository browser.