yorick banner

Home

Manual

Packages

Global Index

Keywords

Quick Reference


#include "Chris/gadget.i"


func AMR_read (noutput=,ncpu=,zcut=)
/* DOCUMENT 
     
   SEE ALSO:
 */
{
if (is_void(noutput)) noutput=3;
if (is_void(ncpu))
 {
ncpu=0; sread,
                         format="%d",
                 splittok(exec("ls -1 amr_00001.out* | wc  "))(1),ncpu;
}
fp= popen("/usr/local/rsi/idl_5.5/bin/idl",1);
//fp= popen("idl",1);         
fname=swrite(format="amr_%0.5i.out00001",noutput);
write,fname;
write,fp,"rd_amr,a,ncpu="+pr1(ncpu)+",file=\'"+fname+"\'\n";fflush,fp;   
fname=swrite(format="hydro_%0.5i.out00001",noutput);
write,fp,"rd_hydro,h,ncpu="+pr1(ncpu)+",file=\'"+fname+"\'\n";fflush,fp;   
fname=swrite(format="part_%0.5i.out00001",noutput);
write,fp,"rd_part,p,ncpu="+pr1(ncpu)+",file=\'"+fname+"\'\n";fflush,fp;   
 write,fp,"xr=[0.,a.nx]&& yr=[0.,a.ny] && zr=[0.,a.nz] \n";
 write,fp,"amr2cell,a,h,c,xr=xr,yr=yr,zr=zr\n";fflush,fp;   

 write,fp,"dg=c.var(*,0) \n"; fflush,fp;
 write,fp,"ug=c.var(*,1)*a.nx/a.boxlen \n"; fflush,fp;
 write,fp,"vg=c.var(*,2)*a.nx/a.boxlen \n"; fflush,fp;
 write,fp,"wg=c.var(*,3)*a.nx/a.boxlen \n"; fflush,fp;
 write,fp,"pg=c.var(*,4)*c.dx^3*(a.nx/a.boxlen)^2 \n"; fflush,fp;
 write,fp,"volg=c.dx^3 \n"; fflush,fp;
 write,fp,"mg=dg*volg \n"; fflush,fp;
 write,fp," print,max(pg);\n"; fflush,fp;

 
 write,fp,"nn=size(c.x) && nn=nn(1) \n"; fflush,fp;
 write,fp,"red=1./a.aexp-1. \n"; fflush,fp;
 write,fp," print,'number of part',nn;\n"; fflush,fp;
 write,fp," print,'redshift',red;\n"; fflush,fp;

  write,fp,"openw,un,'._tmp_size.dat',/get_lun\n"; fflush,fp;
 write,fp,"writeu,un,nn && close,un&& free_lun,un\n";

 write,fp,"openw,un,'._tmp_redshift.dat',/get_lun\n"; fflush,fp;
 write,fp,"writeu,un,red && close,un&& free_lun,un\n";

 write,fp,"openw,un,'._tmp_posx.dat',/get_lun\n"; fflush,fp;
 write,fp,"writeu,un,c.x && close,un&& free_lun,un\n";

 write,fp,"openw,un,'._tmp_posy.dat',/get_lun\n"; fflush,fp;
 write,fp,"writeu,un,c.y && close,un&& free_lun,un\n";

 write,fp,"openw,un,'._tmp_posz.dat',/get_lun\n"; fflush,fp;
 write,fp,"writeu,un,c.z && close,un&& free_lun,un\n";

 write,fp,"openw,un,'._tmp_velx.dat',/get_lun\n"; fflush,fp;
 write,fp,"writeu,un,ug && close,un&& free_lun,un\n";

 write,fp,"openw,un,'._tmp_vely.dat',/get_lun\n"; fflush,fp;
 write,fp,"writeu,un,vg && close,un&& free_lun,un\n";

 write,fp,"openw,un,'._tmp_velz.dat',/get_lun\n"; fflush,fp;
 write,fp,"writeu,un,wg && close,un&& free_lun,un\n";
 
 write,fp,"openw,un,'._tmp_dens.dat',/get_lun\n"; fflush,fp;
 write,fp,"writeu,un,dg && close,un&& free_lun,un\n";

 write,fp,"openw,un,'._tmp_pres.dat',/get_lun\n"; fflush,fp;
 write,fp,"writeu,un,pg && close,un&& free_lun,un\n";

 write,fp,"openw,un,'._tmp_mass.dat',/get_lun\n"; fflush,fp;
 write,fp,"writeu,un,mg && close,un&& free_lun,un\n";

 close,fp;
 
 np=0; _read,open("._tmp_size.dat","rb"),0,np;
 red=float(0.); _read,open("._tmp_redshift.dat","rb"),0,red;
 x=array(float,np); _read,open("._tmp_posx.dat","rb"),0,x;
 y=array(float,np); _read,open("._tmp_posy.dat","rb"),0,y;
 z=array(float,np); _read,open("._tmp_posz.dat","rb"),0,z;
 vx=array(float,np); _read,open("._tmp_velx.dat","rb"),0,vx;
 vy=array(float,np); _read,open("._tmp_vely.dat","rb"),0,vy;
 vz=array(float,np); _read,open("._tmp_velz.dat","rb"),0,vz;

 d=array(float,np); _read,open("._tmp_dens.dat","rb"),0,d;
 p=array(double,np); _read,open("._tmp_pres.dat","rb"),0,p;
 m=array(float,np); _read,open("._tmp_mass.dat","rb"),0,m;
 system,"rm ./._tmp_*.dat";
 q=GadgetSnapshot();
 xyz=transpose([x,y,z]);
 vel=transpose([vx,vy,vz]);
 (q.pos)=&xyz;
 (q.vel)=&vel;
 (q.rho)=&d; (q.u)=&p; (q.mass)=&m;
 q.npart=[np,0,0,0,0,0]; q.redshift=red;
 id=indgen(np);
 (q.id)=&id;
 return q;
}




