Remove vkzm_size variable

src/trapping/cfrfme.cpp

@@ -58,7 +58,7 @@ void frfme(string data_file, string output_path) {
   double frsh = 0.0, exril = 0.0;
   int nlmmt = 0, nrvc = 0;
   // Vector size variables
-  int vkzm_size, wsum_size;
+  int wsum_size;
   // End of vector size variables
   if (jlmf != 1) {
     int nxv, nyv, nzv;
@@ -91,7 +91,6 @@ void frfme(string data_file, string output_path) {
       if (temptape2.is_open()) {
 	for (int jx = 0; jx < nkv; jx++) temptape2.read(reinterpret_cast<char *>(&(vkv[jx])), sizeof(double));
 	vkzm = new double*[nkv];
-	vkzm_size = nkv;
 	for (int vki = 0; vki < nkv; vki++) vkzm[vki] = new double[nkv]();
 	for (int jy10 = 0; jy10 < nkv; jy10++) {
 	  for (int jx10 = 0; jx10 < nkv; jx10++) {
@@ -447,7 +446,7 @@ void frfme(string data_file, string output_path) {
   if (zv != NULL) delete[] zv;
   if (vkv != NULL) delete[] vkv;
   if (vkzm != NULL) {
-    for (int vki = vkzm_size - 1; vki > -1; vki--) delete[] vkzm[vki];
+    for (int vki = nkv - 1; vki > -1; vki--) delete[] vkzm[vki];
     delete[] vkzm;
   }
   if (w != NULL) {