Changeset 3924 for palm/trunk/SOURCE

Timestamp:

Apr 23, 2019 9:33:06 AM (5 years ago)

Author:

monakurppa

Message:

Bug corrected in salsa_mod, salsa test case introduced and test_salsa input files updated.

File:

• palm/trunk/SOURCE/salsa_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/salsa_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
-! 2018-04-11 monakurppa
+! Correct a bug introduced by the previous update.
+! 
+! 3899 2019-04-16 14:05:27Z monakurppa
 ! - remove unnecessary error / location messages
 ! - corrected some error message numbers
 ! - allocate source arrays only if emissions or dry deposition is applied.
+!
 ! 3885 2019-04-11 11:29:34Z kanani
 ! Changes related to global restructuring of location messages and introduction 
@@ -1457 +1460 @@
 !--    Read in and initialize emissions
        CALL salsa_emission_setup( .TRUE. )
-       IF ( .NOT. salsa_gases_from_chem  .AND.  include_emission )  THEN
+       IF ( .NOT. salsa_gases_from_chem  .AND.  salsa_emission_mode == 'read_from_file' )  THEN
           CALL salsa_gas_emission_setup( .TRUE. )
        ENDIF