Bug fix for unary operator in INITPOST_GFS_NEMS_MPIIO.f. (NOAA-EMC#92)

fossell · Feb 25, 2020 · 51fd766 · 51fd766
1 parent 3d9ec20
commit 51fd766
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f b/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f
@@ -1156,7 +1156,7 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER)
           if (j > jm-jtem+1) then
             npass = npass + nint(0.5*(j-jm+jtem-1))
           elseif (j < jtem)  then
-            npass = npass + nint(0.5*(jtem--j))
+            npass = npass + nint(0.5*(jtem-j))
           endif
 !         npass = 0
 !$omp parallel do private(i,l,ll)