/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/allocate_matter_3velocity.f90
Go to the documentation of this file.00001 subroutine allocate_matter_3velocity 00002 use phys_constant, only : long 00003 use grid_parameter 00004 use def_matter_velocity, only : vxu, vyu, vzu 00005 use make_array_3d 00006 implicit none 00007 ! 00008 call alloc_array3d(vxu, 0,nrf, 0,ntf, 0,npf) 00009 call alloc_array3d(vyu, 0,nrf, 0,ntf, 0,npf) 00010 call alloc_array3d(vzu, 0,nrf, 0,ntf, 0,npf) 00011 ! 00012 end subroutine allocate_matter_3velocity
