Ignore:
Timestamp:
Jul 29, 2024, 9:59:33 AM (8 weeks ago)
Author:
abarral
Message:

Put nuage.h, flux_arp.h, compbl.h into modules
Move unused phylmd/ini_hist* to obsolete

File:
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_compbl.f90

    r5138 r5139  
     1! Replaces compbl.h
    12
    2       ! $Header$
     3MODULE lmdz_compbl
     4  IMPLICIT NONE; PRIVATE
     5  PUBLIC iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
    36
    4 !jyg+al1<
    5 !!      integer iflag_pbl,iflag_pbl_split
    6 !!      common/compbl/iflag_pbl,iflag_pbl_split
    7 !!FC      integer iflag_pbl, iflag_pbl_split, iflag_order2_sollw
    8 !FC      common/compbl/iflag_pbl, iflag_pbl_split, iflag_order2_sollw
    9       INTEGER iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
    10       common/compbl/iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
    11 !>jyg+al1
    12 !$OMP THREADPRIVATE(/compbl/)
     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 lmdz_compbl
Note: See TracChangeset for help on using the changeset viewer.