Changeset 62e65c7 in flexpart.git for src/readpaths.f90

Timestamp:

Apr 28, 2016, 12:58:10 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:

18adf60, 93786a1

Parents:

e4f26d1

Message:

'incloud_ratio' set to 6.2. 'maxnests' reverted to 0. Updated info messages (readspecies)

File:

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

src/readpaths.f90

@@ -82 +82 @@
 
   do i=1,maxnests
-    read(unitpath,'(a)') path(numpath+2*(i-1)+1)
-    read(unitpath,'(a)') path(numpath+2*(i-1)+2)
+  ! ESO 2016 Added 'end'/'err' in case user forgot '====' at end of file and
+  ! maxnests > numbnests
+    read(unitpath,'(a)', end=30, err=30) path(numpath+2*(i-1)+1)
+    read(unitpath,'(a)', end=30, err=30) path(numpath+2*(i-1)+2)
     if (path(numpath+2*(i-1)+1)(1:5).eq.'=====') goto 30
     length(numpath+2*(i-1)+1)=index(path(numpath+2*(i-1)+1),' ')-1