func AMR_DM_read (noutput=,ncpu=,zcut=)
/* DOCUMENT 
    reads the DM particles only     
   SEE ALSO:
 */
{
if (is_void(noutput)) noutput=3;
if (is_void(ncpu))
 {
ncpu=0; sread,
                         format="%d",
                 splittok(exec("ls -1 amr_00001.out* | wc  "))(1),ncpu;
}
fp= popen("/usr/local/rsi/idl_5.5/bin/idl",1);
//fp= popen("idl",1);         
fname=swrite(format="amr_%0.5i.out00001",noutput);
write,fname;
fname=swrite(format="part_%0.5i.out00001",noutput);
write,fp,"rd_part,p,ncpu="+pr1(ncpu)+",file=\'"+fname+"\'\n";fflush,fp;   
 write,fp,"nn=p.npart \n"; fflush,fp;
 write,fp," print,'number of part',nn;\n"; fflush,fp;

  write,fp,"openw,un,'._tmp_size.dat',/get_lun\n"; fflush,fp;
 write,fp,"writeu,un,nn && close,un&& free_lun,un\n";


 write,fp,"openw,un,'._tmp_pos.dat',/get_lun\n"; fflush,fp;
 write,fp,"writeu,un,p.xp && close,un&& free_lun,un\n";

 write,fp,"openw,un,'._tmp_vel.dat',/get_lun\n"; fflush,fp;
 write,fp,"writeu,un,p.vp  && close,un&& free_lun,un\n";
 
 close,fp;
 
 np=0; _read,open("._tmp_size.dat","rb"),0,np;
 // red=float(0.); _read,open("._tmp_redshift.dat","rb"),0,red;
 xyz=array(float,np,3); _read,open("._tmp_pos.dat","rb"),0,xyz;xyz=transpose(xyz);
 vel=array(float,np,3); _read,open("._tmp_vel.dat","rb"),0,vel;vel=transpose(vel);

 system,"rm ./._tmp_*.dat";
 q=GadgetSnapshot();
 (q.pos)=&xyz;
 (q.vel)=&vel;
 q.npart=[0,np,0,0,0,0]; //q.redshift=red;
 id=indgen(np);
 (q.id)=&id;
 return q;
}









