commited on MG3_v1 on 03/19/2020

SamuelTrahanNOAA · Mar 19, 2020 · b745df8 · b745df8
1 parent 6466b91
commit b745df8
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/physics/aerinterp.F90 b/physics/aerinterp.F90
@@ -179,7 +179,13 @@ SUBROUTINE read_aerdata (me, master, iflip, idate )
           endif 
           do i = 1, hmx
           aerin(i+hmx,j,k,ii,imon) = 1.d0*buffx(i,j,klev,1)
+          if(aerin(i+hmx,j,k,ii,imon)<0.or.aerin(i+hmx,j,k,ii,imon)>1.)  then
+            aerin(i+hmx,j,k,ii,imon) = 0.
+          end if
           aerin(i,j,k,ii,imon) = 1.d0*buffx(i+hmx,j,klev,1)
+          if(aerin(i,j,k,ii,imon)<0.or.aerin(i,j,k,ii,imon)>1.)  then
+            aerin(i,j,k,ii,imon) = 0.
+          end if
           enddo    !i-loop (lon)
          enddo     !k-loop (lev)
          enddo     !j-loop (lat)