Changeset 341f4b7 in flexpart.git for src/readreleases.f90

Timestamp:

Apr 20, 2016, 1:39:51 PM (8 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:

61df8d9

Parents:

32b49c3

Message:

SPECIES files converted to namelist format. Fixed-format SPCIES files renamed with .oldformat extension. Added 2 wet depo parameters to old-format SPECIES. Renamed internal variables and parameters used for wet deposition. incloud_ratio increased to 2.2

File:

• src/readreleases.f90 (modified) (3 diffs)

src/readreleases.f90

@@ -57 +57 @@
   ! xpoint2,ypoint2     geograf. coordinates of upper right corner of release  *
   !                     area                                                   *
-  ! weta, wetb          parameters to determine the below-cloud scavenging     *
-  ! weta_in, wetb_in    parameters to determine the in-cloud scavenging        *
-  ! wetc_in, wetd_in    parameters to determine the in-cloud scavenging        *
+  ! weta_gas, wetb_gas  parameters for below-cloud scavenging (gas)            *
+  ! crain_aero, csnow_aero  parameters for below-cloud scavenging (aerosol)    *
+  ! ccn_aero, in_aero   parameters for in-cloud scavenging (aerosol)           *
   ! zpoint1,zpoint2     height range, over which release takes place           *
   ! num_min_discrete    if less, release cannot be randomized and happens at   *
@@ -363 +363 @@
   !***********************************************************
 ! NIK 15.02.2015, with new wet dep scheme either A or B parameters can be assigned a positive value which switches on wet dep
-    if (weta(i).gt.0. .or. wetb(i).gt.0.)  then
+    if (weta_gas(i).gt.0. .or. wetb_gas(i).gt.0.)  then ! :TODO: or particle
       WETDEP=.true.
       if (lroot) then
@@ -374 +374 @@
     
 ! NIK 31.01.2013 + 10.12.2013 + 15.02.2015
-    if (weta_in(i).gt.0. .or. wetb_in(i).gt.0.)  then
+    if (ccn_aero(i).gt.0. .or. in_aero(i).gt.0.)  then
       WETDEP=.true.
       if (lroot) then
         write (*,*) 'In-cloud scavenging: ON'
 !        write (*,*) 'In-cloud scavenging coefficients: ',&
-!           &weta_in(i),wetb_in(i),i !,wetc_in(i), wetd_in(i),i
+!           &ccn_aero(i),in_aero(i),i !,wetc_in(i), wetd_in(i),i
       end if
     else