allocate_metric_CF.f90

Go to the documentation of this file.
00001 subroutine allocate_metric_CF
00002   use phys_constant, only : long
00003   use grid_parameter
00004   use def_metric
00005   use make_array_3d
00006   use make_array_5d
00007   implicit none
00008 !
00009   call alloc_array3d(psi , 0, nrg, 0, ntg, 0, npg)
00010   call alloc_array3d(alph, 0, nrg, 0, ntg, 0, npg)
00011   call alloc_array3d(alps, 0, nrg, 0, ntg, 0, npg)
00012   call alloc_array3d(bvxd, 0, nrg, 0, ntg, 0, npg)
00013   call alloc_array3d(bvyd, 0, nrg, 0, ntg, 0, npg)
00014   call alloc_array3d(bvzd, 0, nrg, 0, ntg, 0, npg)
00015 !
00016 end subroutine allocate_metric_CF