From e7be8565d412986287d50f7d80470ab1810c7996 Mon Sep 17 00:00:00 2001 From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com> Date: Tue, 25 Feb 2020 09:34:59 -0500 Subject: [PATCH] Bug fix for unary operator in INITPOST_GFS_NEMS_MPIIO.f. (#92) --- sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f b/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f index 7f7153cca0..08356ee7c6 100644 --- 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)