Changeset 5271 for LMDZ6/trunk/libf/dynphy_lonlat/phylmd/init_ssrf_m.f90

Timestamp:

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

Author:

abarral

Message:

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

File:

• LMDZ6/trunk/libf/dynphy_lonlat/phylmd/init_ssrf_m.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/dynphy_lonlat/phylmd/init_ssrf_m.f90

@@ -12 +12 @@
   USE comconst_mod,       ONLY: im, pi
   USE surface_data,       ONLY: landice_opt
+  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
 
   CHARACTER(LEN=256), PARAMETER :: icefname="landiceref.nc", icevar="landice"
@@ -17 +18 @@
   PUBLIC :: start_init_subsurf
   include "iniprint.h"
-  include "dimensions.h"
   include "paramet.h"
   include "comgeom2.h"