00001 subroutine allocate_metric_CF_mpt
00002 use phys_constant, only : nmpt
00003 use grid_parameter, only : nrg, ntg, npg
00004 use def_metric_mpt
00005 use make_array_4d
00006 implicit none
00007
00008 call alloc_array4d(psi_ , 0,nrg, 0,ntg, 0,npg, 1,nmpt)
00009 call alloc_array4d(alph_, 0,nrg, 0,ntg, 0,npg, 1,nmpt)
00010 call alloc_array4d(alps_, 0,nrg, 0,ntg, 0,npg, 1,nmpt)
00011 call alloc_array4d(bvxd_, 0,nrg, 0,ntg, 0,npg, 1,nmpt)
00012 call alloc_array4d(bvyd_, 0,nrg, 0,ntg, 0,npg, 1,nmpt)
00013 call alloc_array4d(bvzd_, 0,nrg, 0,ntg, 0,npg, 1,nmpt)
00014
00015 end subroutine allocate_metric_CF_mpt
