00001 subroutine allocate_metric_and_matter_cartesian_qeos
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_qeos
00006 use make_array_3d
00007 implicit none
00008
00009 call alloc_array3d(rhoca,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 call alloc_array3d(vepca,1,nx,1,ny,1,nz)
00020 call alloc_array3d(wxspca,1,nx,1,ny,1,nz)
00021 call alloc_array3d(wyspca,1,nx,1,ny,1,nz)
00022 call alloc_array3d(wzspca,1,nx,1,ny,1,nz)
00023
00024
00025 end subroutine allocate_metric_and_matter_cartesian_qeos
