| 1 | ;;--------------------------------------- |
|---|
| 2 | ; REPORT |
|---|
| 3 | ; |
|---|
| 4 | ; set parameters in user.idl then type: |
|---|
| 5 | ; |
|---|
| 6 | ; @report.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 | |
|---|
| 41 | SPAWN, '\rm report.comments' |
|---|
| 42 | SPAWN, 'echo '+plot+' > report.comments' |
|---|
| 43 | SPAWN, 'echo '+plot+' >> report.comments' |
|---|
| 44 | ;SPAWN, 'echo '+coord+' >> report.comments' ;;attention avec le _ |
|---|
| 45 | SPAWN, 'rm -f '+denom+'_.ps' |
|---|
| 46 | print, 'executing ... ','base '+denom+'??.ps < report.comments' |
|---|
| 47 | SPAWN, 'base '+denom+'??.ps < report.comments' |
|---|
| 48 | SPAWN, 'mv -f base.ps '+denom+'_.ps' |
|---|
| 49 | SPAWN, 'mv -f ./'+denom+'??.ps '+folder+'/' |
|---|
| 50 | SPAWN, 'mv -f ./'+denom+'_.ps '+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' |
|---|
