Changeset 5370 for LMDZ6/trunk/libf/phylmd/StratAer/strataer_emiss_mod.f90

Timestamp:

Dec 3, 2024, 4:20:24 PM (35 hours ago)

Author:

lebasn

Message:

StratAer? bugfix: import klon from dimphy that wasn't defined.

File:

• LMDZ6/trunk/libf/phylmd/StratAer/strataer_emiss_mod.f90 (modified) (1 diff)

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

@@ -10 +10 @@
     USE print_control_mod, ONLY: lunout
     USE mod_phys_lmdz_para, ONLY : is_master
-
+    USE dimphy, ONLY: klon
+    
     ! 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!'