/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine_mpatch/adjust_copy_helm_test_from_mpt.f90
Go to the documentation of this file.00001 subroutine adjust_copy_helm_test_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_binary_parameter_from_mpt(1) 00011 msec_x_oold(1) = dis 00012 call copy_grid_parameter_from_mpt(nmpt) 00013 call copy_def_binary_parameter_from_mpt(nmpt) 00014 call copy_def_bh_parameter_from_mpt(nmpt) 00015 ! 00016 end subroutine adjust_copy_helm_test_from_mpt
