Changeset 8ed5f11 in flexpart.git for src/mpi_mod.f90

Timestamp:

Apr 7, 2016, 8:55:43 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:

e31b3b5

Parents:

7e52e2e

Message:

Minor cosmetic changes

File:

• src/mpi_mod.f90 (modified) (1 diff)

src/mpi_mod.f90

@@ -195 +195 @@
     if (dep_prec==dp) then
       mp_cp = MPI_REAL8
-      if (lroot) write(*,*) 'Using double precision for deposition fields'
+      ! TODO: write info message for serial version as well 
+      if (lroot.and.verbosity>0) write(*,*) 'Using double precision for deposition fields'
     else if (dep_prec==sp) then
       mp_cp = MPI_REAL4
-      if (lroot) write(*,*) 'Using single precision for deposition fields'
+      if (lroot.and.verbosity>0) write(*,*) 'Using single precision for deposition fields'
     else
       write(*,*) 'ERROR: something went wrong setting MPI real precision'