Skip to content

Commit

Permalink
Merge branch 'susburrows/atm/bugfix-ice_itd-array-syntax' (PR #400)
Browse files Browse the repository at this point in the history
Fix bug in array syntax in ice_itd.F90

Fixes an error encountered when compiling with intel DEBUG mode on
edison. In this bug, the code fails at runtime in ice_itd.F90 with a
message stating:

"Subscript #1 of the array ATRCR has value 1 which is greater than the
upper bound of 0"

This is fixed as described on DiscussCESM
(https://bb.cgd.ucar.edu/error-running-compset-fsdwsf-ert), by
removing the explicit array syntax in the call to compute_tracers().

Fixes #339

[BFB]
  • Loading branch information
singhbalwinder committed Oct 29, 2015
2 parents 848be69 + ab10ca1 commit 4052475
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions components/cice/src/source/ice_itd.F90
Original file line number Diff line number Diff line change
Expand Up @@ -476,9 +476,9 @@ subroutine aggregate (nx_block, ny_block, &
call compute_tracers (nx_block, ny_block, &
icells, indxi, indxj, &
ntrcr, trcr_depend, &
atrcr(:,:), aice(:,:), &
vice (:,:), vsno(:,:), &
trcr(:,:,:))
atrcr, aice, &
vice, vsno, &
trcr)

deallocate (atrcr)

Expand Down

0 comments on commit 4052475

Please sign in to comment.