source: LMDZ5/branches/LF-private/libf/phy1d/compar1d.h @ 3991

Last change on this file since 3991 was 1769, checked in by Laurent Fairhead, 12 years ago

Suite des modifications pour le 1D de la révision r1763


Follow-up to the 1D modifications of r1763

File size: 854 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/forcing_type,nat_surf,tsurf,rugos,               &
30     & qsol,qsurf,psurf,zsurf,albedo,time,time_ini,xlat,xlon,airefi,    &
31     & wtsurf,wqsurf,restart_runoff,xagesno,qsolinp,zpicinp,            &
32     & restart,ok_old_disvert
33
34!$OMP THREADPRIVATE(/com_par1d/)
35
36
37
38
39
40
41
42
43
44
Note: See TracBrowser for help on using the repository browser.