From 02a82901d70ce1d4b1e43772a7c1774fb7ceb272 Mon Sep 17 00:00:00 2001 From: Helin Wei Date: Mon, 13 Sep 2021 22:15:35 -0400 Subject: [PATCH] correct the index in the surface.f --- sorc/ncep_post.fd/SURFCE.f | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/sorc/ncep_post.fd/SURFCE.f b/sorc/ncep_post.fd/SURFCE.f index a1254cfef..94b1d6463 100644 --- a/sorc/ncep_post.fd/SURFCE.f +++ b/sorc/ncep_post.fd/SURFCE.f @@ -1221,7 +1221,7 @@ SUBROUTINE SURFCE endif ENDIF - IF ( IGET(994)>0 )THEN + IF ( IGET(996)>0 )THEN if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(994)) @@ -1235,7 +1235,7 @@ SUBROUTINE SURFCE endif ENDIF - IF ( IGET(995)>0 )THEN + IF ( IGET(997)>0 )THEN if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(995)) @@ -1249,7 +1249,7 @@ SUBROUTINE SURFCE endif ENDIF - IF ( IGET(996)>0 )THEN + IF ( IGET(998)>0 )THEN if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(996)) @@ -1263,7 +1263,7 @@ SUBROUTINE SURFCE endif ENDIF - IF ( IGET(997)>0 )THEN + IF ( IGET(999)>0 )THEN if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(997)) @@ -1277,7 +1277,7 @@ SUBROUTINE SURFCE endif ENDIF - IF ( IGET(998)>0 )THEN + IF ( IGET(1000)>0 )THEN if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(998)) @@ -1291,7 +1291,7 @@ SUBROUTINE SURFCE endif ENDIF - IF ( IGET(999)>0 )THEN + IF ( IGET(1001)>0 )THEN if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(999)) @@ -1305,7 +1305,7 @@ SUBROUTINE SURFCE endif ENDIF - IF ( IGET(1000)>0 )THEN + IF ( IGET(1002)>0 )THEN if(grib=='grib2') then cfld=cfld+1 fld_info(cfld)%ifld=IAVBLFLD(IGET(1000))