source: LMDZ6/branches/Amaury_dev/libf/dyn3d/lmdz_paramet.f90 @ 5214

Last change on this file since 5214 was 5159, checked in by abarral, 3 months ago

Put dimensions.h and paramet.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: 849 bytes
RevLine 
[5159]1MODULE lmdz_paramet
2  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
[5099]3
[5159]4  IMPLICIT NONE; PRIVATE
5  PUBLIC iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
6          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
[5099]7
[5159]8  INTEGER  iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1
9  INTEGER  kftd, ip1jm, ip1jmp1, ip1jmi1, ijp1llm
10  INTEGER  ijmllm, mvar
11  INTEGER jcfil, jcfllm
[5099]12
[5159]13  PARAMETER(iip1 = iim + 1, iip2 = iim + 2, iip3 = iim + 3, jjp1 = jjm + 1 - 1 / jjm)
14  PARAMETER(llmp1 = llm + 1, llmp2 = llm + 2, llmm1 = llm - 1)
15  PARAMETER(kftd = iim / 2 - ndm)
16  PARAMETER(ip1jm = iip1 * jjm, ip1jmp1 = iip1 * jjp1)
17  PARAMETER(ip1jmi1 = ip1jm - iip1)
18  PARAMETER(ijp1llm = ip1jmp1 * llm, ijmllm = ip1jm * llm)
19  PARAMETER(mvar = ip1jmp1 * (2 * llm + 1) + ijmllm)
20  PARAMETER(jcfil = jjm / 2 + 5, jcfllm = jcfil * llm)
[5099]21
[5159]22END MODULE lmdz_paramet
Note: See TracBrowser for help on using the repository browser.