Changeset 4513 for LMDZ6/trunk/libf/phylmd/StratAer/strataer_mod.F90

Timestamp:

Apr 20, 2023, 9:57:22 AM (17 months ago)

Author:

tlurton

Message:

Strataer: a bug correction in strataer_mod.F90, and an implementation of injection duration for SAI case.

File:

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

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

@@ -186 +186 @@
     !ENDIF
 
-    IF (flag_sulf_emit == 1) THEN
+    IF (flag_sulf_emit > 0) THEN
        CALL strataer_ponde_init
        WRITE(lunout,*) 'IN STRATAER INT2 END'