Changeset 5272 for LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90

Timestamp:

Oct 24, 2024, 5:53:15 PM (42 hours ago)

Author:

abarral

Message:

Turn paramet.h into a module

File:

• LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90

@@ -82 +82 @@
   USE lmdz_cppkeys_wrapper, ONLY: nf90_format
   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
+          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
 IMPLICIT NONE
 !-------------------------------------------------------------------------------
@@ -87 +89 @@
   include "iniprint.h"
 
-  include "paramet.h"
+
   REAL, DIMENSION(iip1,jjp1), INTENT(INOUT) :: masque ! land mask
   REAL, DIMENSION(iip1,jjp1), INTENT(INOUT) :: phis   ! ground geopotential
@@ -332 +334 @@
 
   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
+          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
 IMPLICIT NONE
 
-  include "paramet.h"
+
   include "comgeom2.h"
 !-----------------------------------------------------------------------------