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