Changeset 8a65cb0 in flexpart.git for src/readpaths.f90

Timestamp:

Mar 2, 2015, 3:11:55 PM (9 years ago)

Author:

Espen Sollum ATMOS <espen@…>

Branches:

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

Children:

1d207bb

Parents:

60403cd

Message:

Added code, makefile for dev branch

File:

• src/readpaths.f90 (modified) (2 diffs)

src/readpaths.f90

@@ -63 +63 @@
     length(i)=index(path(i),' ')-1
 
-
-  if (verbosity.gt.0) then
-      print*, 'path read', i, '=',  trim(path(i))
-  end if
     
-  end do
-
-
-    do i=1,numpath
     string_test = path(i)
     character_test = string_test(length(i):length(i))
-    ! print*, 'character_test,  string_test ', character_test,  string_test 
-    ! include nested fields
-      if ((character_test .NE. '/') .AND. ((i .LT. 4) .OR. (i .EQ. 5) ))  then
-         if (verbosity.gt.0) then 
-         print*, 'readpaths> WARNING: path not ending in /' 
+    !print*, 'character_test,  string_test ', character_test,  string_test 
+      if ((character_test .NE. '/') .AND. (i .LT. 4))  then
+         print*, 'WARNING: path not ending in /' 
          print*, path(i)
-         endif
          path(i) = string_test(1:length(i)) // '/'
          length(i)=length(i)+1
-         if (verbosity.gt.0) then 
          print*, 'fix: padded with /' 
          print*, path(i)
-         print*, 'length(i) increased 1',  length(i) 
-         endif
+         print*, 'length(i) increased 1' 
       endif
-    end do
-
-
+  end do
 
   ! Check whether any nested subdomains are to be used
@@ -110 +95 @@
 30   numbnests=i-1
 
-  !if (verbosity.gt.0) then
-  !    do i=1,numpath
-  !    print*, 'path tested', i, '=',  path(i)
-  !    end do 
-  !end if
-
   close(unitpath)
   return
-
-   
-
 
 998   write(*,*) ' #### TRAJECTORY MODEL ERROR! ERROR WHILE     #### '