source: LMDZ6/trunk/libf/phylmd/compbl_mod_h.f90 @ 5394

Last change on this file since 5394 was 5296, checked in by abarral, 6 weeks ago

Turn compbl.h into a module
Move calcul_REGDYN.h to obsolete
Create phys_constants_mod.f90

  • 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: 559 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
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
12  !$OMP THREADPRIVATE(iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree)
13
14  !>jyg+al1
15
16END MODULE compbl_mod_h
Note: See TracBrowser for help on using the repository browser.