func AMRcutslice (&u,&p,&ux,&uy,&uz,noutput=,ncpu=,zcut=,npix=)
/* DOCUMENT 
   EXAMPLE: q=AMRcutslice(u,p,ux,uy,uz,noutput=1)
   SEE ALSO:
 */
{
  if (is_void(ncpu)) {
    ncpu=0; sread,
                 format="%d",
                 splittok(exec("ls -1 amr_00001.out* | wc  "))(1),ncpu;
  }
  
if (is_void(noutput)) noutput=1;
if (is_void(zcut))  zcut=[0.5];
if (is_void(npix))  npix=1024;
     u=array(0.,npix,npix,numberof(zcut)); 
     p=array(0.,npix,npix,numberof(zcut)); 
     ux=array(0.,npix,npix,numberof(zcut));
     uy=array(0.,npix,npix,numberof(zcut));
     uz=array(0.,npix,npix,numberof(zcut));
 for(i=1;i<=numberof(zcut);i++)
   {
     fp= popen("/usr/local/rsi/idl_5.5/bin/idl",1);        
     fname=swrite(format="amr_%0.5i.out00001",noutput);
     write,fname;
     write,fp,"rd_amr,a,ncpu="+pr1(ncpu)+",file=\'"+fname+"\'\n";fflush,fp;   
     write,fp,"red=1./a.aexp-1. \n"; fflush,fp;
     write,fp," print,'number of part',nn;\n"; fflush,fp;
     write,fp," print,'redshift',red;\n"; fflush,fp;
     fname=swrite(format="hydro_%0.5i.out00001",noutput);
     write,fp,"rd_hydro,h,ncpu="+pr1(ncpu)+",file=\'"+fname+"\'\n";fflush,fp;   
     write,"DOING SLICE ,zcut="+pr1(zcut(i))+"\n";
     write,fp,"slice_fits,a,h,c,zcut="+pr1(zcut(i))+",nim="+pr1(npix)+"\n";fflush,fp;   
     zcuts=swrite(format="%05d",long(npix*zcut(i))+1);
     while(!open("vxkmsm1_slice.zcut_"+zcuts+".dat","r",1)) {}
     while(!open("vykmsm1_slice.zcut_"+zcuts+".dat","r",1)) {}
     while(!open("vzkmsm1_slice.zcut_"+zcuts+".dat","r",1)) {}
     while(!open("density_slice.zcut_"+zcuts+".dat","r",1)) {}
     while(!open("pressure_slice.zcut_"+zcuts+".dat","r",1)) {}
     u1=array(0.,npix,npix); _read,open("density_slice.zcut_"+zcuts+".dat","rb"),0,u1;
     p1=array(0.,npix,npix); _read,open("pressure_slice.zcut_"+zcuts+".dat","rb"),0,p1;
     ux1=array(0.,npix,npix); _read,open("vxkmsm1_slice.zcut_"+zcuts+".dat","rb"),0,ux1;
     uy1=array(0.,npix,npix); _read,open("vykmsm1_slice.zcut_"+zcuts+".dat","rb"),0,uy1;
     uz1=array(0.,npix,npix); _read,open("vzkmsm1_slice.zcut_"+zcuts+".dat","rb"),0,uz1;
     u(,,i)=u1;
     p(,,i)=p1;
     ux(,,i)=ux1;
     uy(,,i)=uy1;
     uz(,,i)=uz1;
     remove,"density_slice.zcut_"+zcuts+".dat";
     remove,"density_slice.zcut_"+zcuts+".dat";
     remove,"pressure_slice.zcut_"+zcuts+".dat";
     remove,"vxkmsm1_slice.zcut_"+zcuts+".dat";
     remove,"vykmsm1_slice.zcut_"+zcuts+".dat";
     remove,"vzkmsm1_slice.zcut_"+zcuts+".dat";
     close,fp;
   }
}