      MODULE corre_C
      USE vast_kind_param,  ONLY: DOUBLE
      USE parameter_def,    ONLY: NNNW
!...Created by Pacific-Sierra Research 77to90  4.3E  15:25:01   1/ 6/07
!...Modified by Charlotte Froese Fischer
!                     Gediminas Gaigalas  10/05/17
      LOGICAL, DIMENSION(NNNW) :: LCORRE
      END MODULE corre_C
