module comuforc_h
       IMPLICIT NONE
       REAL,ALLOCATABLE,DIMENSION(:,:) :: uforc
       REAL,ALLOCATABLE,DIMENSION(:) :: attenua
       REAL :: facwind
       REAL :: phalf
       end module comuforc_h