! Replaces compbl.h MODULE compbl_mod_h IMPLICIT NONE; PRIVATE PUBLIC iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree !! integer iflag_pbl,iflag_pbl_split !! common/compbl/iflag_pbl,iflag_pbl_split !!FC integer iflag_pbl, iflag_pbl_split, iflag_order2_sollw !FC common/compbl/iflag_pbl, iflag_pbl_split, iflag_order2_sollw INTEGER iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree !$OMP THREADPRIVATE(iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree) !>jyg+al1 END MODULE compbl_mod_h