moda_msgcwd.F

    MODULE moda_msgcwd

#ifndef NFILES_H
#define NFILES_H
      USE modv_nfiles
#endif

#ifdef DYNAMIC_ALLOCATION
      INTEGER, ALLOCATABLE :: nmsg(:)
      INTEGER, ALLOCATABLE :: nsub(:)
      INTEGER, ALLOCATABLE :: msub(:)
      INTEGER, ALLOCATABLE :: inode(:)
      INTEGER, ALLOCATABLE :: idate(:)
#else
      INTEGER :: nmsg(nfiles)
      INTEGER :: nsub(nfiles)
      INTEGER :: msub(nfiles)
      INTEGER :: inode(nfiles)
      INTEGER :: idate(nfiles)
#endif

    END MODULE