/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/copy_hgfn_dh_to_hgfn.f90

Go to the documentation of this file.

subroutine copy_hgfn_dh_to_hgfn
  use grid_parameter, only : nrg, nlg
  use copy_array_3d
  use radial_green_fn_grav, only : hgfn, gfnsf
  use radial_green_fn_grav_bhex_dh, only : hgfn_dh, gfnsf_dh
  implicit none
  call copy_array3d(hgfn_dh,hgfn,1,nrg,0,nlg,0,nrg)
  call copy_array3d(gfnsf_dh,gfnsf,0,nlg,0,nrg,1,4)
end subroutine copy_hgfn_dh_to_hgfn

---