Changeset d9f0585 in flexpart.git for src/gridcheck_gfs.f90

Timestamp:

May 8, 2017, 8:34:40 AM (7 years ago)

Author:

Sabine <sabine.eckhardt@…>

Branches:

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

Children:

6985a98

Parents:

d404d98 (diff), c8fc724 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge branch 'dev' of git.nilu.no:flexpart/flexpart into dev

File:

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

src/gridcheck_gfs.f90

@@ -421 +421 @@
   !********************
 
-  write(*,*)
-  write(*,*)
-  write(*,'(a,2i7)') 'Vertical levels in NCEP data: ', &
-       nuvz,nwz
-  write(*,*)
-  write(*,'(a)') 'Mother domain:'
-  write(*,'(a,f10.2,a1,f10.2,a,f10.2)') '  Longitude range: ', &
-       xlon0,' to ',xlon0+(nx-1)*dx,'   Grid distance: ',dx
-  write(*,'(a,f10.2,a1,f10.2,a,f10.2)') '  Latitude range : ', &
-       ylat0,' to ',ylat0+(ny-1)*dy,'   Grid distance: ',dy
-  write(*,*)
-
+  if (lroot) then
+    write(*,*)
+    write(*,*)
+    write(*,'(a,2i7)') 'Vertical levels in NCEP data: ', &
+         nuvz,nwz
+    write(*,*)
+    write(*,'(a)') 'Mother domain:'
+    write(*,'(a,f10.2,a1,f10.2,a,f10.2)') '  Longitude range: ', &
+         xlon0,' to ',xlon0+(nx-1)*dx,'   Grid distance: ',dx
+    write(*,'(a,f10.2,a1,f10.2,a,f10.2)') '  Latitude range : ', &
+         ylat0,' to ',ylat0+(ny-1)*dy,'   Grid distance: ',dy
+    write(*,*)
+  end if
 
   ! CALCULATE VERTICAL DISCRETIZATION OF ECMWF MODEL