EPOS/epos167/epos.incico

   1 c-------------------------------------------------------------------------
   2 c               initial conditions for hydro
   3 c-------------------------------------------------------------------------
   4
   5       real xminico,xmaxico,yminico,ymaxico,zminico,zmaxico
   6       integer nxico,nyico,nzico
   7       real IcoE, IcoV, IcoF
   8
   9       parameter (xminico=-10.25,xmaxico=10.25)       !x range
  10       parameter (yminico=-10.25,ymaxico=10.25)       !y range
  11       parameter (zminico= -6.25,zmaxico= 6.25)       !eta range
  12
  13       parameter (nxico=41,nyico=41,nzico=25) !number of bins (uneven!!!)
  14
  15       !---------------------------------------------------------------------
  16       !  We think in terms of bins:
  17       !    xminico, yminico,zminico: lower end of 1st bin
  18       !    xmaxico,ymaxico,zmaxico: upper end of last bin
  19       !  Concerning the mean value for the bins number "i":
  20       !   x_i=xminico+(i-0.5)*(xmaxico-xminico)/nxico
  21       !   y_j=xminico+(j-0.5)*(ymaxico-yminico)/nyico
  22       !   z_k=xminico+(k-0.5)*(zmaxico-zminico)/nzico
  23       !---------------------------------------------------------------------
  24
  25       common /Ico3/ IcoE(nxico,nyico,nzico)
  26       common /Ico4/ IcoV(3,nxico,nyico,nzico)
  27       common /Ico5/ IcoF(3,nxico,nyico,nzico)
  28
  29       !---------------------------------------------------------------------
  30       !/Ico3/  IcoE(ix,iy,iz)         energy-density
  31       !
  32       !/Ico4/  IcoV(1,ix,iy,iz)       x-velocity
  33       !        IcoV(2,ix,iy,iz)       y-velocity
  34       !        IcoV(3,ix,iy,iz)       z-velocity
  35       !
  36       !/Ico5 / IcoF(1,ix,iy,iz)       net flavor density of up
  37       !        IcoF(2,ix,iy,iz)       net flavor density of down
  38       !        IcoF(3,ix,iy,iz)       net flavor density of strange
  39       !--------------------------------------------------------------------
  40       !   ix,iy,iz ....... transverse coordinates + pseudo-rapidity eta
  41       !--------------------------------------------------------------------
  42
  43       real tauico
  44       common/ctauico/tauico