/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine_mpatch/copy_def_quantities_BNS_to_mpt.f90

Go to the documentation of this file.

subroutine copy_def_quantities_BNS_to_mpt(impt)
  use def_quantities
  use def_quantities_mpt
  implicit none
  integer :: i, impt, ia, ib
!
   def_quantities_real_( 1,impt) = admmass
   def_quantities_real_( 2,impt) = komarmass
   def_quantities_real_( 3,impt) = komarmass_nc
   def_quantities_real_( 4,impt) = restmass
   def_quantities_real_( 5,impt) = propermass
   def_quantities_real_( 6,impt) = angmom
   def_quantities_real_( 7,impt) = admmass_asymp
   def_quantities_real_( 8,impt) = komarmass_asymp
   def_quantities_real_( 9,impt) = angmom_asymp
   def_quantities_real_(10,impt) = admmom_asymp(1)
   def_quantities_real_(11,impt) = admmom_asymp(2)
   def_quantities_real_(12,impt) = admmom_asymp(3)
!
   def_quantities_real_(13,impt) = T_kinene
   def_quantities_real_(14,impt) = W_gravene
   def_quantities_real_(15,impt) = P_intene
   def_quantities_real_(16,impt) = M_emfene
   def_quantities_real_(17,impt) = M_torBene
   def_quantities_real_(18,impt) = M_polBene
   def_quantities_real_(19,impt) = M_eleEene

   def_quantities_real_(20,impt) = Virial

   def_quantities_real_(21,impt) = ToverW
   def_quantities_real_(22,impt) = PoverW
   def_quantities_real_(23,impt) = MoverW
   def_quantities_real_(24,impt) = MtorBoverW
   def_quantities_real_(25,impt) = MpolBoverW
   def_quantities_real_(26,impt) = MeleEoverW

   def_quantities_real_(27,impt) = I_inertia

   def_quantities_real_(28,impt) = gravmass_sph
   def_quantities_real_(29,impt) = restmass_sph
   def_quantities_real_(30,impt) = propermass_sph
   def_quantities_real_(31,impt) = MoverR_sph

   def_quantities_real_(32,impt) = schwarz_radi_sph
   def_quantities_real_(33,impt) = coord_radius_x
   def_quantities_real_(34,impt) = coord_radius_y
   def_quantities_real_(35,impt) = coord_radius_z
   def_quantities_real_(36,impt) = proper_radius_x
   def_quantities_real_(37,impt) = proper_radius_y
   def_quantities_real_(38,impt) = proper_radius_z

   def_quantities_real_(39,impt) = schwarz_radi_sph_km
   def_quantities_real_(40,impt) = coord_radius_x_km
   def_quantities_real_(41,impt) = coord_radius_y_km
   def_quantities_real_(42,impt) = coord_radius_z_km
   def_quantities_real_(43,impt) = proper_radius_x_km
   def_quantities_real_(44,impt) = proper_radius_y_km
   def_quantities_real_(45,impt) = proper_radius_z_km

   def_quantities_real_(46,impt) = rho_c
   def_quantities_real_(47,impt) = pre_c
   def_quantities_real_(48,impt) = epsi_c
   def_quantities_real_(49,impt) = q_c
   def_quantities_real_(50,impt) = rho_max
   def_quantities_real_(51,impt) = pre_max
   def_quantities_real_(52,impt) = epsi_max
   def_quantities_real_(53,impt) = q_max

   def_quantities_real_(54,impt) = rho_c_cgs
   def_quantities_real_(55,impt) = pre_c_cgs
   def_quantities_real_(56,impt) = epsi_c_cgs
   def_quantities_real_(57,impt) = q_c_cgs
   def_quantities_real_(58,impt) = rho_max_cgs
   def_quantities_real_(59,impt) = pre_max_cgs
   def_quantities_real_(60,impt) = epsi_max_cgs
   def_quantities_real_(61,impt) = q_max_cgs

   def_quantities_real_(62,impt) = zrb_xp_plus
   def_quantities_real_(63,impt) = zrb_xp_minus
   def_quantities_real_(64,impt) = zrb_yp_plus
   def_quantities_real_(65,impt) = zrb_yp_minus
   def_quantities_real_(66,impt) = zrb_zp_plus
   def_quantities_real_(67,impt) = zrb_zp_minus

   def_quantities_real_(68,impt) = dhdr_x
   def_quantities_real_(69,impt) = dhdr_y
   def_quantities_real_(70,impt) = dhdr_z
   def_quantities_real_(71,impt) = chi_cusp

   def_quantities_real_(72,impt) = circ_line_xy
   def_quantities_real_(73,impt) = circ_line_yz
   def_quantities_real_(74,impt) = circ_line_zx
   def_quantities_real_(75,impt) = circ_surf_xy
   def_quantities_real_(76,impt) = circ_surf_yz
   def_quantities_real_(77,impt) = circ_surf_zx

   def_quantities_real_(78,impt) = ome_cgs
!
!   do ib = 1, 3
!     do ia = 1, 3
!       i=i+1; def_quantities_real_(i,impt) = Iij(ia, ib)
!       i=i+1; def_quantities_real_(i,impt) = Itf(ia, ib)
!       i=i+1; def_quantities_real_(i,impt) = dt1Itf(ia, ib)
!       i=i+1; def_quantities_real_(i,impt) = dt2Itf(ia, ib)
!       i=i+1; def_quantities_real_(i,impt) = dt3Itf(ia, ib)
!     end do
!   end do
!
!   def_quantities_real_(i,impt) = LGW
!
!   do ia = 1, 3
!     i=i+1; def_quantities_real_(i,impt) = dJdt(ia)
!   end do
!
!   def_quantities_real_(i,impt) = hplus
!   def_quantities_real_(i,impt) = hcross
!
!
end subroutine copy_def_quantities_BNS_to_mpt

---