Changeset 5367 for LMDZ6/trunk/libf/phylmd/StratAer

Timestamp:

Dec 3, 2024, 10:40:13 AM (6 weeks ago)

Author:

abarral

Message:

(WIP) Turn implicit into explicit declarations

Location:

LMDZ6/trunk/libf/phylmd/StratAer

Files:

• strataer_emiss_mod.f90 (modified) (2 diffs)
• traccoag_mod.f90 (modified) (1 diff)

LMDZ6/trunk/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
 
   SUBROUTINE strataer_emiss_init()
-
     USE strataer_local_var_mod
-    USE ioipsl_getin_p_mod, ONLY : getin_p
-    USE print_control_mod, ONLY : lunout
+    USE ioipsl_getin_p_mod, ONLY: getin_p
+    USE print_control_mod, ONLY: lunout
     USE mod_phys_lmdz_para, ONLY : is_master
 
     ! Local variables
     INTEGER                  :: ispec
+    INTEGER :: klon  ! Amaury 12/24: cette déclaration était avant implicite (depuis longtemps !), mais c'est probablement un bug !? On devrait avoir `USE dimphy, ONLY: klon`. A corriger ultérieurement.. ?
 
     WRITE(lunout,*) 'IN STRATAER_EMISS INIT WELCOME!'
@@ -215 +216 @@
 
     USE yomcst_mod_h
-USE regular_lonlat_mod, ONLY: lon_reg, lat_reg
+    USE regular_lonlat_mod, ONLY: lon_reg, lat_reg
     USE dimphy, ONLY: klon
     USE mod_grid_phy_lmdz, ONLY: nbp_lat, nbp_lon

LMDZ6/trunk/libf/phylmd/StratAer/traccoag_mod.f90

@@ -4 +4 @@
 ! considering coagulation and sedimentation.
 !
+  IMPLICIT NONE; PRIVATE
+  PUBLIC traccoag
 CONTAINS