00001 subroutine allocate_metric_on_SFC_CF
00002 use grid_parameter, only : nrf, ntf, npf
00003 use def_metric_on_SFC_CF
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
00016 end subroutine allocate_metric_on_SFC_CF
