source: LMDZ6/trunk/libf/dyn3d/paramet_mod_h.f90 @ 5299

Last change on this file since 5299 was 5272, checked in by abarral, 7 weeks ago

Turn paramet.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: 849 bytes
Line 
1MODULE paramet_mod_h
2  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
3
4  IMPLICIT NONE; PRIVATE
5  PUBLIC iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
6          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
7
8  INTEGER  iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1
9  INTEGER  kftd, ip1jm, ip1jmp1, ip1jmi1, ijp1llm
10  INTEGER  ijmllm, mvar
11  INTEGER jcfil, jcfllm
12
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)
21END MODULE paramet_mod_h
Note: See TracBrowser for help on using the repository browser.