[gradsusr] Day of week showing ???

[leila amini]

>
> hi
>
thanks for reply
i do what you say but i cant solve my problem
it is my script
please help me
thanks
leila

'reinit'
'c'
'open 20210121_00.d01.ctl'

t=4
'set t 't
'query time'
res=subwrd(result,3)
issued=substr(res,4,12)

t=14
f=1
while (t<=25)
'set t 't
'query time'
res=subwrd(result,3)
hh=substr(res,1,3)
dd=substr(res,4,2)
mm=substr(res,6,3)
yy=substr(res,9,4)
'query time'


if (month < 3)
month = month + 12
year = year -1
endif

dow = math_mod(day + math_int((13*(month+1))/5) + year + math_int(year/4) -
math_int(year/100) + math_int(year/400),7)

fday=subwrd(result,8)
say dd'/'mm'/'yy' 'hh
'set mpdset hires'
'set display color white'
'run scripts/rgbset.gs'
'set grads off'
'set gxout shaded'
'set clevs  0  12.5 37.5 62.5 87.5 '
'set ccols  0  31 33 35 37 39'
'd clfmi'
*'set font 1 file
/opt/grads-2.0.1.oga.1/Contents/Resources/SupportData/font1.dat'
'set font 1'
'set strsiz .18'
'set string 1 l 8'
'draw string  1.6 8.0  Middle-cloud(%) 3hrs vt: 'fday'-'dd'-'mm'-'yy' 'hh''
'set string 1 l 8'
'draw xlab  ESFAHAN MET WRF(7KM) issued:'issued''
'run scripts/cbar.gs'
*'run scripts/cbarc.gs'
'set line 9'
#'draw shp NWP/1.shp'
'draw shp NWP/2.shp'
'draw shp iran2017_DD/iran2017_DD/iran2017_2.shp'
#'draw shp NWP/3.shp'
#'draw shp NWP/sahr_DD3.shp'
'set line 0 1 5'
'printim midclod/Midcloud-'f'.jpg jpg white '
'clear'
t=t+1
f=f+1
endwhile








> _______________________________________________
> gradsusr mailing list
> gradsusr at gradsusr.org
> http://gradsusr.org/mailman/listinfo/gradsusr
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://gradsusr.org/pipermail/gradsusr/attachments/20210121/a0ab4a78/attachment.html>