source: LMDZ5/branches/AI-cosp/libf/phylmd/dyn1d/compar1d.h @ 2529

Last change on this file since 2529 was 2328, checked in by Laurent Fairhead, 9 years ago

Special option for Dice 1D case with a new value of iflag_radia=2.
It allows to force LWUP computation via ground temperature
MPL

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 :: xqsol(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     & xqsol,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.