Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/neutral.f90

Timestamp:

Aug 2, 2024, 9:58:25 PM (7 weeks ago)

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/neutral.f90 (modified) (2 diffs)

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

@@ -26 +26 @@
   ! be 0. The flux is then set to 0.
   !----------------------------------------------------------------------
-  !
+
+USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
   USE dimphy
-  INCLUDE "dimensions.h"
-  !
+
+
   REAL :: u10_mps(klon), ustar_mps(klon), obklen_m(klon)
   REAL :: u10n_mps(klon)
@@ -36 +37 @@
   ! pour etre coherent avec vk de bl_for_dms.F
   parameter (pi = 3.141592653589793, von_karman = 0.35)
-  !
+
   REAL :: phi, phi_inv, phi_inv_sq, f1, f2, f3, dum1, psi
   INTEGER :: i