Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/blcloud_scav.f90

Timestamp:

Aug 3, 2024, 2:56:58 PM (7 weeks ago)

Author:

abarral

Message:

Put .h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/blcloud_scav.f90 (modified) (3 diffs)

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

@@ -10 +10 @@
   USE lmdz_yomcst
 
-USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
+  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
   USE lmdz_paramet
+  USE lmdz_chem, ONLY: idms, iso2, iso4, ih2s, idmso, imsa, ih2o2, &
+          n_avogadro, masse_s, masse_so4, rho_water, rho_ice
+
   IMPLICIT NONE
-
-
-  INCLUDE "chem.h"
-
   !============================= INPUT ===================================
   REAL :: qmin, qmax
@@ -89 +88 @@
             aux_var1, aux_var2)
 
-
-
     DO i = 1, klon
       DO j = 1, klev
@@ -121 +118 @@
     ENDIF
 
-
   ENDDO !--boucle sur it