Changeset b7ae015 in flexpart.git for src/readpaths.f90

Timestamp:

Mar 2, 2015, 10:56:20 AM (9 years ago)

Author:

Ignacio Pisso <Ignacio.Pisso@…>

Branches:

master, 10.4.1_pesei, FPv9.3.1, FPv9.3.1b_testing, FPv9.3.2, GFS_025, bugfixes+enhancements, dev, fp9.3.1-20161214-nc4, grib2nc4_repair, release-10, release-10.4.1, scaling-bug, univie

Children:

1a08571

Parents:

52aabab

Message:

clean up runtime messages and adjust verbosity level

File:

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

src/readpaths.f90

@@ -65 +65 @@
 
   if (verbosity.gt.0) then
-      print*, 'path read', i, '=',  path(i)
+      print*, 'path read', i, '=',  trim(path(i))
   end if
     
@@ -72 +72 @@
 
     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 
-      if ((character_test .NE. '/') .AND. (i .LT. 4))  then
+    ! 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*, 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
       endif
-
     end do
 
@@ -107 +110 @@
 30   numbnests=i-1
 
-  if (verbosity.gt.0) then
-      do i=1,numpath
-      print*, 'path tested', i, '=',  path(i)
-      end do 
-  end if
+  !if (verbosity.gt.0) then
+  !    do i=1,numpath
+  !    print*, 'path tested', i, '=',  path(i)
+  !    end do 
+  !end if
 
   close(unitpath)