bug in varid of ihop_idw_weights

IvanaEscobar · Nov 7, 2023 · 7edc596 · 7edc596
1 parent f46a883
commit 7edc596
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ihop_init_fixed.F b/src/ihop_init_fixed.F
@@ -100,7 +100,7 @@ SUBROUTINE IHOP_INIT_FIXED( myThid )
       err = NF_GET_VAR( ncid, varid1, data1vec )
       err = NF_GET_VAR( ncid, varid2, data2vec )
       err = NF_GET_VAR( ncid, varid3, data3vec )
-      err = NF_GET_VAR( ncid, varid3, data4vec )
+      err = NF_GET_VAR( ncid, varid4, data4vec )
 
       IF (err .NE. NF_NOERR) THEN
         WRITE(msgBuf, '(2A)') 'S/R IHOP_INIT_FIXED: ',