Changeset 3784 for palm


Ignore:
Timestamp:
Mar 5, 2019 2:16:20 PM (5 years ago)
Author:
forkel
Message:

read from unit 10 now also removed from subroutine chem_header

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/chemistry_model_mod.f90

    r3783 r3784  
    2727! -----------------
    2828! $Id$
     29! Replaced READ from unit 10 by CALL get_mechanismname also in chem_header
     30!
     31!
     32! 3783 2019-03-05 13:23:50Z forkel
    2933! Removed forgotte write statements an some unused variables (did not touch the
    3034! parts related to deposition)
     
    16211625    CHARACTER (LEN=80)       :: docsflux_chr
    16221626    CHARACTER (LEN=80)       :: docsinit_chr
    1623     CHARACTER (LEN=30)       ::  cs_mech,a1,b1,string
    1624 
    1625 !
    1626     OPEN (10,FILE="chem_gasphase_mod.f90")   !get the chem_mechanism name from the file.
    1627     READ (10, 100) a1,b1,string
    1628     cs_mech = trim(string(16:))
    1629 100 FORMAT(a)   
    1630     CLOSE(10)
     1627!
     1628! Get name of chemical mechanism from chem_gasphase_mod
     1629    CALL get_mechanismname
    16311630
    16321631!-- Write chemistry model  header
Note: See TracChangeset for help on using the changeset viewer.