source: LMDZ6/trunk/libf/dyn3d_common/gradsdef_mod_h.f90 @ 5297

Last change on this file since 5297 was 5297, checked in by abarral, 41 hours ago

Turn gradsdef.h coefils.h into a module
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 792 bytes
RevLine 
[5297]1! Replaces gradsdef.h
[524]2
[5297]3MODULE gradsdef_mod_h
4  IMPLICIT NONE; PRIVATE
5  PUBLIC xd, yd, zd, dtime, &
6          imd, jmd, lmd, iid, jid, ifd, jfd, &
7          unit, irec, nvar, ivar, itime, nld, firsttime, &
8          var, fichier, title, tvar, nfmx, imx, jmx, lmx, nvarmx
[524]9
[5297]10  INTEGER nfmx, imx, jmx, lmx, nvarmx
11  parameter(nfmx = 10, imx = 200, jmx = 150, lmx = 200, nvarmx = 1000)
[524]12
[5297]13  REAL xd(imx, nfmx), yd(jmx, nfmx), zd(lmx, nfmx), dtime(nfmx)
[524]14
[5297]15  INTEGER imd(imx), jmd(jmx), lmd(lmx)
16  INTEGER iid(imx), jid(jmx)
17  INTEGER ifd(imx), jfd(jmx)
18  INTEGER unit(nfmx), irec(nfmx), itime(nfmx), nld(nvarmx, nfmx)
[524]19
[5297]20  INTEGER nvar(nfmx), ivar(nfmx)
21  LOGICAL firsttime(nfmx)
22
23  CHARACTER*10 var(nvarmx, nfmx), fichier(nfmx)
24  CHARACTER*40 title(nfmx), tvar(nvarmx, nfmx)
25
26END MODULE gradsdef_mod_h
Note: See TracBrowser for help on using the repository browser.