/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine_mpatch/adjust_copy_helm_test_to_mpt.f90
Go to the documentation of this file.00001 subroutine adjust_copy_helm_test_to_mpt(niq,msec_x) 00002 use phys_constant, only : long, nmpt 00003 use grid_parameter, only : rgin 00004 use def_binary_parameter, only : dis, sepa 00005 use def_bh_parameter, only : ome_bh 00006 implicit none 00007 integer :: niq, ii 00008 real(long) :: msec_x(niq) 00009 ! 00010 do ii = 1, nmpt 00011 call copy_grid_parameter_from_mpt(ii) 00012 call copy_def_binary_parameter_from_mpt(ii) 00013 call copy_def_bh_parameter_from_mpt(ii) 00014 if (ii.eq.1) then 00015 dis = msec_x(1) 00016 end if 00017 if (ii.eq.2) then 00018 dis = sepa - msec_x(1) 00019 end if 00020 call copy_grid_parameter_to_mpt(ii) 00021 call copy_def_binary_parameter_to_mpt(ii) 00022 call copy_def_bh_parameter_to_mpt(ii) 00023 end do 00024 ! 00025 end subroutine adjust_copy_helm_test_to_mpt
