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


Ignore:
Timestamp:
Mar 2, 2015, 10:56:20 AM (5 years ago)
Author:
Ignacio Pisso <Ignacio.Pisso@…>
Branches:
master, FPv9.3.1, FPv9.3.1b_testing, FPv9.3.2, dev, fp9.3.1-20161214-nc4, grib2nc4_repair, release-10, univie
Children:
1a08571
Parents:
52aabab
Message:

clean up runtime messages and adjust verbosity level

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/FLEXPART.f90

    r414a5e5 rb7ae015  
    6262  ! FLEXPART version string
    6363  ! flexversion='Version 9.2 beta (2014-07-01)'
    64   flexversion='Version 9.2.0.1 (2015-01-27)'
     64  !flexversion='Version 9.2.0.1 (2015-01-27)'
     65  flexversion='Version 9.2.0.2 (2015-03-01)'
    6566  ! default inlide options
    6667  inline_options='none'
     
    113114       endif
    114115       print*, 'verbosity level=', verbosity !inline_options(index_v+1:index_v+1)
    115              
    116116    endif
    117117    !iif (trim(inline_options).eq.'-v2') then
     
    121121
    122122    if (index(inline_options,'i').gt.0) then   
    123     !if (trim(inline_options).eq.'-i') then
    124123       index_v=index(inline_options,'i')
    125        print*, 'Info mode: provide run specific information and stop'
     124       print*, 'Info mode: provide compile and run specific information, then stop'
    126125       verbosity=1
    127126       info_flag=1
    128        !if (trim(inline_options).eq.'-i2') then
    129127       if (inline_options(index_v+1:index_v+1).eq.'2') then
    130            print*, 'Including input files'
    131        !   verbosity=1
    132128       info_flag=2
    133129       endif
    134130    endif
    135     !if (trim(inline_options).eq.'-i2') then
    136     !   print*, 'Info mode: provide more detailed run specific information and stop'
    137     !   verbosity=1
    138     !   info_flag=2
    139     !endif
    140131    if (index(inline_options,'t').gt.0) then
    141132       time_flag=1
    142        print*, 'timing execution: not implemented'
     133       print*, 'timing execution activated'
    143134       !stop
    144135    endif
    145136    if (index(inline_options,'d').gt.0) then
    146137       debug_flag=1
    147        print*, 'debug: not implemented'
     138       print*, 'debug messages activated'
    148139       print*, 'debug_flag=', debug_flag
    149        !stop
     140       !these messages give additional info on top on verbose mode
    150141    endif
    151142  endif
     
    186177
    187178  if (verbosity.gt.0) then
    188     write(*,*) 'call readcommand'
     179    write(*,*) 'FLEXPART> call readcommand'
    189180  endif
    190181  call readcommand
     
    202193  !********************************
    203194  if (verbosity.gt.0) then
    204     write(*,*) 'call readageclasses'
     195    write(*,*) 'FLEXPART> call readageclasses'
    205196  endif
    206197  call readageclasses
     
    215206
    216207  if (verbosity.gt.0) then
    217     write(*,*) 'call readavailable'
     208    write(*,*) 'FLEXPART> call readavailable'
    218209  endif 
    219210  call readavailable
     
    234225
    235226  if (verbosity.gt.0) then
    236     write(*,*) 'call gridcheck_nests'
     227    write(*,*) 'FLEXPART> call gridcheck_nests'
    237228  endif 
    238229  call gridcheck_nests
     
    296287
    297288  if (verbosity.gt.0) then
    298     print*,'call readdepo'
     289    print*,'FLEXPART> call readdepo'
    299290  endif
    300291  call readdepo
     
    305296  call coordtrafo 
    306297  if (verbosity.gt.0) then
    307     print*,'call coordtrafo'
     298    print*,'FLEXPART> call coordtrafo'
    308299  endif
    309300
     
    312303
    313304  if (verbosity.gt.0) then
    314     print*,'Initialize all particles to non-existent'
     305    print*,'FLEXPART> Initialize all particles to non-existent'
    315306  endif
    316307  do j=1,maxpart
     
    323314  if (ipin.eq.1) then
    324315    if (verbosity.gt.0) then
    325       print*,'call readpartpositions'
     316      print*,'FLEXPART> call readpartpositions'
    326317    endif
    327318    call readpartpositions
    328319  else
    329320    if (verbosity.gt.0) then
    330       print*,'set numpart=0, numparticlecount=0'
     321      print*,'FLEXPART> set numpart=0, numparticlecount=0'
    331322    endif   
    332323    numpart=0
     
    339330
    340331  if (verbosity.gt.0) then
    341     print*,'call outgrid_init'
     332    print*,'FLEXPART> call outgrid_init'
    342333  endif
    343334  call outgrid_init
     
    349340  if (OHREA.eqv..TRUE.) then
    350341    if (verbosity.gt.0) then
    351       print*,'call readOHfield'
     342      print*,'FLEXPART> call readOHfield'
    352343    endif
    353344    call readOHfield
     
    359350
    360351  if (verbosity.gt.0) then
    361     print*,'call writeheader'
     352    print*,'FLEXPART> call variuos writeheader routines'
    362353  endif
    363354
     
    373364
    374365  if (verbosity.gt.0) then
    375     print*,'call openreceptors'
     366    print*,'FLEXPART> call openreceptors'
    376367  endif
    377368  call openreceptors
     
    382373
    383374  if (verbosity.gt.0) then
    384     print*,'discretize release times'
     375    print*,'FLEXPART> discretize release times'
    385376  endif
    386377  do i=1,numpoint
     
    393384
    394385  if (verbosity.gt.0) then
    395     print*,'Initialize cloud-base mass fluxes for the convection scheme'
     386    print*,'FLEXPART> Initialize cloud-base mass fluxes for the convection scheme'
    396387  endif
    397388
     
    417408  endif
    418409  if (info_flag.eq.2) then
    419     print*, 'info only mode (stop before call timemanager)'
     410    print*, 'FLEXPART> info only mode (stop before call timemanager)'
    420411    stop
    421412  endif
    422413  if (verbosity.gt.0) then
    423      print*,'call timemanager'
     414     print*,'FLEXPART> call timemanager'
    424415  endif
    425416
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG