Changeset 5273 for LMDZ6/trunk/libf/phylmd/inlandsis

Timestamp:

Oct 25, 2024, 1:41:15 PM (5 months ago)

Author:

abarral

Message:

Turn dimsoil.h into a module

Location:

LMDZ6/trunk/libf/phylmd/inlandsis

Files:

• VAR_SV.f90 (modified) (1 diff)
• surf_inlandsis_mod.f90 (modified) (7 diffs)

LMDZ6/trunk/libf/phylmd/inlandsis/VAR_SV.f90 ¶

@@ -1 +1 @@
 MODULE VAR_SV
-
-
-IMPLICIT NONE
-
-INCLUDE "dimsoil.h"
+      USE dimsoil_mod_h, ONLY: nsoilmx, nsnowmx
+IMPLICIT NONE; PRIVATE
+      PUBLIC nsol, nsot, nsno, nb_wri, klonv, knonv
 
 ! +

LMDZ6/trunk/libf/phylmd/inlandsis/surf_inlandsis_mod.f90 ¶

@@ -1 +1 @@
 MODULE surf_inlandsis_mod
 
-    IMPLICIT NONE
+    IMPLICIT NONE; PRIVATE
+    PUBLIC surf_inlandsis, get_soil_levels, SISVAT_ini, sisvatetat0, sisvatredem
 
 CONTAINS
@@ -51 +52 @@
         USE VARphy
         USE surface_data, only : iflag_tsurf_inlandsis, SnoMod, BloMod, ok_outfor
+        USE dimsoil_mod_h, ONLY: nsoilmx, nsnowmx, nsismx
 
         IMPLICIT NONE
-
-        ! +--INTERFACE Variables
-        ! +  ===================
-        !    include  "dimsoil.h"
 
         ! +--Global Variables
@@ -755 +753 @@
         USE mod_phys_lmdz_para
         USE VAR_SV
-
-
-        !    INCLUDE "dimsoil.h"
+        USE dimsoil_mod_h, ONLY: nsoilmx, nsnowmx, nsismx
 
         REAL, DIMENSION(nsoilmx), INTENT(OUT) :: dz2, dz1
@@ -1032 +1028 @@
 
     SUBROUTINE sisvatetat0 (fichnom, ikl2i)
-
         USE dimphy
         USE mod_grid_phy_lmdz
         USE mod_phys_lmdz_para
-
         USE iostart
         USE VAR_SV
@@ -1043 +1037 @@
         USE VARtSV
         USE indice_sol_mod
-
+        USE dimsoil_mod_h, ONLY: nsoilmx, nsnowmx, nsismx
         IMPLICIT none
         !======================================================================
@@ -1051 +1045 @@
         !    include "indicesol.h"
 
-        !    include "dimsoil.h"
+        !
         include "clesphys.h"
         include "compbl.h"
@@ -1282 +1276 @@
         USE indice_sol_mod
         USE dimphy
+        USE dimsoil_mod_h, ONLY: nsoilmx, nsnowmx, nsismx
 
         IMPLICIT none