Changeset 5273 for LMDZ6/trunk/libf/phylmdiso

Timestamp:

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

Author:

abarral

Message:

Turn dimsoil.h into a module

Location:

LMDZ6/trunk/libf/phylmdiso

Files:

• dimsoil_mod_h.f90 (moved) (moved from LMDZ6/trunk/libf/phylmdiso/dimsoil.h) (1 diff)
• isotopes_routines_mod.F90 (modified) (3 diffs)
• phyaqua_mod.F90 (modified) (2 diffs)
• phyetat0_mod.F90 (modified) (2 diffs)
• phyredem.F90 (modified) (2 diffs)
• physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmdiso/dimsoil_mod_h.f90

@@ -1 @@
-link ../phylmd/dimsoil.h
+link ../phylmd/dimsoil_mod_h.f90

LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90

@@ -15877 +15877 @@
        implicit none   
 
-      ! equivalent de phyetat0 pour les isotopes  
-
-INCLUDE "dimsoil.h"
+      ! equivalent de phyetat0 pour les isotopes
 INCLUDE "clesphys.h"
 INCLUDE "compbl.h"
@@ -16053 +16051 @@
 #endif
         implicit none
-
-INCLUDE "dimsoil.h"
 INCLUDE "clesphys.h"
 !  INCLUDE "thermcell.h"
@@ -16430 +16426 @@
 #endif
    IMPLICIT NONE
-
-INCLUDE "dimsoil.h"
 INCLUDE "clesphys.h"
 INCLUDE "compbl.h"

LMDZ6/trunk/libf/phylmdiso/phyaqua_mod.F90

@@ -45 +45 @@
   USE infotrac_phy, ONLY: niso
 #endif
+    USE dimsoil_mod_h, ONLY: nsoilmx
 
     IMPLICIT NONE
@@ -50 +51 @@
     include "YOMCST.h"
     include "clesphys.h"
-    include "dimsoil.h"
 
     INTEGER, INTENT (IN) :: nlon, year_len, iflag_phys

LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90

@@ -59 +59 @@
 #endif
 #endif
+  USE dimsoil_mod_h, ONLY: nsoilmx
 
   IMPLICIT none
@@ -65 +66 @@
   ! Objet: Lecture de l'etat initial pour la physique
   !======================================================================
-  include "dimsoil.h"
   include "clesphys.h"
   include "alpale.h"

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"

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -485 +485 @@
 
     include "regdim.h"
-    include "dimsoil.h"
     include "clesphys.h"
     include "alpale.h"