00001 subroutine allocate_metric_and_matter_cartesian
00002 use phys_constant, only : long
00003 use grid_parameter_cartesian, only : nx, ny, nz
00004 use def_metric_cartesian
00005 use def_matter_cartesian
00006 use make_array_3d
00007 implicit none
00008
00009 call alloc_array3d(emdca,1,nx,1,ny,1,nz)
00010 call alloc_array3d(vxca,1,nx,1,ny,1,nz)
00011 call alloc_array3d(vyca,1,nx,1,ny,1,nz)
00012 call alloc_array3d(vzca,1,nx,1,ny,1,nz)
00013 call alloc_array3d(psica,1,nx,1,ny,1,nz)
00014 call alloc_array3d(alphca,1,nx,1,ny,1,nz)
00015 call alloc_array3d(bvxdca,1,nx,1,ny,1,nz)
00016 call alloc_array3d(bvydca,1,nx,1,ny,1,nz)
00017 call alloc_array3d(bvzdca,1,nx,1,ny,1,nz)
00018
00019 end subroutine allocate_metric_and_matter_cartesian
