Changeset aa8c34a in flexpart.git for src/readspecies.f90

Timestamp:

Aug 7, 2017, 4:22:04 PM (7 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

bb579a9

Parents:

1d072c0

Message:

Minor edits

File:

• src/readspecies.f90 (modified) (1 diff)

src/readspecies.f90

@@ -67 +67 @@
   character(len=16) :: pspecies
   real :: pdecay, pweta_gas, pwetb_gas, preldiff, phenry, pf0, pdensity, pdquer
-  real :: pdsigma, pdryvel, pweightmolar, pohcconst, pohdconst, pohnconst, pspec_ass, pkao
+  real :: pdsigma, pdryvel, pweightmolar, pohcconst, pohdconst, pohnconst, pkao
   real :: pcrain_aero, pcsnow_aero, pccn_aero, pin_aero
-  integer :: readerror
+  integer :: readerror, pspec_ass
 
 ! declare namelist