Reverting some unneeded changes.

EricJames-NOAA · Aug 29, 2024 · 92b6345 · 92b6345
1 parent 4a12228
commit 92b6345
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 9 deletions.
diff --git a/sorc/ncep_post.fd/INITPOST_MPAS.F b/sorc/ncep_post.fd/INITPOST_MPAS.F
@@ -285,11 +285,7 @@ SUBROUTINE INITPOST_MPAS
 !  fill up UH which is U at P-points including 2 row halo
        do j = jsta_2l, jend_2u
         do i = 1, im
-           if(dum3d(i,j,l)<spval) then
             UH (I,J,L) = (dum3d(I,J,L)+dum3d(I+1,J,L))*0.5
-           else
-            UH (I,J,L) = spval
-           endif
         end do
        end do
       end do
@@ -306,11 +302,7 @@ SUBROUTINE INITPOST_MPAS
 !  fill up VH which is V at P-points including 2 row halo
        do j = jsta_2l, jend_2u
         do i = 1, im
-         if(dum3d(i,j,l)<spval) then
           VH(I,J,L) = (dum3d(I,J,L)+dum3d(I,J+1,L))*0.5
-         else
-          VH(I,J,L) = spval
-         endif
         end do
        end do
       end do

diff --git a/sorc/ncep_post.fd/MDLFLD.f b/sorc/ncep_post.fd/MDLFLD.f
@@ -779,7 +779,7 @@ SUBROUTINE MDLFLD
         DO L=1,LM
           LL=LM-L+1
           IF(T(I,J,LL)<spval)THEN
-!            IF(T(I,J,LL) < 1.0E-3)print*,'ZERO T'
+            IF(T(I,J,LL) < 1.0E-3)print*,'ZERO T'
             IF(T(I,J,LL) > 1.0E-3)                            &
              RHOD=PMID(I,J,LL)/                                  &
                (RD*T(I,J,LL)*(Q(I,J,LL)*D608+1.0))      ! DENSITY