/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine_mpatch/adjust_copy_ome_cm_ratio_from_mpt.f90
Go to the documentation of this file.00001 subroutine adjust_copy_ome_cm_ratio_from_mpt(niq,msec_x_oold) 00002 use phys_constant, only : long, nmpt 00003 use grid_parameter, only : rgin 00004 use def_binary_parameter, only : dis 00005 use def_bh_parameter, only : ome_bh 00006 implicit none 00007 integer :: niq 00008 real(long) :: msec_x_oold(niq) 00009 ! 00010 call copy_def_bh_parameter_from_mpt(1) 00011 msec_x_oold(1) = ome_bh 00012 call copy_def_binary_parameter_from_mpt(1) 00013 msec_x_oold(2) = dis 00014 call copy_grid_parameter_from_mpt(2) 00015 msec_x_oold(3) = rgin 00016 call copy_grid_parameter_from_mpt(nmpt) 00017 call copy_def_binary_parameter_from_mpt(nmpt) 00018 call copy_def_bh_parameter_from_mpt(nmpt) 00019 ! 00020 end subroutine adjust_copy_ome_cm_ratio_from_mpt
