00001 subroutine allocate_matter_rotlaw
00002 use phys_constant, only : long
00003 use grid_parameter, only : nrg, ntg, npg, nrf, ntf, npf
00004 use def_matter, only : omeg, omef, jomeg, jomef, jomeg_int, jomef_int
00005 use make_array_3d
00006 implicit none
00007
00008 call alloc_array3d(omeg, 0, nrg, 0, ntg, 0, npg)
00009 call alloc_array3d(omef, 0, nrf, 0, ntf, 0, npf)
00010 call alloc_array3d(jomeg, 0, nrg, 0, ntg, 0, npg)
00011 call alloc_array3d(jomef, 0, nrf, 0, ntf, 0, npf)
00012 call alloc_array3d(jomeg_int, 0, nrg, 0, ntg, 0, npg)
00013 call alloc_array3d(jomef_int, 0, nrf, 0, ntf, 0, npf)
00014
00015 end subroutine allocate_matter_rotlaw
