/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine_mpatch/calc_physical_quantities_BBH_CF_mpt.f90
Go to the documentation of this file.00001 subroutine calc_physical_quantities_BBH_CF_mpt 00002 use phys_constant, only : long, nmpt 00003 implicit none 00004 integer :: impt 00005 ! 00006 ! -- Asymptotic mass and angular momentum 00007 impt = nmpt 00008 call copy_from_mpatch_all_BBH_CF(impt) 00009 call copy_def_metric_from_mpt(impt) 00010 call calc_vector_x_grav(2) 00011 call calc_vector_phi_grav(2) 00012 call calc_vector_bh(2) 00013 call excurve_CF_gridpoint_bhex 00014 call calc_mass_asympto('bh') 00015 call calc_angmom_asympto('bh') 00016 call calc_admmom_asympto('bh') 00017 call copy_def_quantities_to_mpt(impt) 00018 ! 00019 do impt = 1, 2 00020 call copy_from_mpatch_all_BBH_CF(impt) 00021 call copy_def_metric_from_mpt(impt) 00022 call calc_AH_BBH_CF 00023 call copy_def_quantities_bh_to_mpt(impt) 00024 end do 00025 ! 00026 end subroutine calc_physical_quantities_BBH_CF_mpt
