moda_comprs.F

    MODULE moda_comprs

#ifndef MXCSB_H
#define MXCSB_H
      USE modv_mxcsb
#endif

#ifndef MXCDV_H
#define MXCDV_H
      USE modv_mxcdv
#endif

#ifndef MXLCC_H
#define MXLCC_H
      USE modv_mxlcc
#endif

      INTEGER :: ncol
#ifdef DYNAMIC_ALLOCATION
      INTEGER, ALLOCATABLE :: matx(:,:) 
      CHARACTER*(:), ALLOCATABLE :: catx(:,:)
#else
      INTEGER :: matx(mxcdv,mxcsb) 
      CHARACTER*(MXLCC) :: catx(mxcdv,mxcsb)
#endif

    END MODULE