Ignore:
Timestamp:
May 5, 2021, 12:50:37 PM (3 years ago)
Author:
jyg
Message:

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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

    r3817 r3888  
    340340      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zxfluxlat_x, zxfluxlat_w
    341341!$OMP THREADPRIVATE(zxfluxlat_x, zxfluxlat_w)
     342      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: delta_qsurf
     343!$OMP THREADPRIVATE(delta_qsurf)
    342344!jyg<
    343345!!! Entrees supplementaires couche-limite
     
    733735      ALLOCATE(sens_x(klon), sens_w(klon))
    734736      ALLOCATE(zxfluxlat_x(klon), zxfluxlat_w(klon))
     737      ALLOCATE(delta_qsurf(klon))
    735738!jyg<
    736739!!      ALLOCATE(t_x(klon,klev), t_w(klon,klev))
     
    10321035      DEALLOCATE(sens_x, sens_w)
    10331036      DEALLOCATE(zxfluxlat_x, zxfluxlat_w)
     1037      DEALLOCATE(delta_qsurf)
    10341038!jyg<
    10351039!!      DEALLOCATE(t_x, t_w)
Note: See TracChangeset for help on using the changeset viewer.