source: LMDZ6/branches/contrails/libf/dyn3d_common/paramet_mod_h.f90 @ 5425

Last change on this file since 5425 was 5358, checked in by abarral, 3 weeks ago

Merged from Amaury_posttrusting
Unify paramet_mod_h.f90
Removed unused variables from paramet_mod_h.f90
Removed unused - 1 / jjm [from revision 5,334]
fix symlink [from revision 5,335]

  • 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: 575 bytes
Line 
1MODULE paramet_mod_h
2  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
3
4  IMPLICIT NONE; PRIVATE
5  PUBLIC iip1, iip2, jjp1, llmp1, llmm1, ip1jm, ip1jmp1, &
6          ip1jmi1, ijp1llm, ijmllm
7
8  INTEGER  iip1, iip2, jjp1, llmp1, llmm1
9  INTEGER  ip1jm, ip1jmp1, ip1jmi1, ijp1llm
10  INTEGER  ijmllm
11
12  PARAMETER(iip1 = iim + 1, iip2 = iim + 2, jjp1 = jjm + 1)
13  PARAMETER(llmp1 = llm + 1, llmm1 = llm - 1)
14  PARAMETER(ip1jm = iip1 * jjm, ip1jmp1 = iip1 * jjp1)
15  PARAMETER(ip1jmi1 = ip1jm - iip1)
16  PARAMETER(ijp1llm = ip1jmp1 * llm, ijmllm = ip1jm * llm)
17END MODULE paramet_mod_h
Note: See TracBrowser for help on using the repository browser.