/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/current_sfc2sph_MHD.f90
Go to the documentation of this file.00001 subroutine current_sfc2sph_MHD 00002 use phys_constant, only : long 00003 use def_emfield, only : jtuf, jxuf, jyuf, jzuf, jtu, jxu, jyu, jzu 00004 use interface_interpo_fl2gr 00005 implicit none 00006 ! 00007 call interpo_fl2gr(jtuf, jtu) 00008 call interpo_fl2gr(jxuf, jxu) 00009 call interpo_fl2gr(jyuf, jyu) 00010 call interpo_fl2gr(jzuf, jzu) 00011 ! 00012 end subroutine current_sfc2sph_MHD
