Changeset 5134 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/phytracr_spl_mod.F90

Timestamp:

Jul 26, 2024, 5:56:37 PM (3 months ago)

Author:

abarral

Message:

Replace academic.h, alpale.h, comdissip.h, comdissipn.h, comdissnew.h by modules
Remove unused clesph0.h

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/phytracr_spl_mod.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/phytracr_spl_mod.F90

@@ -798 +798 @@
 
     USE lmdz_yomcst
-
-    IMPLICIT none
+    USE lmdz_alpale
+
+    IMPLICIT NONE
 
     !======================================================================
@@ -817 +818 @@
     INCLUDE "YOETHF.h"
     INCLUDE "paramet.h"
-    INCLUDE "alpale.h"
 
     !======================================================================
@@ -1161 +1161 @@
     ! JE for updating in  cltrac
     REAL, DIMENSION(klon, klev) :: delp     ! epaisseur de couche (Pa)
-    !! JE for include gas to particle conversion in output
+    !! JE for INCLUDE gas to particle conversion in output
     !      REAL his_g2pgas(klon)      ! gastoparticle in gas units (check!)
     !      REAL his_g2paer(klon)      ! gastoparticle in aerosol units (check!)