/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/allocate_velocity_potential.f90
Go to the documentation of this file.00001 subroutine allocate_velocity_potential 00002 use phys_constant, only : long 00003 use grid_parameter, only : nrf, ntf, npf, nlg 00004 use def_velocity_potential 00005 use make_array_2d 00006 use make_array_3d 00007 use make_array_4d 00008 implicit none 00009 ! 00010 call alloc_array3d(vep, 0,nrf, 0,ntf, 0,npf) 00011 call alloc_array4d(grad_vep, 0,nrf, 0,ntf, 0,npf, 1,3) 00012 call alloc_array2d(alm, 0,nlg, 0,nlg) 00013 ! 00014 end subroutine allocate_velocity_potential
