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