Changeset 598e9da in flexpart.git for src/readreleases.f90

Timestamp:

May 13, 2015, 2:54:59 PM (9 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:

b724ea3

Parents:

5f42c27

Message:

Updated SPECIES files

File:

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

src/readreleases.f90

@@ -376 +376 @@
       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
+!        write (*,*) 'In-cloud scavenging coefficients: ',&
+!           &weta_in(i),wetb_in(i),i !,wetc_in(i), wetd_in(i),i
       end if
     else