Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/incloud_scav.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/incloud_scav.f90 (modified) (6 diffs)

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

@@ -10 +10 @@
   USE lmdz_yomcst
 
+USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
+  USE lmdz_paramet
   IMPLICIT NONE
 
-  INCLUDE "dimensions.h"
   INCLUDE "chem.h"
-  INCLUDE "paramet.h"
+
 
   !============================= INPUT ===================================
@@ -44 +45 @@
 
   DO it = 1, nbtr
-    !
+
     DO i = 1, klon
       aux_var2(i) = his_dhlsc(i, it)
@@ -54 +55 @@
       ENDDO
     ENDDO
-    !
+
     IF (lminmax) THEN
       CALL minmaxqfi(aux_var1, qmin, qmax, 'avt inscav')
       !nhl      CALL minmaxqfi(tr_seri(1,1,it),qmin,qmax,'avt inscav')
     ENDIF
-    !
+
     !nhl      CALL inscav_spl(pdtphys,it,masse(it),henry(it),kk(it),0.5e-3,
     !nhl     .             prfl,psfl,zrho,zdz,t_seri,tr_seri(1,1,it),
@@ -65 +66 @@
     CALL inscav_spl(pdtphys, it, masse(it), henry(it), kk(it), 0.5e-3, &
             prfl, psfl, zrho, zdz, t_seri, aux_var1, aux_var2)
-    !
+
     IF (lminmax) THEN
       CALL minmaxqfi(aux_var1, qmin, qmax, 'depot humide lsc')
       !nhl      CALL minmaxqfi(tr_seri(1,1,it),qmin,qmax,'depot humide lsc')
     ENDIF
-    !
-    !
+
+
     !-scheme for convective in-cloud scavenging
-    !
+
     !nhl      CALL inscav_spl(pdtphys,it,masse(it),henry(it),kk(it),1.e-3,
     !nhl     .             pmflxr,pmflxs,zrho,zdz,t_seri,tr_seri(1,1,it),
@@ -79 +80 @@
     CALL inscav_spl(pdtphys, it, masse(it), henry(it), kk(it), 1.e-3, &
             pmflxr, pmflxs, zrho, zdz, t_seri, aux_var1, aux_var3)
-    !
+
     IF (lminmax) THEN
       CALL minmaxqfi(aux_var1, qmin, qmax, 'depot humide con')
       !nhl      CALL minmaxqfi(tr_seri(1,1,it),qmin,qmax,'depot humide con')
     ENDIF
-    !
+
     DO j = 1, klev
       DO i = 1, klon
@@ -95 +96 @@
     ENDDO
 
-    !
+
   ENDDO !--boucle sur it