reset_metric_CF.f90

Go to the documentation of this file.
00001 subroutine reset_metric_CF
00002   use grid_parameter, only : nrg, ntg, npg, ntgxy, npgxzm
00003   use def_metric, only : bvxd, bvzd
00004   implicit none
00005 !
00006 ! Clear the value of bvxd on xz-plane
00007   bvxd(0:nrg,0:ntg,0) = 0.0d0
00008   bvxd(0:nrg,0:ntg,npgxzm) = 0.0d0
00009   bvxd(0:nrg,0:ntg,npg) = 0.0d0
00010   bvxd(0:nrg,  0,0:npg) = 0.0d0
00011   bvxd(0:nrg,ntg,0:npg) = 0.0d0
00012 ! Clear the value of bvzd on xz-plane
00013   bvzd(0:nrg,0:ntg,0) = 0.0d0
00014   bvzd(0:nrg,0:ntg,npgxzm) = 0.0d0
00015   bvzd(0:nrg,0:ntg,npg) = 0.0d0
00016   bvzd(0:nrg,  0,0:npg) = 0.0d0
00017   bvzd(0:nrg,ntg,0:npg) = 0.0d0
00018 ! Clear the value of bvzd on xy-plane
00019   bvzd(0:nrg,ntgxy,0:npg) = 0.0d0
00020 !
00021 end subroutine reset_metric_CF