Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer

Timestamp:

Aug 2, 2024, 2:12:03 PM (6 months ago)

Author:

abarral

Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

Location:

LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer

Files:

• strataer_emiss_mod.F90 (modified) (2 diffs)
• sulfate_aer_mod.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/strataer_emiss_mod.F90

@@ -1 +1 @@
 MODULE strataer_emiss_mod
   ! This module contains information about strato microphysic model emission parameters
+  IMPLICIT NONE; PRIVATE
+  PUBLIC strataer_emiss_init
 
 CONTAINS
@@ -11 +13 @@
     USE lmdz_phys_para, ONLY: is_master
     USE lmdz_abort_physic, ONLY: abort_physic
+    USE dimphy, ONLY: klon
+
+    IMPLICIT NONE
 
     ! Local variables

LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/sulfate_aer_mod.F90

@@ -43 +43 @@
       REAL, parameter :: rath2oair = mAIRmol/mH2Omol
       REAL, parameter :: third = 1./3.
-      real            :: pph2ogas(klon,klev) 
-      real            :: temp, wpp, xa, surtens, mvh2o, radwet, fkelvin, pph2okel, r2so4ik, denso4ik
+      REAL            :: pph2ogas(klon,klev)
+      REAL            :: temp, wpp, xa, surtens, mvh2o, radwet, fkelvin, pph2okel, r2so4ik, denso4ik
 !----------------------------------------
   
@@ -750 +750 @@
        INTEGER N
        REAL XT,X(N)
-!      Working variables                   
+!      Working variables
        INTEGER JX,I