Changeset 6117 for LMDZ6/trunk/libf

Timestamp:

Mar 23, 2026, 11:13:12 AM (9 days ago)

Author:

lebasn

Message:

StratAer?: bugfix for background mode.

File:

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

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

@@ -127 +127 @@
        CALL getin_p('xlat_max_sai',xlat_max_sai)
        CALL getin_p('xlat_min_sai',xlat_min_sai)
+    ELSE ! Background
+       ALLOCATE(budg_emi(klon,1))
+       budg_emi(:,:)=0.
     ENDIF