Changeset 18c1336 in flexpart.git


Ignore:
Timestamp:
Mar 1, 2015, 4:26:23 PM (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:
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)
Message:

correct missing trailing slash (/) in readpaths.f90. issue a warning.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/readpaths.f90

    rb4d29ce r18c1336  
    6363    length(i)=index(path(i),' ')-1
    6464
     65
     66  if (verbosity.gt.0) then
     67      print*, 'path read', i, '=',  path(i)
     68  end if
    6569   
     70  end do
     71
     72
     73    do i=1,numpath
     74 
    6675    string_test = path(i)
    6776    character_test = string_test(length(i):length(i))
    6877    !print*, 'character_test,  string_test ', character_test,  string_test
    6978      if ((character_test .NE. '/') .AND. (i .LT. 4))  then
    70          print*, 'WARNING: path not ending in /'
     79         print*, 'readpaths> WARNING: path not ending in /'
    7180         print*, path(i)
    7281         path(i) = string_test(1:length(i)) // '/'
     
    7483         print*, 'fix: padded with /'
    7584         print*, path(i)
    76          print*, 'length(i) increased 1'
     85         print*, 'length(i) increased 1',  length(i)
    7786      endif
    78   end do
     87
     88    end do
     89
     90
    7991
    8092  ! Check whether any nested subdomains are to be used
     
    9510730   numbnests=i-1
    96108
     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
    97115  close(unitpath)
    98116  return
     117
     118   
     119
    99120
    100121998   write(*,*) ' #### TRAJECTORY MODEL ERROR! ERROR WHILE     #### '
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG