/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine_mpatch/copy_from_mpatch_exsurf_binary_COCP.f90
Go to the documentation of this file.00001 subroutine copy_from_mpatch_exsurf_binary_COCP(impt) 00002 ! 00003 implicit none 00004 integer :: impt 00005 ! 00006 call copy_grid_parameter_from_mpt(impt) 00007 call copy_grid_parameter_binary_excision_from_mpt(impt) 00008 call copy_grid_points_binary_excision_from_mpt(impt) 00009 call copy_coordinate_grav_r_from_mpt(impt) 00010 call copy_coordinate_grav_theta_from_mpt(impt) 00011 call copy_coordinate_grav_phi_from_mpt(impt) 00012 call copy_coordinate_grav_extended_from_mpt(impt) 00013 call copy_def_binary_parameter_from_mpt(impt) 00014 ! 00015 end subroutine copy_from_mpatch_exsurf_binary_COCP
