Commit 66ea1877 authored by Sabine's avatar Sabine
Browse files

BUGFIX wrong coordinate was used

parent 60ba923b
......@@ -60,8 +60,8 @@ subroutine writeprecip(itime,imem)
do i=1,numpoint
xp1=xpoint1(i)*dx+xlon0 !lat, long (real) coord
yp1=ypoint1(i)*dy+ylat0 !lat, long (real) coord
xp1=xpoint2(i)*dx+xlon0 !lat, long (real) coord
yp1=ypoint2(i)*dy+ylat0 !lat, long (real) coord
xp2=xpoint2(i)*dx+xlon0 !lat, long (real) coord
yp2=ypoint2(i)*dy+ylat0 !lat, long (real) coord
ix=int((xpoint1(i)+xpoint2(i))/2.)
jy=int((ypoint1(i)+ypoint2(i))/2.)
write(unitprecip,*) jjjjmmdd, ihmmss, &
......
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