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

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

@@ -9 +9 @@
   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 ===================================
@@ -42 +44 @@
 
   DO it = 1, nbtr
-    !
+
     DO i = 1, klon
       dtrconv(i, it) = 0.0
@@ -53 +55 @@
     ENDDO
 
-    !
+
     !nhl      CALL nflxtr(pdtphys, pmfu, pmfd, pen_u, pde_u, pen_d, pde_d,
     !nhl     .            pplay, paprs, tr_seri(1,1,it), d_tr(1,1,it) )
     CALL nflxtr(pdtphys, pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, &
             pplay, paprs, aux_var1, aux_var2)
-    !
+
     CALL tiedqneg(paprs, aux_var1, aux_var2)
     !nhl      CALL tiedqneg(paprs,tr_seri(1,1,it), d_tr(1,1,it))
@@ -67 +69 @@
       ENDDO
     ENDDO
-    !
+
     DO k = 1, klev
       DO i = 1, klon
@@ -77 +79 @@
       ENDDO
     ENDDO
-    !
+
     !nhl      CALL kg_to_cm3(pplay,t_seri,d_tr(1,1,it))
     CALL kg_to_cm3(pplay, t_seri, aux_var2)
@@ -109 +111 @@
       ENDDO
     ENDIF
-    !
+
   ENDDO