Skip to content

Commit

Permalink
ALE: Float ID inequality replaced with integer
Browse files Browse the repository at this point in the history
A diagnostic ID was compared to floating point 0. to test if it had been
set.  This patch replaces this with an integer inequality test.

This resolves GitHub Issue mom-ocean#1016.

Thanks to Stephen Griffies for reporting.
  • Loading branch information
marshallward committed Oct 8, 2019
1 parent ceaca56 commit b4f5264
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions src/ALE/MOM_ALE.F90
Original file line number Diff line number Diff line change
Expand Up @@ -799,12 +799,12 @@ subroutine remap_all_state_vars(CS_remapping, CS_ALE, G, GV, h_old, h_new, Reg,

! Intermediate steps for tendency of tracer concentration and tracer content.
if (present(dt)) then
if (Tr%id_remap_conc>0) then
if (Tr%id_remap_conc > 0) then
do k=1,GV%ke
work_conc(i,j,k) = (u_column(k) - Tr%t(i,j,k) ) * Idt
work_conc(i,j,k) = (u_column(k) - Tr%t(i,j,k)) * Idt
enddo
endif
if (Tr%id_remap_cont>0. .or. Tr%id_remap_cont_2d>0) then
if (Tr%id_remap_cont > 0 .or. Tr%id_remap_cont_2d > 0) then
do k=1,GV%ke
work_cont(i,j,k) = (u_column(k)*h2(k) - Tr%t(i,j,k)*h1(k)) * Idt
enddo
Expand Down

0 comments on commit b4f5264

Please sign in to comment.