00001 subroutine interpo_gr2fl_metric_WL
00002 use def_metric, only : alph, psi, bvxd, bvyd, bvzd, &
00003 & bvxu, bvyu, bvzu
00004 use def_metric_hij
00005 use def_metric_on_SFC_CF
00006 use def_metric_on_SFC_WL
00007 use interface_interpo_gr2fl
00008 implicit none
00009
00010 call interpo_gr2fl(alph, alphf)
00011 call interpo_gr2fl(psi, psif)
00012 call interpo_gr2fl(bvxd, bvxdf)
00013 call interpo_gr2fl(bvyd, bvydf)
00014 call interpo_gr2fl(bvzd, bvzdf)
00015 call interpo_gr2fl(bvxu, bvxuf)
00016 call interpo_gr2fl(bvyu, bvyuf)
00017 call interpo_gr2fl(bvzu, bvzuf)
00018
00019 call interpo_gr2fl(hxxd, hxxdf)
00020 call interpo_gr2fl(hxyd, hxydf)
00021 call interpo_gr2fl(hxzd, hxzdf)
00022 call interpo_gr2fl(hyyd, hyydf)
00023 call interpo_gr2fl(hyzd, hyzdf)
00024 call interpo_gr2fl(hzzd, hzzdf)
00025 call interpo_gr2fl(hxxu, hxxuf)
00026 call interpo_gr2fl(hxyu, hxyuf)
00027 call interpo_gr2fl(hxzu, hxzuf)
00028 call interpo_gr2fl(hyyu, hyyuf)
00029 call interpo_gr2fl(hyzu, hyzuf)
00030 call interpo_gr2fl(hzzu, hzzuf)
00031
00032 end subroutine interpo_gr2fl_metric_WL
