Ignore:
Timestamp:
Oct 30, 2024, 2:05:33 PM (31 hours ago)
Author:
abarral
Message:

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

File:
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/compbl_mod_h.f90

    r5295 r5296  
    1       !
    2       ! $Header$
    3       !
    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/)
     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 TracChangeset for help on using the changeset viewer.