1 MODULE cont 2 3 4 Use param 5 Use param1 6 7 8 ! 9 ! Indicates whether the continuity equation needs to be 10 ! solved 11 LOGICAL, DIMENSION(:), ALLOCATABLE :: DO_CONT 12 ! 13 14 15 END MODULE cont 16