/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine_mpatch/copy_grid_numbers_grav_interpo_from_mpt.f90
Go to the documentation of this file.00001 subroutine copy_grid_numbers_grav_interpo_from_mpt(impt) 00002 use grid_parameter_interpo, only : nrg_itp, ntg_itp, npg_itp 00003 use grid_parameter_mpt, only : grid_param_int_ 00004 implicit none 00005 integer :: i, impt 00006 ! 00007 i=0 00008 i=i+1; nrg_itp = grid_param_int_(i,impt) 00009 i=i+1; ntg_itp = grid_param_int_(i,impt) 00010 i=i+1; npg_itp = grid_param_int_(i,impt) 00011 ! 00012 end subroutine copy_grid_numbers_grav_interpo_from_mpt
