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

Timestamp:

Dec 10, 2023, 10:37:08 PM (13 months ago)

Author:

lguez

Message:

Bug fix: only assign if allocated

Bug fix: only assign to budg_emi if it is allocated.

File:

• LMDZ6/trunk/libf/phylmd/StratAer/traccoag_mod.F90 (modified) (1 diff)

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

@@ -145 +145 @@
     
 !--initialise emission diagnostics
-    budg_emi(:,1)=0.0
+    if (nErupt > 0 .and. (flag_emit == 1 .or. flag_emit == 4)) budg_emi(:,1)=0.0
     budg_emi_ocs(:)=0.0
     budg_emi_so2(:)=0.0