00001 subroutine allocate_matter
00002 use phys_constant, only : long
00003 use grid_parameter
00004 use def_metric
00005 use def_matter
00006 use def_velocity_rot
00007 use make_array_2d
00008 use make_array_3d
00009 implicit none
00010
00011 call alloc_array2d(rs, 0, ntf, 0, npf)
00012 call alloc_array3d(emdg, 0, nrg, 0, ntg, 0, npg)
00013 call alloc_array3d(emd, 0, nrf, 0, ntf, 0, npf)
00014 call alloc_array3d(utg, 0, nrg, 0, ntg, 0, npg)
00015 call alloc_array3d(utf, 0, nrf, 0, ntf, 0, npf)
00016 call alloc_array3d(omeg, 0, nrg, 0, ntg, 0, npg)
00017 call alloc_array3d(omef, 0, nrf, 0, ntf, 0, npf)
00018 call alloc_array3d(jomeg, 0, nrg, 0, ntg, 0, npg)
00019 call alloc_array3d(jomef, 0, nrf, 0, ntf, 0, npf)
00020 call alloc_array3d(jomeg_int, 0, nrg, 0, ntg, 0, npg)
00021 call alloc_array3d(jomef_int, 0, nrf, 0, ntf, 0, npf)
00022
00023 call alloc_array3d(vep, 0, nrf, 0, ntf, 0, npf)
00024 call alloc_array3d(vepxf, 0, nrf, 0, ntf, 0, npf)
00025 call alloc_array3d(vepyf, 0, nrf, 0, ntf, 0, npf)
00026 call alloc_array3d(vepzf, 0, nrf, 0, ntf, 0, npf)
00027 call alloc_array3d(wxspf, 0, nrf, 0, ntf, 0, npf)
00028 call alloc_array3d(wyspf, 0, nrf, 0, ntf, 0, npf)
00029 call alloc_array3d(wzspf, 0, nrf, 0, ntf, 0, npf)
00030
00031 end subroutine allocate_matter
