Changeset 5296 for LMDZ6/trunk/libf/phylmd/compbl_mod_h.f90
- Timestamp:
- Oct 30, 2024, 2:05:33 PM (31 hours ago)
- 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 3 MODULE 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 16 END MODULE compbl_mod_h
Note: See TracChangeset
for help on using the changeset viewer.