Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/blcloud_scav.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/blcloud_scav.f90 (modified) (9 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_paramet
   IMPLICIT NONE
 
-  INCLUDE "dimensions.h"
+
   INCLUDE "chem.h"
-  INCLUDE "paramet.h"
 
   !============================= INPUT ===================================
@@ -40 +41 @@
 
   DO it = 1, nbtr
-    !
+
     DO j = 1, klev
       DO i = 1, klon
@@ -47 +48 @@
       ENDDO
     ENDDO
-    !
+
     !nhl      CALL bcscav_spl(pdtphys,prfl,psfl,alpha_r(it),alpha_s(it),
     !nhl     .                tr_seri(1,1,it),d_tr(1,1,it))
     CALL bcscav_spl(pdtphys, prfl, psfl, alpha_r(it), alpha_s(it), &
             aux_var1, aux_var2)
-    !
+
     DO j = 1, klev
       DO i = 1, klon
@@ -67 +68 @@
       ENDDO
     ENDDO
-    !
+
     DO i = 1, klon
       DO j = 1, klev
@@ -74 +75 @@
       ENDDO
     ENDDO
-    !
+
     IF (lminmax) THEN
       CALL minmaxqfi(aux_var1, qmin, qmax, 'depot humide bc lsc')
       !nhl      CALL minmaxqfi(tr_seri(1,1,it),qmin,qmax,'depot humide bc lsc')
     ENDIF
-    !
+
     !-scheme for convective scavenging
-    !
+
     !nhl      CALL bcscav_spl(pdtphys,pmflxr,pmflxs,alpha_r(it),alpha_s(it),
     !nhl     .                tr_seri(1,1,it),d_tr(1,1,it))
@@ -89 +90 @@
 
 
-    !
+
     DO i = 1, klon
       DO j = 1, klev
@@ -96 +97 @@
       ENDDO
     ENDDO
-    !
+
     DO k = 1, klev
       DO i = 1, klon
@@ -104 +105 @@
       ENDDO
     ENDDO
-    !
+
     IF (lminmax) THEN
       DO j = 1, klev
@@ -119 +120 @@
       ENDDO
     ENDIF
-    !
-    !
+
+
   ENDDO !--boucle sur it
-  !
+
 END SUBROUTINE blcloud_scav