rename to vcNt, vcNz

missing-user · Dec 7, 2024 · 20d9a04 · 20d9a04
1 parent f3a3fa4
commit 20d9a04
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/src/casing.f90 b/src/casing.f90
@@ -255,7 +255,7 @@ subroutine casinggrid( xyz, nxyz,  Pbxyz, Jxyz, vcstride, gBn)
   plasmaNtz = vcNz*vcNt
   ! loop over the high resolution plasma boundary (inner boundary for virtual casing)
   do jk = 1, plasmaNtz, vcstride ;
-      ! position on computational boundary - position on plasma boundary
+      ! distance vector between point on computational boundary and point on plasma boundary
       rr = xyz - Pbxyz(jk, 1:3)
       jj = Jxyz(jk, 1:3)
 
@@ -588,7 +588,7 @@ subroutine dvcfield( Ndim, tz, Nfun, vcintegrand )
 
   call surfacecurrent(tz(1), tz(2), pxyz, jj)
 
-  ! position on computational boundary - position on plasma boundary
+  ! distance vector between point on computational boundary and point on plasma boundary
   rr(1:3) = Dxyz(1:3,globaljk) - pxyz(1:3)
 
 !-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!

diff --git a/src/global.f90 b/src/global.f90
@@ -1858,8 +1858,8 @@ subroutine wrtend
   write(iunit,'(" vcasingtol  = ",es23.15       )') vcasingtol
   write(iunit,'(" vcasingits  = ",i9            )') vcasingits
   write(iunit,'(" vcasingper  = ",i9            )') vcasingper
-  write(iunit,'(" vcnt        = ",i9            )') vcnt
-  write(iunit,'(" vcnz        = ",i9            )') vcnz
+  write(iunit,'(" vcNt        = ",i9            )') vcNt
+  write(iunit,'(" vcNz        = ",i9            )') vcNz
   write(iunit,'("/")')
 
   if( Wwrtend ) then ; cput = GETTIME ; write(ounit,'("wrtend : ",f10.2," : myid=",i3," ; writing diagnosticslist ;")') cput-cpus, myid

diff --git a/src/sphdf5.f90 b/src/sphdf5.f90
@@ -345,8 +345,8 @@ subroutine mirror_input_to_outfile
   HWRITEIV( grpInputGlobal,            1,  vcasingits        , (/ vcasingits  /))
   HWRITEIV( grpInputGlobal,            1,  vcasingper        , (/ vcasingper  /))
   HWRITEIV( grpInputGlobal,            1,  mcasingcal        , (/ mcasingcal  /))  ! redundant;
-  HWRITEIV( grpInputGlobal,            1,  vcnt              , (/ vcnt        /))
-  HWRITEIV( grpInputGlobal,            1,  vcnz              , (/ vcnz        /))
+  HWRITEIV( grpInputGlobal,            1,  vcNt              , (/ vcNt        /))
+  HWRITEIV( grpInputGlobal,            1,  vcNz              , (/ vcNz        /))
 
   HCLOSEGRP( grpInputGlobal )