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

Timestamp:

Jul 3, 2014, 2:55:50 PM (10 years ago)

Author:

Harald Sodemann <harald.sodemann@…>

Branches:

master, 10.4.1_pesei, FPv9.3.1, FPv9.3.1b_testing, FPv9.3.2, GFS_025, NetCDF, bugfixes+enhancements, deposition, dev, fp9.3.1-20161214-nc4, grib2nc4_repair, inputlist, laptop, release-10, release-10.4.1, scaling-bug, svn-petra, svn-trunk, univie

Children:

4b093cc, 75dfd42, 326b31b

Parents:

87910af

Message:

• Implemented optional namelist input for COMMAND, RELEASES, SPECIES, AGECLASSES,OUTGRID,OUTGRID_NEST,RECEPTORS
• Implemented com_mod switch nmlout to write input files as namelist to the output directory (.true. by default)
• Proposed updated startup and runtime output (may change back to previous info if desired)

git-svn-id: ​http://flexpart.flexpart.eu:8088/svn/FlexPart90/trunk@27 ef8cc7e1-21b7-489e-abab-c1baa636049d

File:

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

src/timemanager.f90

@@ -129 +129 @@
 
 
+  !write(*,45) itime,numpart,gridtotalunc,wetgridtotalunc,drygridtotalunc
+  write(*,46) float(itime)/3600,itime,numpart
   if (verbosity.gt.0) then
     write (*,*) 'timemanager> starting simulation'
@@ -371 +373 @@
         if ((iout.eq.4).or.(iout.eq.5)) call plumetraj(itime)
         if (iflux.eq.1) call fluxoutput(itime)
-        write(*,45) itime,numpart,gridtotalunc,wetgridtotalunc, &
-             drygridtotalunc
-45      format(i9,' SECONDS SIMULATED: ',i8, &
-             ' PARTICLES:    Uncertainty: ',3f7.3)
+        !write(*,45) itime,numpart,gridtotalunc,wetgridtotalunc,drygridtotalunc
+        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')
         if (ipout.ge.1) call partoutput(itime)    ! dump particle positions
         loutnext=loutnext+loutstep