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

Timestamp:

Oct 24, 2024, 4:25:39 PM (42 hours ago)

Author:

abarral

Message:

Move dimensions.h into a module
Nb: doesn't compile yet

File:

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

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

@@ -81 +81 @@
   USE phys_cal_mod, ONLY: calend
   USE lmdz_cppkeys_wrapper, ONLY: nf90_format
-  IMPLICIT NONE
+  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+IMPLICIT NONE
 !-------------------------------------------------------------------------------
 ! Arguments:
   include "iniprint.h"
-  include "dimensions.h"
+
   include "paramet.h"
   REAL, DIMENSION(iip1,jjp1), INTENT(INOUT) :: masque ! land mask
@@ -330 +331 @@
   USE indice_sol_mod
 
-  IMPLICIT NONE
-  include "dimensions.h"
+  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+IMPLICIT NONE
+
   include "paramet.h"
   include "comgeom2.h"