/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/interpolation_fl2gr_IDall.f90
Go to the documentation of this file.00001 subroutine interpolation_fl2gr_IDall 00002 use phys_constant, only : long 00003 use def_matter, only : emd, rhof, utf, uxf, uyf, uzf, & 00004 & emdg, rhog, utg, uxg, uyg, uzg 00005 use interface_interpo_fl2gr 00006 ! 00007 call interpo_fl2gr(emd, emdg) 00008 call interpo_fl2gr(rhof,rhog) 00009 call interpo_fl2gr(utf, utg) 00010 call interpo_fl2gr(uxf, uxg) 00011 call interpo_fl2gr(uyf, uyg) 00012 call interpo_fl2gr(uzf, uzg) 00013 ! 00014 end subroutine interpolation_fl2gr_IDall
