Changeset 5273 for LMDZ6/trunk/libf/phylmdiso/phyredem.F90

Timestamp:

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

Author:

abarral

Message:

Turn dimsoil.h into a module

File:

• LMDZ6/trunk/libf/phylmdiso/phyredem.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmdiso/phyredem.F90

@@ -51 +51 @@
   USE ocean_slab_mod, ONLY : nslay, tslab, seaice, tice, fsic
   USE time_phylmdz_mod, ONLY: annee_ref, day_end, itau_phy, pdtphys
-  use config_ocean_skin_m, only: activate_ocean_skin  
+  use config_ocean_skin_m, only: activate_ocean_skin
+  USE dimsoil_mod_h, ONLY: nsoilmx
 
   IMPLICIT none
-
-  include "dimsoil.h"
   include "clesphys.h"
   include "alpale.h"
@@ -513 +512 @@
     use isotrac_mod, only: index_zone,index_iso,strtrac
 #endif
-      !USE phyredem, ONLY: put_field_srf1
-
+      USE dimsoil_mod_h, ONLY: nsoilmx
         implicit none
 
         ! equivalent isotopique de phyredem
-
-INCLUDE "dimsoil.h"
 INCLUDE "clesphys.h"
 INCLUDE "alpale.h"