RES: creating CTL inside a GS script

[David Mendes]

Hi, Jose
thus you obtains
 David

cam = '/home/david/vento/'
men='-'
say cam

res=write('/home/david/scripts_mensal/vwnd850_cap_2_inv.ctl', DSET' 'cam''av8_2cap_inv.bin)
res=write('/home/david/scripts_mensal/vwnd850_cap_2_inv.ctl', options' 'template)
res=write('/home/david/scripts_mensal/vwnd850_cap_2_inv.ctl', UNDEF'  '999.0)
res=write('/home/david/scripts_mensal/vwnd850_cap_2_inv.ctl', TITLE'  'AOLR)
res=write('/home/david/scripts_mensal/vwnd850_cap_2_inv.ctl', XDEF' '145' 'LINEAR'  '0'  '2.5)
res=write('/home/david/scripts_mensal/vwnd850_cap_2_inv.ctl', YDEF'  '37'  'LINEAR'  'men''90'  '2.5)
res=write('/home/david/scripts_mensal/vwnd850_cap_2_inv.ctl', ZDEF'  '01'  'LEVELS'  '1)
res=write('/home/david/scripts_mensal/vwnd850_cap_2_inv.ctl', TDEF' '388'  'LINEAR'  '00z01jan1979'  '1dy)
res=write('/home/david/scripts_mensal/vwnd850_cap_2_inv.ctl', VARS'  '1)
res=write('/home/david/scripts_mensal/vwnd850_cap_2_inv.ctl', vwnd850'  '1' '99'  'VENTO850)
res=write('/home/david/scripts_mensal/vwnd850_cap_2_inv.ctl', ENDVARS)



-----Mensagem original-----
De:     GRADSUSR at LIST.CINECA.IT em nome de Jose Augusto Paixao Veiga
Enviada:        qui 27-01-2005 15:43
Para:   GRADSUSR at LIST.CINECA.IT
Cc:
Assunto:             creating CTL inside a GS script
Dears

I am creating inside my grads script a CTL archive, however I would like to
put it in an other sub-directory where I am having no success to do this,
how could I do this correctely?

the following example creates my ctl in the current directory where I am
running the script, however I would like to put it in an other subdiretory,
for example.....\home\veiga\CTLs\, how can I do this?


reinit
...
...
...
**********************************************************
write (prec_control.ctl,'dset ^CTRL_PREC.bin')
write (prec_control.ctl,'undef  0.100000E+26')
write (prec_control.ctl,'title  Controle CCM3 model 1961-1990')
write (prec_control.ctl,'xdef  289 LINEAR   0.000000  1.250000')
write (prec_control.ctl,'ydef  181 LINEAR -90.000000  1.000000')
write (prec_control.ctl,'zdef  1 levels  1000      ')
write (prec_control.ctl,'tdef  360 linear 12Z01JAN1961 1mo')
write (prec_control.ctl,'vars  1')
write (prec_control.ctl,'prec  1 99  Convective+Large-scale precipitation
rate [mm/day] ')
write (prec_control.ctl,'endvars')
**********************************************************
...
...
...

thanks
Veiga