source: LMDZ5/branches/testing/libf/phylmd/compar1d.h @ 2056

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

Merged trunk changes r1997:2055 into testing branch

File size: 1002 bytes
Line 
1!
2! $Id: compar1d.h 2010-08-04 17:02:56Z lahellec $
3!
4      integer :: forcing_type
5      real :: nat_surf
6      real :: tsurf
7      real :: rugos
8      real :: qsol(1:2)
9      real :: qsurf
10      real :: psurf
11      real :: zsurf
12      real :: albedo
13
14      real :: time
15      real :: time_ini
16      real :: xlat
17      real :: xlon
18      real :: airefi
19      real :: wtsurf
20      real :: wqsurf
21      real :: restart_runoff
22      real :: xagesno
23      real :: qsolinp
24      real :: zpicinp
25
26      logical :: restart
27      logical :: ok_old_disvert
28
29      common/com_par1d/                                                 &
30     & nat_surf,tsurf,rugos,                                            &
31     & qsol,qsurf,psurf,zsurf,albedo,time,time_ini,xlat,xlon,airefi,    &
32     & wtsurf,wqsurf,restart_runoff,xagesno,qsolinp,zpicinp,            &
33     & forcing_type,                                                    &
34     & restart,ok_old_disvert
35
36!$OMP THREADPRIVATE(/com_par1d/)
37
38
39
40
41
42
43
44
45
46
Note: See TracBrowser for help on using the repository browser.