source: LMDZ6/trunk/libf/phylmd/regdim_mod_h.f90 @ 5353

Last change on this file since 5353 was 5315, checked in by abarral, 5 weeks ago

Turn regdim.h into modules

  • 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: 314 bytes
Line 
1MODULE regdim_mod_h
2  IMPLICIT NONE; PRIVATE
3  PUBLIC i1_deb, i1_fin, i2_deb, i2_fin, j_deb, j_fin
4
5  INTEGER i1_deb, i1_fin
6  INTEGER i2_deb, i2_fin
7
8  PARAMETER (i1_deb = 16, i1_fin = 30)
9  PARAMETER (i2_deb = 31, i2_fin = 33)
10
11  INTEGER j_deb, j_fin
12
13  PARAMETER (j_deb = 18, j_fin = 39)
14END MODULE regdim_mod_h
Note: See TracBrowser for help on using the repository browser.