Changeset 3784 for palm/trunk

Timestamp:

Mar 5, 2019 2:16:20 PM (6 years ago)

Author:

forkel

Message:

read from unit 10 now also removed from subroutine chem_header

File:

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

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Replaced READ from unit 10 by CALL get_mechanismname also in chem_header
+! 
+! 
+! 3783 2019-03-05 13:23:50Z forkel
 ! Removed forgotte write statements an some unused variables (did not touch the 
 ! parts related to deposition)
@@ -1621 +1625 @@
     CHARACTER (LEN=80)       :: docsflux_chr
     CHARACTER (LEN=80)       :: docsinit_chr
-    CHARACTER (LEN=30)       ::  cs_mech,a1,b1,string
-
-!
-    OPEN (10,FILE="chem_gasphase_mod.f90")   !get the chem_mechanism name from the file.
-    READ (10, 100) a1,b1,string
-    cs_mech = trim(string(16:))
-100 FORMAT(a)   
-    CLOSE(10)
+!
+! Get name of chemical mechanism from chem_gasphase_mod
+    CALL get_mechanismname
 
 !-- Write chemistry model  header