/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/allocate_matter_emdrsrhof.f90
Go to the documentation of this file.00001 subroutine allocate_matter_emdrsrhof 00002 use grid_parameter 00003 use def_matter, only : emd, rs, rhof 00004 use make_array_2d 00005 use make_array_3d 00006 implicit none 00007 ! 00008 call alloc_array2d(rs, 0, ntf, 0, npf) 00009 call alloc_array3d(emd, 0, nrf, 0, ntf, 0, npf) 00010 call alloc_array3d(rhof, 0, nrf, 0, ntf, 0, npf) 00011 ! 00012 end subroutine allocate_matter_emdrsrhof
