source: LMDZ6/trunk/libf/phylmd/dyn1d/compar1d.h @ 3888

Last change on this file since 3888 was 3888, checked in by jyg, 3 years ago

New provisional version of the splitting of the
diffusive boundary layer into inwake and offwake
PBLs. The splitting of the diffuse BL should NOT
be activated yet for general purpose simulations.

The splitting is activated by:
mod(iflag_pbl_split,10)=1 for the option with
fixed surface temperature and
mod(iflag_pbl_split,10)=2 for the option with
coupled surface temperature.

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