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