Changeset 3780 for palm/trunk/SOURCE/salsa_mod.f90

Timestamp:

Mar 5, 2019 11:19:45 AM (6 years ago)

Author:

forkel

Message:

removed read from unit 10 in chemistry_model_mod.f90, added get_mechanismname

File:

• palm/trunk/SOURCE/salsa_mod.f90 (modified) (1 diff)

palm/trunk/SOURCE/salsa_mod.f90

@@ -898 +898 @@
 8   FORMAT  (/'    Aerosol bin subrange limits (in metres): ',  3(ES10.2E3), / &
               '    Number of size bins for each aerosol subrange: ', 2I3,/     &
-              '    Aerosol bin limits (in metres): ', *(ES10.2E3))
+              '    Aerosol bin limits (in metres): ', 9(ES10.2E3))
 15  FORMAT   ('    Initial number concentration in bins at the lowest level',  &
-              ' (#/m**3):', *(ES10.2E3))        
+              ' (#/m**3):', 9(ES10.2E3))        
 13  FORMAT  (/'    Number of chemical components used: ', I1,/                 &
               '       Species: ',7(A6),/                                       &