Skip to content

Commit

Permalink
Merge pull request NOAA-GFDL#36 from GEOS-ESM/hotfix/bmauer/fixes_#35
Browse files Browse the repository at this point in the history
  • Loading branch information
mathomp4 authored Mar 17, 2021
2 parents 056b944 + a19dbcd commit cefc1f9
Showing 1 changed file with 5 additions and 1 deletion.
6 changes: 5 additions & 1 deletion geos_utils/fv_regridding_utils.F90
Original file line number Diff line number Diff line change
Expand Up @@ -244,7 +244,11 @@ subroutine remap_edge(q1,q2,is,ie,km,kn,ak,bk)
integer i,k
do i=is,ie
do k=1,kn+1
q2(i,k)=ak(k)+bk(k)*q1(i,km+1)
if (bk(k)==0.0) then
q2(i,k)=0.0
else
q2(i,k)=bk(k)*q1(i,km+1)
end if
enddo
enddo

Expand Down

0 comments on commit cefc1f9

Please sign in to comment.