Commit e6333efb authored by Knut's avatar Knut

removed old debug logging

parent ae981f25
......@@ -499,9 +499,6 @@
! we need latx to calculate dxv - utilize equidistance
latx(ill:ihl,jll-1) = latc(ill:ihl,jll) - dlat/2.
STDERR ill,jll,dlat/2.
STDERR latc(1,1),latx(1,0)
!stop
n=1
do j=jll,jhl
latx(ill:ihl,j) = latx(ill:ihl,jll-1) + n*dlat
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment