00001 subroutine allocate_metric_and_matter_WL
00002 use phys_constant, only : long
00003 use grid_parameter
00004 use def_matter
00005 use def_vector_x
00006 use def_vector_phi
00007 use make_array_2d
00008 use make_array_3d
00009 implicit none
00010
00011 call allocate_metric_WL
00012 call allocate_metric_on_SFC_WL
00013 call allocate_matter_emdrsrho
00014 call allocate_matter_4velocity
00015 call allocate_matter_rotlaw
00016 call alloc_array3d(hhf, 0, nrf, 0, ntf, 0, npf)
00017 call alloc_array3d(lambda, 0, nrf, 0, ntf, 0, npf)
00018
00019 call allocate_vector_x
00020 call allocate_vector_phi
00021
00022 end subroutine allocate_metric_and_matter_WL
