source: LMDZ5/branches/IPSLCM6.0.11pre/libf/phylmd/dyn1d/compar1d.h @ 5160

Last change on this file since 5160 was 2716, checked in by fhourdin, 8 years ago

Inclusion du cas arm_cu2, avec les nouveaux formats de forçage 1D
(Marie-Pierre Lefebvre)

File size: 2.2 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 :: rugosh
12      real :: xqsol(1:2)
13      real :: qsurf
14      real :: psurf
15      real :: zsurf
16      real :: albedo
17      real :: snowmass
18
19      real :: time
20      real :: time_ini
21      real :: xlat
22      real :: xlon
23      real :: airefi
24      real :: wtsurf
25      real :: wqsurf
26      real :: restart_runoff
27      real :: xagesno
28      real :: qsolinp
29      real :: zpicinp
30
31      logical :: restart
32      logical :: ok_old_disvert
33
34! Pour les forcages communs: ces entiers valent 0 ou 1
35! tadv= advection tempe, tadvv= adv tempe verticale, tadvh= adv tempe horizontale
36! idem pour l advection en theta
37! qadv= advection q, qadvv= adv q verticale, qadvh= adv q horizontale
38! trad= 0 (rayonnement actif) ou 1 (prescrit par tend_rad) ou adv (prescir et contenu dans les tadv)
39! forcages en omega, w, vent geostrophique ou ustar
40! Parametres de nudging en u,v,t,q valent 0 ou 1 ou le temps de nudging
41
42      integer :: tadv, tadvv, tadvh, qadv, qadvv, qadvh, thadv, thadvv, thadvh, trad
43      integer :: forc_omega, forc_w, forc_geo, forc_ustar
44      real    :: nudging_u, nudging_v, nudging_w, nudging_t, nudging_q
45      common/com_par1d/                                                 &
46     & nat_surf,tsurf,rugos,rugosh,                                     &
47     & xqsol,qsurf,psurf,zsurf,albedo,time,time_ini,xlat,xlon,airefi,   &
48     & wtsurf,wqsurf,restart_runoff,xagesno,qsolinp,zpicinp,            &
49     & forcing_type,tend_u,tend_v,tend_w,tend_t,tend_q,tend_rayo,       &
50     & nudge_u,nudge_v,nudge_w,nudge_t,nudge_q,                         &
51     & iflag_nudge,snowmass,                                            &
52     & restart,ok_old_disvert,                                          &
53     & tadv, tadvv, tadvh, qadv, qadvv, qadvh, thadv, thadvv, thadvh,   &
54     & trad, forc_omega, forc_w, forc_geo, forc_ustar,                  &
55     & nudging_u, nudging_v, nudging_t, nudging_q
56
57!$OMP THREADPRIVATE(/com_par1d/)
58
59
60
61
62
63
64
65
66
67
68
Note: See TracBrowser for help on using the repository browser.