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

Timestamp:

Aug 2, 2024, 9:58:25 PM (3 months ago)

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/inscav_spl.f90 (modified) (6 diffs)

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

@@ -5 +5 @@
   USE lmdz_yomcst
 
+USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
   IMPLICIT NONE
   !=====================================================================
@@ -12 +13 @@
   !=====================================================================
   !
-  INCLUDE "dimensions.h"
+
   INCLUDE "chem.h"
-  !
+
   INTEGER :: it
   REAL :: pdtime              ! pas de temps (s)
@@ -32 +33 @@
   REAL :: x(klon, klev)        ! q de traceur
   REAL :: his_dh(klon)        ! tendance de traceur integre verticalement
-  !
+
   !--variables locales
   INTEGER :: i, k
-  !
+
   REAL :: dx      ! tendance de traceur
   REAL :: f_a     !--rapport de la phase aqueuse a la phase gazeuse
@@ -54 +55 @@
   !--101.325  m3/l x Pa/atm
   !--R        Pa.m3/mol/K
-  !
+
   !------------------------------------------
-  !
+
   !nhl      IF (it.EQ.2.OR.it.EQ.3) THEN !--aerosol  ! AS IT WAS FIRST
   IF (it==2.OR.it==3.OR.it==4) THEN !--aerosol
@@ -63 +64 @@
     frac = frac_gas
   ENDIF
-  !
+
   IF (it==1) THEN
     DO k = 1, klev
@@ -97 +98 @@
     STOP
   ENDIF
-  !
+
   ! NHL
   ! Auxiliary variables defined to deal with the fact that precipitation