00001 subroutine interpo_gr2fl_metric_CF
00002 use def_metric, only : alph, psi, bvxd, bvyd, bvzd, &
00003 & bvxu, bvyu, bvzu
00004 use def_metric_on_SFC_CF
00005 use interface_interpo_gr2fl
00006 implicit none
00007
00008 call interpo_gr2fl(alph, alphf)
00009 call interpo_gr2fl(psi, psif)
00010 call interpo_gr2fl(bvxd, bvxdf)
00011 call interpo_gr2fl(bvyd, bvydf)
00012 call interpo_gr2fl(bvzd, bvzdf)
00013 call interpo_gr2fl(bvxu, bvxuf)
00014 call interpo_gr2fl(bvyu, bvyuf)
00015 call interpo_gr2fl(bvzu, bvzuf)
00016
00017 end subroutine interpo_gr2fl_metric_CF
