/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/reset_metric_CF_AH.f90
Go to the documentation of this file.00001 subroutine reset_metric_CF_AH 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_AH
