source: LMDZ6/trunk/libf/phylmd/raddimlw_mod_h.f90 @ 5344

Last change on this file since 5344 was 5314, checked in by abarral, 4 weeks ago

Turn raddimlw.h radepsi.h radopt.h into modules
Move unused raddim.*.h to obsolete

  • 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: 290 bytes
Line 
1MODULE raddimlw_mod_h
2  IMPLICIT NONE; PRIVATE
3  PUBLIC nua, ntra, ninter, ng1, ng1p1
4
5  INTEGER NUA
6  PARAMETER (NUA = 24)
7  INTEGER NTRA
8  PARAMETER (NTRA = 15)
9  INTEGER Ninter
10  PARAMETER (Ninter = 6)
11  INTEGER NG1, NG1P1
12  PARAMETER (NG1 = 2, NG1P1 = NG1 + 1)
13END MODULE raddimlw_mod_h
Note: See TracBrowser for help on using the repository browser.