00001 subroutine allocate_metric_and_matter_WL_cartesian
00002 use phys_constant, only : long
00003 use grid_parameter_cartesian, only : nx, ny, nz
00004 use def_metric_cartesian
00005 use def_metric_hij_cartesian
00006 use def_matter_cartesian
00007 use make_array_3d
00008 implicit none
00009
00010 call alloc_array3d(emdca,1,nx,1,ny,1,nz)
00011 call alloc_array3d(utca,1,nx,1,ny,1,nz)
00012 call alloc_array3d(vxca,1,nx,1,ny,1,nz)
00013 call alloc_array3d(vyca,1,nx,1,ny,1,nz)
00014 call alloc_array3d(vzca,1,nx,1,ny,1,nz)
00015 call alloc_array3d(psica,1,nx,1,ny,1,nz)
00016 call alloc_array3d(alphca,1,nx,1,ny,1,nz)
00017 call alloc_array3d(bvxdca,1,nx,1,ny,1,nz)
00018 call alloc_array3d(bvydca,1,nx,1,ny,1,nz)
00019 call alloc_array3d(bvzdca,1,nx,1,ny,1,nz)
00020 call alloc_array3d(bvxuca,1,nx,1,ny,1,nz)
00021 call alloc_array3d(bvyuca,1,nx,1,ny,1,nz)
00022 call alloc_array3d(bvzuca,1,nx,1,ny,1,nz)
00023 call alloc_array3d(hxxdca,1,nx,1,ny,1,nz)
00024 call alloc_array3d(hxydca,1,nx,1,ny,1,nz)
00025 call alloc_array3d(hxzdca,1,nx,1,ny,1,nz)
00026 call alloc_array3d(hyydca,1,nx,1,ny,1,nz)
00027 call alloc_array3d(hyzdca,1,nx,1,ny,1,nz)
00028 call alloc_array3d(hzzdca,1,nx,1,ny,1,nz)
00029
00030 end subroutine allocate_metric_and_matter_WL_cartesian
