Changeset 5334 for LMDZ6

Timestamp:

Nov 18, 2024, 4:34:50 PM (5 weeks ago)

Author:

abarral

Message:

Unify paramet_mod_h.f90
Removed unused variables from paramet_mod_h.f90
Removed unused - 1 / jjm

Location:

LMDZ6/branches/Amaury_posttrusting/libf

Files:

• dyn3d_common/paramet_mod_h.f90 (moved) (moved from LMDZ6/branches/Amaury_posttrusting/libf/dyn3d/paramet_mod_h.f90) (1 diff)
• dyn3dmem/paramet_mod_h.f90 (deleted)

LMDZ6/branches/Amaury_posttrusting/libf/dyn3d_common/paramet_mod_h.f90

@@ -3 +3 @@
 
   IMPLICIT NONE; PRIVATE
-  PUBLIC iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
-          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
+  PUBLIC iip1, iip2, jjp1, llmp1, llmm1, ip1jm, ip1jmp1, &
+          ip1jmi1, ijp1llm, ijmllm
 
-  INTEGER  iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1
-  INTEGER  kftd, ip1jm, ip1jmp1, ip1jmi1, ijp1llm
-  INTEGER  ijmllm, mvar
-  INTEGER jcfil, jcfllm
+  INTEGER  iip1, iip2, jjp1, llmp1, llmm1
+  INTEGER  ip1jm, ip1jmp1, ip1jmi1, ijp1llm
+  INTEGER  ijmllm
 
-  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(iip1 = iim + 1, iip2 = iim + 2, jjp1 = jjm + 1)
+  PARAMETER(llmp1 = llm + 1, llmm1 = llm - 1)
   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 paramet_mod_h