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
