Changeset 7952ca4 in flexpart.git


Ignore:
Timestamp:
Aug 23, 2019, 12:01:19 PM (5 years ago)
Author:
Ignacio Pisso <ip@…>
Branches:
master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug
Children:
10bfff9
Parents:
e048999
Message:

fix verbose mode inline flag read

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/FLEXPART.f90

    r07c3e71 r7952ca4  
    120120      !print*, iopt, inline_options(iopt+1:iopt+1)
    121121      if  (trim(inline_options(iopt+1:iopt+1)).eq.'2') then
    122         !print*, 'verbosity=2'
    123122        print*, 'Verbose mode 2: display more detailed information during run'
    124123        verbosity=2
    125124      endif
    126125    endif
    127 
    128    
    129126    !debug mode
    130127    iopt=index(inline_options,'d')
    131128    if (iopt.gt.0) then
    132129      debug_mode=.true.
    133       endif
    134     endif
    135 
    136 
    137    
    138 !      stop
    139 !    if (trim(inline_options).eq.'-v'.or.trim(inline_options).eq.'-v1') then
    140 !       print*, 'Verbose mode 1: display detailed information during run'
    141 !       verbosity=1
    142 !    endif
    143 !    if (trim(inline_options).eq.'-v2') then
    144 !       print*, 'Verbose mode 2: display more detailed information during run'
    145 !       verbosity=2
    146 !    endif
    147 
     130    endif
    148131    if (trim(inline_options).eq.'-i') then
    149132       print*, 'Info mode: provide detailed run specific information and stop'
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG