; file: dolinefigs.pro = main to produce set of RH output figs ; init: Feb 14 2012 ; note: @file so no begin....end blocks .r makefigSBJtemp .r makefigS2level .r makefigbetasline .r makefigexttau .r makefigintprof if (opengv) then spawn,'pkill -s 0 gv &' xgeo=25 ygeo=25 xgeostr=strtrim(strmid(string(xgeo,format='(i5)'),1),2) ygeostr=strtrim(strmid(string(ygeo,format='(i5)'),1),2) if (opengv) then spawn,'/usr/bin/gv -watch -scale=2 -geometry +'+xgeostr+'+'+ygeostr+' fig-SBJtemp-'+modelname+'-'+filelinename+'.ps &' if (opengv) then spawn,'sleep 0.5' xgeo=xgeo+50 ygeo=ygeo+50 xgeostr=strtrim(strmid(string(xgeo,format='(i5)'),1),2) ygeostr=strtrim(strmid(string(ygeo,format='(i5)'),1),2) if (opengv) then spawn,'/usr/bin/gv -watch -scale=2 -geometry +'+xgeostr+'+'+ygeostr+' fig-S2level-'+modelname+'-'+filelinename+'.ps &' if (opengv) then spawn,'sleep 0.5' xgeo=xgeo+50 ygeo=ygeo+50 xgeostr=strtrim(strmid(string(xgeo,format='(i5)'),1),2) ygeostr=strtrim(strmid(string(ygeo,format='(i5)'),1),2) if (opengv) then spawn,'/usr/bin/gv -watch -scale=2 -geometry +'+xgeostr+'+'+ygeostr+' fig-eps-eta-'+modelname+'-'+filelinename+'.ps &' if (opengv) then spawn,'sleep 0.5' xgeo=xgeo+50 ygeo=ygeo+50 xgeostr=strtrim(strmid(string(xgeo,format='(i5)'),1),2) ygeostr=strtrim(strmid(string(ygeo,format='(i5)'),1),2) if (opengv) then spawn,'/usr/bin/gv -watch -scale=2 -geometry +'+xgeostr+'+'+ygeostr+' fig-betas-'+modelname+'-'+filelinename+'.ps &' if (opengv) then spawn,'sleep 0.5' xgeo=xgeo+50 ygeo=ygeo+50 xgeostr=strtrim(strmid(string(xgeo,format='(i5)'),1),2) ygeostr=strtrim(strmid(string(ygeo,format='(i5)'),1),2) if (opengv) then spawn,'/usr/bin/gv -watch -scale=2 -geometry +'+xgeostr+'+'+ygeostr+' fig-exttau-'+modelname+'-'+filelinename+'.ps &' if (opengv) then spawn,'sleep 0.5' xgeo=xgeo+50 ygeo=ygeo+50 xgeostr=strtrim(strmid(string(xgeo,format='(i5)'),1),2) ygeostr=strtrim(strmid(string(ygeo,format='(i5)'),1),2) if (opengv) then spawn,'/usr/bin/gv -watch -scale=2 -geometry +'+xgeostr+'+'+ygeostr+' fig-intprof-'+modelname+'-'+filelinename+'.ps &'