'reinit'
'open /stornext/online2/ocean/simulations/exp200/dataout/ic01/ic2007/01/atmos/CGCM/template.ctl'
times=01jan2275
timee=31dec2300

'set time 'times' 'timee
'q dims'
res=sublin(result,5)
ts=subwrd(res,11)
te=subwrd(res,13)

'set gxout fwrite'
'set fwrite ./data/daily.22750101_23001231.gdat'
ti=ts
while ( ti <= te )
'set t 'ti
'd role'
ti=ti+1
endwhile

'disable fwrite'
'quit'