Accidentally read in position vectors as velocity when using XV input

MintonGroup · Dec 5, 2022 · d4981a1 · d4981a1
1 parent 0dcc673
commit d4981a1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90
@@ -524,7 +524,7 @@ module function netcdf_read_frame_system(self, nciu, param) result(ierr)
                   if (ntp > 0) tp%vh(i,:) = pack(vectemp(i,:), tpmask(:))
                end do
             else
-               call check( nf90_get_var(nciu%id, nciu%vh_varid, rtemp, start=[1, 1, tslot], count=[NDIM,idmax,1]), "netcdf_read_frame_system nf90_getvar vhx_varid"  )
+               call check( nf90_get_var(nciu%id, nciu%vh_varid, vectemp, start=[1, 1, tslot], count=[NDIM,idmax,1]), "netcdf_read_frame_system nf90_getvar vh_varid"  )
                do i = 1, NDIM
                   if (npl > 0) pl%vh(i,:) = pack(vectemp(i,:), plmask(:))
                   if (ntp > 0) tp%vh(i,:) = pack(vectemp(i,:), tpmask(:))