From 77fcb01bc91204c58f14bedeabb0cb1716aaebe8 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Sat, 20 Nov 2010 10:22:54 +0000
Subject: [PATCH] mld2p4-2:  mld_dprecset

Take out debugging printout.
---
 mlprec/mld_dprecset.F90 | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/mlprec/mld_dprecset.F90 b/mlprec/mld_dprecset.F90
index 984949f9..ef2264cf 100644
--- a/mlprec/mld_dprecset.F90
+++ b/mlprec/mld_dprecset.F90
@@ -350,9 +350,6 @@ subroutine mld_dprecseti(p,what,val,info,ilev)
 
   endif
 
-  do ilev_=1, nlev_
-    write(0,*) 'Check on mld_dprecseti level ',ilev_,' ',allocated(p%precv(ilev_)%sm)
-  end do
 
 end subroutine mld_dprecseti