Skip to content

Commit

Permalink
Modification of bugcheck condition for l_fixed_area=T
Browse files Browse the repository at this point in the history
  • Loading branch information
JFLemieux73 committed Sep 12, 2023
1 parent c56ca3e commit a571e82
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions cicecore/cicedyn/dynamics/ice_transport_remap.F90
Original file line number Diff line number Diff line change
Expand Up @@ -63,7 +63,7 @@ module ice_transport_remap
! if false, area flux is determined internally
! and is passed out

logical (kind=log_kind), parameter :: bugcheck = .true.
logical (kind=log_kind), parameter :: bugcheck = .false.

!=======================================================================
! Here is some information about how the incremental remapping scheme
Expand Down Expand Up @@ -3008,7 +3008,7 @@ subroutine locate_triangles (nx_block, ny_block, &
do ij = 1, icellsd
i = indxid(ij)
j = indxjd(ij)
if (abs(areasum(i,j) - edgearea(i,j)) > eps13*areafac_c(i,j)) then
if ( abs(areasum(i,j) - edgearea(i,j)) > eps13*areafac_c(i,j) .and. abs(edgearea(i,j)) > c0 ) then
write(nu_diag,*) ''
write(nu_diag,*) 'Areas do not add up: m, i, j, edge =', &
my_task, i, j, trim(edge)
Expand Down

0 comments on commit a571e82

Please sign in to comment.