From 7edc5960f82b32c8a6ea81a9f965bead885ecc76 Mon Sep 17 00:00:00 2001 From: Ivana Escobar Date: Tue, 7 Nov 2023 15:21:30 -0600 Subject: [PATCH] bug in varid of ihop_idw_weights --- src/ihop_init_fixed.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ihop_init_fixed.F b/src/ihop_init_fixed.F index ef0806b..86e347e 100644 --- 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: ',