gradsdef_mod_h.f90 Source File

! Replaces gradsdef.h

MODULE gradsdef_mod_h
  IMPLICIT NONE; PRIVATE
  PUBLIC xd, yd, zd, dtime, &
          imd, jmd, lmd, iid, jid, ifd, jfd, &
          unit, irec, nvar, ivar, itime, nld, firsttime, &
          var, fichier, title, tvar, nfmx, imx, jmx, lmx, nvarmx

  INTEGER nfmx, imx, jmx, lmx, nvarmx
  parameter(nfmx = 10, imx = 200, jmx = 150, lmx = 200, nvarmx = 1000)

  REAL xd(imx, nfmx), yd(jmx, nfmx), zd(lmx, nfmx), dtime(nfmx)

  INTEGER imd(imx), jmd(jmx), lmd(lmx)
  INTEGER iid(imx), jid(jmx)
  INTEGER ifd(imx), jfd(jmx)
  INTEGER unit(nfmx), irec(nfmx), itime(nfmx), nld(nvarmx, nfmx)

  INTEGER nvar(nfmx), ivar(nfmx)
  LOGICAL firsttime(nfmx)

  CHARACTER*10 var(nvarmx, nfmx), fichier(nfmx)
  CHARACTER*40 title(nfmx), tvar(nvarmx, nfmx)

END MODULE gradsdef_mod_h