how to fwrite data from a while loop

[Dan Barrie]

Hi Ooi,

Thanks for the suggestion. Unfortunately, that didn't work for me. Any
other ideas?

-Dan




See Hai Ooi wrote:
> Hi,
>
>     I am not clear about your intended output.
> Perhaps you could try the following:-
>
> *
>   'reinit'
> *
>   'open project/ERA40_test.ctl'
>   'set gxout fwrite'
>   'set fwrite project/peakvalues.data'
> *
>   'set lon 140 260'
>   'set lat 15 75'
>   'set lev 775'
> *
>   countt = 12
>   while(countt<=528)
>      'set t 'countt
>      'define d=vv'
>       countt=countt+1
>      'set t 'countt
>      'define j=vv'
>       countt=countt+1
>      'set t 'countt
>      'define f=vv'
>      'define win=(d+j+f)/3'
> *
>      a=1959
>      'define
> pval=aave(win'a',lon=189,lon=207,lat=51,lat=64)'
>      'd pval'
>      a=a+1
> *
>      countt = countt + 10
>   endwhile
> *
>   'disable fwrite'
>
>    Hope this helps. Regards.
>
> Ooi
>
>
> --- Dan Barrie <dbarrie at ATMOS.UMD.EDU> wrote:
>
>
>> Hi everyone,
>>
>> I am having a relatively simple problem with a grads
>> script I wrote. I
>> am simply looking for the script to output a data
>> file with the result
>> of every incremental passage through a while loop.
>> The loop I have
>> written is hopefully producing only one data point
>> each time through.
>> All I am getting out is a blank data file. I have
>> copied my script
>> below. Thank you in advance for your help.
>>
>> Sincerely,
>>
>> Dan Barrie
>>
>>
>>
>> 'reinit'
>>
>> 'open project/ERA40_test.ctl'
>>
>> 'set lon 140 260'
>> 'set lat 15 75'
>> 'set lev 775'
>> 'set t 1 528'
>> countt = 12
>> a=1959
>> 'set fwrite project/peakvalues.data'
>> 'set gxout fwrite'
>>  while(countt<=527)
>>      'set t 'countt
>>      'define d=vv'
>>       countt=countt+1
>>      'set t 'countt
>>      'define j=vv'
>>       countt=countt+1
>>      'set t 'countt
>>      'define f=vv'
>>      'define win=(d+j+f)/3'
>>      'define
>> pval=aave(win'a',lon=189,lon=207,lat=51,lat=64)'
>>      'd pval'
>>      a=a+1
>>      countt = countt + 10
>>  endwhile
>> 'disable fwrite'
>>
>>
>
>
> Send instant messages to your online friends http://uk.messenger.yahoo.com
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://gradsusr.org/pipermail/gradsusr/attachments/20060506/e857cf85/attachment.html