Cocal: /home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/cleargeometry.f90 Source File

00001 subroutine cleargeometry
00002   use grid_parameter, only : nrg, ntg, npg
00003   use def_metric_hij, only : hxxd, hxyd, hxzd, hyyd, hyzd, hzzd, &
00004   &                          hxxu, hxyu, hxzu, hyyu, hyzu, hzzu
00005   use def_cristoffel, only : cri
00006   use def_gamma_crist, only : gmcrix, gmcriy, gmcriz
00007   use def_ricci_tensor, only : rab, rabnl
00008   implicit none
00009 !
00010   hxxd(0:nrg,0:ntg,0:npg) = 0.0d0
00011   hxyd(0:nrg,0:ntg,0:npg) = 0.0d0
00012   hxzd(0:nrg,0:ntg,0:npg) = 0.0d0
00013   hyyd(0:nrg,0:ntg,0:npg) = 0.0d0
00014   hyzd(0:nrg,0:ntg,0:npg) = 0.0d0
00015   hzzd(0:nrg,0:ntg,0:npg) = 0.0d0
00016   hxxu(0:nrg,0:ntg,0:npg) = 0.0d0
00017   hxyu(0:nrg,0:ntg,0:npg) = 0.0d0
00018   hxzu(0:nrg,0:ntg,0:npg) = 0.0d0
00019   hyyu(0:nrg,0:ntg,0:npg) = 0.0d0
00020   hyzu(0:nrg,0:ntg,0:npg) = 0.0d0
00021   hzzu(0:nrg,0:ntg,0:npg) = 0.0d0
00022   cri(0:nrg,0:ntg,0:npg,1:3,1:6) = 0.0d0
00023   gmcrix(0:nrg,0:ntg,0:npg) = 0.0d0
00024   gmcriy(0:nrg,0:ntg,0:npg) = 0.0d0
00025   gmcriz(0:nrg,0:ntg,0:npg) = 0.0d0
00026   rab(0:nrg,0:ntg,0:npg,1:6) = 0.0d0
00027   rabnl(0:nrg,0:ntg,0:npg,1:6) = 0.0d0
00028 !
00029 end subroutine cleargeometry