Changeset f04992e in flexpart.git

Timestamp:

Aug 23, 2019, 9:52:28 AM (5 years ago)

Author:

Ignacio Pisso <ip@…>

Branches:

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

Children:

e048999

Parents:

25b4532

Message:

add check to assert dsigma > 1 in subroutine readspecies

File:

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

src/readspecies.f90

@@ -351 +351 @@
 
   !  if (dsigma(i).eq.0.) dsigma(i)=1.0001   ! avoid floating exception
-  if (dsigma(i).le.1.) then !dsigma(i)=1.0001   ! avoid floating exception
+  if (dquer(i).gt.0 .and. dsigma(i).le.1.) then !dsigma(i)=1.0001   ! avoid floating exception
     !write(*,*) '#### FLEXPART MODEL ERROR!                      ####'
     write(*,*) '#### FLEXPART MODEL WARNING                     ####'