source: trunk/mesoscale/LMD_MM_MARS/SRC/ARWpost/scripts/rain.gs @ 13

Last change on this file since 13 was 11, checked in by aslmd, 14 years ago

spiga@svn-planeto:ajoute le modele meso-echelle martien

  • Property svn:executable set to *
File size: 904 bytes
Line 
1'reinit'
2'open real_p.ctl'
3
4** Need a real dataset that contain rainc and rainnc
5
6'set mpdset hires'
7'set display color white'
8'run rgbset.gs'
9
10
11say 'Create gif images as well (1=yes ; 0=no)'
12pull ans
13frame = 1
14
15'q file'
16rec=sublin(result,5)
17_endtime=subwrd(rec,12)
18
19runscript = 1
20dis_t = 1
21
22while(runscript)
23
24'set t ' dis_t
25'q dims'
26rec=sublin(result,5)
27_analysis=subwrd(rec,6)
28say 'Time is ' _analysis
29
30'c'
31'set grads off'
32'set gxout shaded'
33'set clevs .1 .2 .4 .8 1.6 3.2 6.4 12.8 25.6 51.6 '
34'set ccols 0  33 34 35 36 37 38 39 7 8 2'
35'd rainc+rainnc'
36*'draw title Total Precip (color,mm)'
37'set strsiz .2'
38'set string 1 l 6'
39'draw string 3.2 8.35 Total Precip (color,mm)'
40'set strsiz .15'
41'set string 1 l 3'
42'draw string 7.5 8.0 ' _analysis
43'run cbar.gs'
44if(ans)
45'printim raintotal'frame'.gif gif '
46frame=frame+1
47endif
48pull dummy
49
50if ( dis_t=_endtime )
51 runscript=0
52endif
53dis_t = dis_t + 1
54endwhile
55
Note: See TracBrowser for help on using the repository browser.