source: LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/compbl_mod_h.f90 @ 5865

Last change on this file since 5865 was 5627, checked in by amaison, 10 months ago

Representation of heterogeneous continental subsurfaces with parameter or flux aggregation in the simplified surface model (bucket) for 1D case studies.

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 617 bytes
Line 
1! Replaces compbl.h
2
3MODULE compbl_mod_h
4  IMPLICIT NONE; PRIVATE
5  PUBLIC iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree, iflag_hetero_surf
6
7  !!      integer iflag_pbl,iflag_pbl_split
8  !!      common/compbl/iflag_pbl,iflag_pbl_split
9  !!FC      integer iflag_pbl, iflag_pbl_split, iflag_order2_sollw
10  !FC      common/compbl/iflag_pbl, iflag_pbl_split, iflag_order2_sollw
11  INTEGER iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree, iflag_hetero_surf
12  !$OMP THREADPRIVATE(iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree, iflag_hetero_surf)
13
14  !>jyg+al1
15
16END MODULE compbl_mod_h
Note: See TracBrowser for help on using the repository browser.