mld2p4-2:

mld_dprecset Take out debugging printout.
14 years ago · 77fcb01bc9
parent 3f334d4887
commit 77fcb01bc9
1 changed files with 0 additions and 3 deletions
--- 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