interpo_gr2fl_metric_WL.f90

Go to the documentation of this file.
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
00006   use interface_interpo_gr2fl
00007   implicit none
00008  !
00009   call interpo_gr2fl(alph, alphf)
00010   call interpo_gr2fl(psi, psif)
00011   call interpo_gr2fl(bvxd, bvxdf)
00012   call interpo_gr2fl(bvyd, bvydf)
00013   call interpo_gr2fl(bvzd, bvzdf)
00014   call interpo_gr2fl(bvxu, bvxuf)
00015   call interpo_gr2fl(bvyu, bvyuf)
00016   call interpo_gr2fl(bvzu, bvzuf)
00017 !
00018   call interpo_gr2fl(hxxd, hxxdf)
00019   call interpo_gr2fl(hxyd, hxydf)
00020   call interpo_gr2fl(hxzd, hxzdf)
00021   call interpo_gr2fl(hyyd, hyydf)
00022   call interpo_gr2fl(hyzd, hyzdf)
00023   call interpo_gr2fl(hzzd, hzzdf)
00024   call interpo_gr2fl(hxxu, hxxuf)
00025   call interpo_gr2fl(hxyu, hxyuf)
00026   call interpo_gr2fl(hxzu, hxzuf)
00027   call interpo_gr2fl(hyyu, hyyuf)
00028   call interpo_gr2fl(hyzu, hyzuf)
00029   call interpo_gr2fl(hzzu, hzzuf)
00030 !
00031 end subroutine interpo_gr2fl_metric_WL