/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine_mpatch/copy_grid_parameter_binary_excision_interpo_from_mpt.f90
Go to the documentation of this file.00001 subroutine copy_grid_parameter_binary_excision_interpo_from_mpt(impt) 00002 use grid_parameter_binary_excision_mpt 00003 use grid_parameter_binary_excision_interpo 00004 implicit none 00005 integer :: i, impt 00006 ! 00007 i=0 00008 i=i+1; ex_nrg_itp = grid_param_bin_ex_int_(i,impt) 00009 i=i+1; ex_ndis_itp = grid_param_bin_ex_int_(i,impt) 00010 00011 i=0 00012 i=i+1; ex_radius_itp = grid_param_bin_ex_real_(i,impt) 00013 i=i+1; ex_rgin_itp = grid_param_bin_ex_real_(i,impt) 00014 i=i+1; ex_rgmid_itp = grid_param_bin_ex_real_(i,impt) 00015 i=i+1; ex_rgout_itp = grid_param_bin_ex_real_(i,impt) 00016 ! 00017 end subroutine copy_grid_parameter_binary_excision_interpo_from_mpt
