Writing regridded data

[Siraj Khan]

Dear all,

    I have regrided some data from 1x1 degree to 0.5x0.5 resolution 
using script regrid2.(just for experiment to see regriding)
When i display the regrided variable at any time step it is ok but
when i tried to write this new variable in a .grd file for all the
time step.
there is problem.That is when i open the regrided data file and diplay
it the picture is as attached .Some kind of mirror image of data is
displayed.
Is there is any problem in writing file or some error in ctl file.
I am send both of these files .

Any help in this regard.

Cheers
-- 
Siraj Khan

1- Research Fellow
Global change Impact studies Centre
First Floor Saudi Pak tower 
Blue Area Islamabad


2-MPhil Scholar (Computational Physics)
Department of Physics
Quaid e Azam University 
Islamabad Pakistan
cell No +923005232556
-------------- next part --------------
A non-text attachment was scrubbed...
Name: regrided.jpg
Type: image/jpeg
Size: 20619 bytes
Desc: not available
Url : http://gradsusr.org/pipermail/gradsusr/attachments/20050613/75290829/attachment.jpg 
-------------- next part --------------
'open CRU_PRE_1901-2000_1x1.ctl'
'set gxout fwrite'
'set fwrite CRU_PRE_1901-2000_0.5x0.5.grd'
'set x 1 360'
'set y 1 180'

t=1
tmax=1200
while(t<=tmax)
'set t 't
'define p= regrid2(pr,0.5,0.5)'
'define s=p'
'd const(s,-9999.0,-u)'
t=t+1
endwhile
reinit
-------------- next part --------------
DSET ^CRU_PRE_1901-2000_0.5x0.5.grd
TITLE Regrided monthly  data
UNDEF -9999.
options little_endian
XDEF 720 LINEAR 0. 0.5
YDEF 361 LINEAR -90. 0.5
ZDEF 1 levels 1000
TDEF 1200 LINEAR 00Z15jan1901 1mo
VARS 1
s 0 99 Precipitation, mm/d
ENDVARS