Changeset ec7fc72 in flexpart.git for src/timemanager.f90

Timestamp:

Apr 7, 2016, 9:03:50 AM (8 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

93786a1

Parents:

7e52e2e

Message:

Minor cosmetic edits

File:

• src/timemanager.f90 (modified) (2 diffs)

src/timemanager.f90

@@ -145 +145 @@
 !CGZ-lifetime: set lifetime to 0
   
-
+  write(*,46) float(itime)/3600,itime,numpart
 
   if (verbosity.gt.0) then
@@ -431 +431 @@
 
         !write(*,46) float(itime)/3600,itime,numpart
-45      format(i9,' SECONDS SIMULATED: ',i8, ' PARTICLES:    Uncertainty: ',3f7.3)
-46      format(' Simulated ',f7.1,' hours (',i9,' s), ',i8, ' particles')
+45      format(i13,' SECONDS SIMULATED: ',i13, ' PARTICLES:    Uncertainty: ',3f7.3)
+46      format(' Simulated ',f7.1,' hours (',i13,' s), ',i13, ' particles')
         if (ipout.ge.1) call partoutput(itime)    ! dump particle positions
         loutnext=loutnext+loutstep