mld2p4-2:

mld_dprecset Take out debugging printout.
2026-10-06 22:55:12 +00:00 · 2010-11-20 10:22:54 +00:00
parent 3f334d4887
commit 77fcb01bc9
1 changed files with 0 additions and 3 deletions
@@ -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