Skip to content

Commit

Permalink
pff
Browse files Browse the repository at this point in the history
  • Loading branch information
Raphael Dussin authored and Raphael Dussin committed Aug 22, 2019
1 parent a8f3fb3 commit 36ca30d
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion config_src/coupled_driver/MOM_surface_forcing.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1579,7 +1579,7 @@ subroutine check_mask_val_consistency(val, mask, i, j)
character(len=48) :: ci, cj !< model grid cell indices as strings
character(len=256) :: error_message !< error message to be displayed

if (mask == 0.) .and. (val /= 0.) then
if ((mask == 0.) .and. (val /= 0.)) then
write(ci, '(I8)') i
write(cj, '(I8)') j
error_message = "MOM_surface_forcing: found non-zero value over land "//&
Expand Down

0 comments on commit 36ca30d

Please sign in to comment.