/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine_mpatch/adjust_copy_ome_cm_ratio_to_mpt.f90
Go to the documentation of this file.00001 subroutine adjust_copy_ome_cm_ratio_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 ome_bh = msec_x(1) 00016 dis = msec_x(2) 00017 end if 00018 if (ii.eq.2) then 00019 ome_bh = msec_x(1) 00020 dis = sepa - msec_x(2) 00021 rgin = msec_x(3) 00022 end if 00023 if (ii.eq.nmpt) then 00024 ome_bh = msec_x(1) 00025 end if 00026 call copy_grid_parameter_to_mpt(ii) 00027 call copy_def_binary_parameter_to_mpt(ii) 00028 call copy_def_bh_parameter_to_mpt(ii) 00029 end do 00030 ! 00031 end subroutine adjust_copy_ome_cm_ratio_to_mpt
