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

Last change on this file since 4768 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
RevLine 
[2017]1!
2! $Id: compar1d.h 2010-08-04 17:02:56Z lahellec $
3!
4      integer :: forcing_type
[2191]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
[2181]7      integer :: iflag_nudge
[2017]8      real :: nat_surf
9      real :: tsurf
[3888]10      real :: beta_surf
[2017]11      real :: rugos
[2672]12      real :: rugosh
[2244]13      real :: xqsol(1:2)
[2017]14      real :: qsurf
15      real :: psurf
16      real :: zsurf
17      real :: albedo
[2672]18      real :: snowmass
[2017]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
[2716]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
[2921]44      integer :: forc_omega, forc_u, forc_v, forc_w, forc_geo, forc_ustar
[3593]45      real    :: nudging_u, nudging_v, nudging_w, nudging_t, nudging_qv
[3594]46      real    :: p_nudging_u, p_nudging_v, p_nudging_w, p_nudging_t, p_nudging_qv
[2019]47      common/com_par1d/                                                 &
[3888]48     & nat_surf,tsurf,beta_surf,rugos,rugosh,                           &
[2244]49     & xqsol,qsurf,psurf,zsurf,albedo,time,time_ini,xlat,xlon,airefi,   &
[2017]50     & wtsurf,wqsurf,restart_runoff,xagesno,qsolinp,zpicinp,            &
[2191]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,                         &
[2672]53     & iflag_nudge,snowmass,                                            &
[2716]54     & restart,ok_old_disvert,                                          &
55     & tadv, tadvv, tadvh, qadv, qadvv, qadvh, thadv, thadvv, thadvh,   &
[3594]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
[2017]59
60!$OMP THREADPRIVATE(/com_par1d/)
61
62
63
64
65
66
67
68
69
70
[2716]71
Note: See TracBrowser for help on using the repository browser.