| 1 | ;;--------------------------------------- |
|---|
| 2 | ; MOVIES |
|---|
| 3 | ; |
|---|
| 4 | ; check parameters then type: |
|---|
| 5 | ; |
|---|
| 6 | ; @movie.idl |
|---|
| 7 | ; |
|---|
| 8 | ;;--------------------------------------- |
|---|
| 9 | |
|---|
| 10 | @user.idl |
|---|
| 11 | |
|---|
| 12 | denom=plot+'_'+coord+'_'+field1 |
|---|
| 13 | |
|---|
| 14 | if (already_data eq 'yes') then SPAWN, 'ln -sf '+folder+'/'+coord+'.input.ctl input.ctl' |
|---|
| 15 | if (already_data eq 'yes') then SPAWN, 'ln -sf '+folder+'/'+coord+'.input.dat input.dat' |
|---|
| 16 | |
|---|
| 17 | SPAWN, '\rm map_latlon_user' |
|---|
| 18 | SPAWN, 'tail -15 user.idl > map_latlon_user' |
|---|
| 19 | .compile map_latlon |
|---|
| 20 | |
|---|
| 21 | SPAWN, '\rm section_user' |
|---|
| 22 | SPAWN, 'tail -15 user.idl > section_user' |
|---|
| 23 | .compile section |
|---|
| 24 | |
|---|
| 25 | for i=1,num do $ |
|---|
| 26 | out_wrf, $ |
|---|
| 27 | plot=plot, $ |
|---|
| 28 | field1=field1, $ |
|---|
| 29 | field2=field2, $ |
|---|
| 30 | when=i, $ |
|---|
| 31 | winds=winds, $ |
|---|
| 32 | level=level,$ |
|---|
| 33 | save_data=yeah,$ |
|---|
| 34 | topo=topo,$ |
|---|
| 35 | range=range,$ |
|---|
| 36 | colors=colors, $ |
|---|
| 37 | nlon=nlon, $ |
|---|
| 38 | nlat=nlat |
|---|
| 39 | |
|---|
| 40 | print, 'generating movie ...' |
|---|
| 41 | SPAWN, 'rm -rf temp' |
|---|
| 42 | SPAWN, 'mkdir temp' |
|---|
| 43 | SPAWN, 'mv -f '+denom+'??.ps temp' |
|---|
| 44 | SPAWN, 'cp bigconvert200 temp' |
|---|
| 45 | SPAWN, 'cd temp ; bigconvert200 *.ps ; convert -delay 60 *.png movie.gif ; cd ..' |
|---|
| 46 | if (nomovie ne 'yes') then SPAWN, 'animate temp/movie.gif &' |
|---|
| 47 | print, 'done' |
|---|
| 48 | SPAWN, 'mv -f temp/'+denom+'??.ps '+folder+'/' |
|---|
| 49 | SPAWN, 'mv -f temp/movie.gif '+folder+'/'+denom+'.gif' |
|---|
| 50 | SPAWN, 'mv -f temp/'+denom+'??.png '+folder+'/' |
|---|
| 51 | if (backup_data eq 'yes') then SPAWN, 'cp -f namelist.ARWpost '+folder+'/'+coord+'.namelist.ARWpost' |
|---|
| 52 | if (backup_data eq 'yes') then SPAWN, 'cp -f input.ctl '+folder+'/'+coord+'.input.ctl' |
|---|
| 53 | if (backup_data eq 'yes') then SPAWN, 'cp -f input.dat '+folder+'/'+coord+'.input.dat' |
|---|
| 54 | |
|---|
| 55 | SPAWN, 'cp -f user.idl '+folder+'/'+denom+'.idl' |
|---|
