source: LMDZ5/trunk/libf/phylmd/compar1d.h @ 2192

Last change on this file since 2192 was 2191, checked in by fhourdin, 10 years ago

Ajout du cas 1D CINDY-DYNAMO, utilisant le nouveau format standard, amené à être étendu aux autres cas.
Addition of the CINDY-DYNAMO 1D case, using the new standard format for 1D cases, that will be extended to all 1D cases.
Catherine Rio

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