Changeset 18c1336 in flexpart.git
- Timestamp:
- Mar 1, 2015, 4:26:23 PM (9 years ago)
- 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:
- cd1f691
- Parents:
- 242571d
- git-author:
- Ignacio Pisso <Ignacio.Pisso@…> (03/01/15 16:02:04)
- git-committer:
- Ignacio Pisso <Ignacio.Pisso@…> (03/01/15 16:26:23)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/readpaths.f90
rb4d29ce r18c1336 63 63 length(i)=index(path(i),' ')-1 64 64 65 66 if (verbosity.gt.0) then 67 print*, 'path read', i, '=', path(i) 68 end if 65 69 70 end do 71 72 73 do i=1,numpath 74 66 75 string_test = path(i) 67 76 character_test = string_test(length(i):length(i)) 68 77 !print*, 'character_test, string_test ', character_test, string_test 69 78 if ((character_test .NE. '/') .AND. (i .LT. 4)) then 70 print*, ' WARNING: path not ending in /'79 print*, 'readpaths> WARNING: path not ending in /' 71 80 print*, path(i) 72 81 path(i) = string_test(1:length(i)) // '/' … … 74 83 print*, 'fix: padded with /' 75 84 print*, path(i) 76 print*, 'length(i) increased 1' 85 print*, 'length(i) increased 1', length(i) 77 86 endif 78 end do 87 88 end do 89 90 79 91 80 92 ! Check whether any nested subdomains are to be used … … 95 107 30 numbnests=i-1 96 108 109 if (verbosity.gt.0) then 110 do i=1,numpath 111 print*, 'path tested', i, '=', path(i) 112 end do 113 end if 114 97 115 close(unitpath) 98 116 return 117 118 119 99 120 100 121 998 write(*,*) ' #### TRAJECTORY MODEL ERROR! ERROR WHILE #### '
Note: See TracChangeset
for help on using the changeset viewer.