MODULE lmdz_paramet
  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm

  IMPLICIT NONE; PRIVATE
  PUBLIC iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm

  INTEGER  iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1
  INTEGER  kftd, ip1jm, ip1jmp1, ip1jmi1, ijp1llm
  INTEGER  ijmllm, mvar
  INTEGER jcfil, jcfllm

  PARAMETER(iip1 = iim + 1, iip2 = iim + 2, iip3 = iim + 3, jjp1 = jjm + 1 - 1 / jjm)
  PARAMETER(llmp1 = llm + 1, llmp2 = llm + 2, llmm1 = llm - 1)
  PARAMETER(kftd = iim / 2 - ndm)
  PARAMETER(ip1jm = iip1 * jjm, ip1jmp1 = iip1 * jjp1)
  PARAMETER(ip1jmi1 = ip1jm - iip1)
  PARAMETER(ijp1llm = ip1jmp1 * llm, ijmllm = ip1jm * llm)
  PARAMETER(mvar = ip1jmp1 * (2 * llm + 1) + ijmllm)
  PARAMETER(jcfil = jjm / 2 + 5, jcfllm = jcfil * llm)

END MODULE lmdz_paramet