From f199599a97797035641cb29aed882f562c8945ac Mon Sep 17 00:00:00 2001
From: Jim Bresch <bresch@ucar.edu>
Date: Mon, 10 Jul 2017 17:38:55 -0600
Subject: [PATCH] Remove unnecessary diagnostic print from fix_gfs_miss in
 rrpr.F

---
 ungrib/src/rrpr.F | 1 -
 1 file changed, 1 deletion(-)

diff --git a/ungrib/src/rrpr.F b/ungrib/src/rrpr.F
index e6950ab..a9b7380 100644
--- a/ungrib/src/rrpr.F
+++ b/ungrib/src/rrpr.F
@@ -1238,7 +1238,6 @@ subroutine fix_gfs_miss (ix, jx, plvl)
   character, dimension(nvar) :: flist*8
   data flist/'ST000010','ST010040','ST040100','ST100200','ST010200', &
              'SM000010','SM010040','SM040100','SM100200','SM010200' /
-  write(0,*) 'begin fix_gfs_miss   plvl = ',plvl
   allocate(sea(ix,jx))
   allocate(f(ix,jx))
 ! If LANDN is present (July 2017 and later GFS output), use it for LANDSEA
-- 
2.11.4.GIT