00001 subroutine allocate_metric_on_SFC_WL
00002 use grid_parameter, only : nrf, ntf, npf
00003 use def_metric_on_SFC_WL
00004 use make_array_3d
00005 implicit none
00006
00007 call alloc_array3d(psif, 0, nrf, 0, ntf, 0, npf)
00008 call alloc_array3d(alphf, 0, nrf, 0, ntf, 0, npf)
00009 call alloc_array3d(bvxdf, 0, nrf, 0, ntf, 0, npf)
00010 call alloc_array3d(bvydf, 0, nrf, 0, ntf, 0, npf)
00011 call alloc_array3d(bvzdf, 0, nrf, 0, ntf, 0, npf)
00012 call alloc_array3d(bvxuf, 0, nrf, 0, ntf, 0, npf)
00013 call alloc_array3d(bvyuf, 0, nrf, 0, ntf, 0, npf)
00014 call alloc_array3d(bvzuf, 0, nrf, 0, ntf, 0, npf)
00015 call alloc_array3d(hxxdf, 0, nrf, 0, ntf, 0, npf)
00016 call alloc_array3d(hxydf, 0, nrf, 0, ntf, 0, npf)
00017 call alloc_array3d(hxzdf, 0, nrf, 0, ntf, 0, npf)
00018 call alloc_array3d(hyydf, 0, nrf, 0, ntf, 0, npf)
00019 call alloc_array3d(hyzdf, 0, nrf, 0, ntf, 0, npf)
00020 call alloc_array3d(hzzdf, 0, nrf, 0, ntf, 0, npf)
00021 call alloc_array3d(hxxuf, 0, nrf, 0, ntf, 0, npf)
00022 call alloc_array3d(hxyuf, 0, nrf, 0, ntf, 0, npf)
00023 call alloc_array3d(hxzuf, 0, nrf, 0, ntf, 0, npf)
00024 call alloc_array3d(hyyuf, 0, nrf, 0, ntf, 0, npf)
00025 call alloc_array3d(hyzuf, 0, nrf, 0, ntf, 0, npf)
00026 call alloc_array3d(hzzuf, 0, nrf, 0, ntf, 0, npf)
00027
00028 end subroutine allocate_metric_on_SFC_WL
