00001 subroutine allocate_emfield_cartesian
00002 use phys_constant, only : long
00003 use grid_parameter_cartesian, only : nx, ny, nz
00004 use def_emfield_cartesian
00005 use def_faraday_tensor_cartesian
00006 use make_array_3d
00007 use make_array_4d
00008 implicit none
00009
00010 call alloc_array3d(vaca,1,nx,1,ny,1,nz)
00011 call alloc_array3d(vaxdca,1,nx,1,ny,1,nz)
00012 call alloc_array3d(vaydca,1,nx,1,ny,1,nz)
00013 call alloc_array3d(vazdca,1,nx,1,ny,1,nz)
00014 call alloc_array3d(fxd_gridca,1,nx,1,ny,1,nz)
00015 call alloc_array3d(fyd_gridca,1,nx,1,ny,1,nz)
00016 call alloc_array3d(fzd_gridca,1,nx,1,ny,1,nz)
00017 call alloc_array4d(fijd_gridca,1,nx,1,ny,1,nz,1,3)
00018
00019 end subroutine allocate_emfield_cartesian
