module TRANSPORT_CONTROLS
 
!-----------------------------------------------------
!      ... Transport control variables
!-----------------------------------------------------
 
      implicit none
 
      integer, parameter :: nprath = 1
 
      integer :: hadv_flg(  8) = (/10, 10, 10,  0, 10, 10, 10, 10/)
 
      integer :: vadv_flg(  8) = (/10, 10, 10,  0, 10, 10, 10, 10/)
 
      integer :: conv_flg(  8) = (/10, 10, 10,  0, 10, 10, 10, 10/)
 
      integer ::  pbl_flg(  8) = (/10, 10, 10,  0, 10, 10, 10, 10/)
 
      end module TRANSPORT_CONTROLS