Changeset 5142 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust

Timestamp:

Jul 29, 2024, 3:07:34 PM (3 months ago)

Author:

abarral

Message:

Put cvparam.h, fcg_gcssold.h, planete.h, tsoilnudge.h, YOECUMF.h into modules

Location:

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust

Files:

• bcscav_spl.f90 (modified) (2 diffs)
• gastoparticle.f90 (modified) (2 diffs)
• inscav_spl.f90 (modified) (2 diffs)
• lsc_scav_orig.F90 (modified) (2 diffs)
• lsc_scav_spl.F90 (modified) (2 diffs)
• seasalt.f90 (modified) (2 diffs)
• sediment_mod.f90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/bcscav_spl.f90

@@ -2 +2 @@
 
   USE dimphy
+  USE lmdz_YOECUMF
+
   IMPLICIT NONE
   !=====================================================================
@@ -12 +14 @@
   INCLUDE "chem.h"
   INCLUDE "YOMCST.h"
-  INCLUDE "YOECUMF.h"
   !
   REAL :: pdtime, alpha_r, alpha_s, R_r, R_s

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/gastoparticle.f90

@@ -6 +6 @@
   USE dimphy
   USE infotrac
+  USE lmdz_YOECUMF
   ! USE indice_sol_mod
 
@@ -14 +15 @@
   INCLUDE "chem_spla.h"
   INCLUDE "YOMCST.h"
-  INCLUDE "YOECUMF.h"
   !
   REAL :: pdtphys

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/inscav_spl.f90

@@ -3 +3 @@
         his_dh)
   USE dimphy
+  USE lmdz_YOECUMF
+
   IMPLICIT NONE
   !=====================================================================
@@ -13 +15 @@
   INCLUDE "chem.h"
   INCLUDE "YOMCST.h"
-  INCLUDE "YOECUMF.h"
   !
   INTEGER :: it

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/lsc_scav_orig.F90

@@ -12 +12 @@
   USE iophy
   USE lmdz_yomcst
+  USE lmdz_YOECUMF
 
   IMPLICIT NONE 
@@ -23 +24 @@
   INCLUDE "dimensions.h"
   INCLUDE "chem.h"
-  INCLUDE "YOECUMF.h"
 
   REAL,INTENT(IN)                        :: pdtime ! time step (s)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/lsc_scav_spl.F90

@@ -14 +14 @@
   USE iophy
   USE lmdz_yomcst
+  USE lmdz_YOECUMF
+
   IMPLICIT NONE 
 !=====================================================================
@@ -25 +27 @@
   INCLUDE "dimensions.h"
   INCLUDE "chem.h"
-  INCLUDE "YOECUMF.h"
 
   REAL,INTENT(IN)                        :: pdtime ! time step (s)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/seasalt.f90

@@ -5 +5 @@
 
   USE dimphy
+  USE lmdz_YOECUMF
+
   IMPLICIT NONE
   !
@@ -11 +13 @@
   INCLUDE "chem_spla.h"
   INCLUDE "YOMCST.h"
-  INCLUDE "YOECUMF.h"
   !
   INTEGER :: i, bin                 !local variables

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/sediment_mod.f90

@@ -10 +10 @@
   USE dimphy
   USE infotrac
+  USE lmdz_YOECUMF
+
   IMPLICIT NONE
   !
@@ -15 +17 @@
   INCLUDE "chem.h"
   INCLUDE "YOMCST.h"
-  INCLUDE "YOECUMF.h"
   !
   REAL :: RHcl(klon, klev)     ! humidite relative ciel clair