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

lgannoaa · Feb 25, 2020 · e7be856 · e7be856
1 parent 5b49c60
commit e7be856
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)