Changeset b7ae015 in flexpart.git for src/FLEXPART.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/FLEXPART.f90 (modified) (18 diffs)

src/FLEXPART.f90

@@ -62 +62 @@
   ! FLEXPART version string
   ! flexversion='Version 9.2 beta (2014-07-01)'
-  flexversion='Version 9.2.0.1 (2015-01-27)'
+  !flexversion='Version 9.2.0.1 (2015-01-27)'
+  flexversion='Version 9.2.0.2 (2015-03-01)'
   ! default inlide options
   inline_options='none'
@@ -113 +114 @@
        endif
        print*, 'verbosity level=', verbosity !inline_options(index_v+1:index_v+1)
-              
     endif
     !iif (trim(inline_options).eq.'-v2') then
@@ -121 +121 @@
 
     if (index(inline_options,'i').gt.0) then   
-    !if (trim(inline_options).eq.'-i') then
        index_v=index(inline_options,'i')
-       print*, 'Info mode: provide run specific information and stop'
+       print*, 'Info mode: provide compile and run specific information, then stop'
        verbosity=1
        info_flag=1
-       !if (trim(inline_options).eq.'-i2') then
        if (inline_options(index_v+1:index_v+1).eq.'2') then
-           print*, 'Including input files'
-       !   verbosity=1
        info_flag=2
        endif
     endif
-    !if (trim(inline_options).eq.'-i2') then
-    !   print*, 'Info mode: provide more detailed run specific information and stop'
-    !   verbosity=1
-    !   info_flag=2
-    !endif
     if (index(inline_options,'t').gt.0) then
        time_flag=1
-       print*, 'timing execution: not implemented'
+       print*, 'timing execution activated'
        !stop
     endif
     if (index(inline_options,'d').gt.0) then
        debug_flag=1
-       print*, 'debug: not implemented'
+       print*, 'debug messages activated'
        print*, 'debug_flag=', debug_flag
-       !stop
+       !these messages give additional info on top on verbose mode
     endif 
   endif
@@ -186 +177 @@
 
   if (verbosity.gt.0) then
-    write(*,*) 'call readcommand'
+    write(*,*) 'FLEXPART> call readcommand'
   endif
   call readcommand
@@ -202 +193 @@
   !********************************
   if (verbosity.gt.0) then
-    write(*,*) 'call readageclasses'
+    write(*,*) 'FLEXPART> call readageclasses'
   endif
   call readageclasses
@@ -215 +206 @@
 
   if (verbosity.gt.0) then
-    write(*,*) 'call readavailable'
+    write(*,*) 'FLEXPART> call readavailable'
   endif  
   call readavailable
@@ -234 +225 @@
 
   if (verbosity.gt.0) then
-    write(*,*) 'call gridcheck_nests'
+    write(*,*) 'FLEXPART> call gridcheck_nests'
   endif  
   call gridcheck_nests
@@ -296 +287 @@
 
   if (verbosity.gt.0) then
-    print*,'call readdepo'
+    print*,'FLEXPART> call readdepo'
   endif
   call readdepo
@@ -305 +296 @@
   call coordtrafo  
   if (verbosity.gt.0) then
-    print*,'call coordtrafo'
+    print*,'FLEXPART> call coordtrafo'
   endif
 
@@ -312 +303 @@
 
   if (verbosity.gt.0) then
-    print*,'Initialize all particles to non-existent'
+    print*,'FLEXPART> Initialize all particles to non-existent'
   endif
   do j=1,maxpart
@@ -323 +314 @@
   if (ipin.eq.1) then
     if (verbosity.gt.0) then
-      print*,'call readpartpositions'
+      print*,'FLEXPART> call readpartpositions'
     endif
     call readpartpositions
   else
     if (verbosity.gt.0) then
-      print*,'set numpart=0, numparticlecount=0'
+      print*,'FLEXPART> set numpart=0, numparticlecount=0'
     endif    
     numpart=0
@@ -339 +330 @@
 
   if (verbosity.gt.0) then
-    print*,'call outgrid_init'
+    print*,'FLEXPART> call outgrid_init'
   endif
   call outgrid_init
@@ -349 +340 @@
   if (OHREA.eqv..TRUE.) then
     if (verbosity.gt.0) then
-      print*,'call readOHfield'
+      print*,'FLEXPART> call readOHfield'
     endif
     call readOHfield
@@ -359 +350 @@
 
   if (verbosity.gt.0) then
-    print*,'call writeheader'
+    print*,'FLEXPART> call variuos writeheader routines'
   endif
 
@@ -373 +364 @@
 
   if (verbosity.gt.0) then
-    print*,'call openreceptors'
+    print*,'FLEXPART> call openreceptors'
   endif
   call openreceptors
@@ -382 +373 @@
 
   if (verbosity.gt.0) then
-    print*,'discretize release times'
+    print*,'FLEXPART> discretize release times'
   endif
   do i=1,numpoint
@@ -393 +384 @@
 
   if (verbosity.gt.0) then
-    print*,'Initialize cloud-base mass fluxes for the convection scheme'
+    print*,'FLEXPART> Initialize cloud-base mass fluxes for the convection scheme'
   endif
 
@@ -417 +408 @@
   endif
   if (info_flag.eq.2) then
-    print*, 'info only mode (stop before call timemanager)'
+    print*, 'FLEXPART> info only mode (stop before call timemanager)'
     stop
   endif
   if (verbosity.gt.0) then
-     print*,'call timemanager'
+     print*,'FLEXPART> call timemanager'
   endif