Skip to content

Commit

Permalink
Restored local work array needed for ISOMIP_tracers
Browse files Browse the repository at this point in the history
- For some unknown reason the declaration of a necessary work array
  was deleted. This code did not compile.
  • Loading branch information
adcroft committed Oct 21, 2016
1 parent 87e47d9 commit 46ce1b0
Showing 1 changed file with 1 addition and 0 deletions.
1 change: 1 addition & 0 deletions src/tracer/ISOMIP_tracer.F90
Original file line number Diff line number Diff line change
Expand Up @@ -336,6 +336,7 @@ subroutine ISOMIP_tracer_column_physics(h_old, h_new, ea, eb, fluxes, dt, G, G
real :: mmax
real :: b1(SZI_(G)) ! b1 and c1 are variables used by the
real :: c1(SZI_(G),SZK_(G)) ! tridiagonal solver.
real, dimension(SZI_(G),SZJ_(G),SZK_(G)) :: h_work ! Used so that h can be modified
real :: melt(SZI_(G),SZJ_(G)) ! melt water (positive for melting
! negative for freezing)
integer :: i, j, k, is, ie, js, je, nz, m
Expand Down

0 comments on commit 46ce1b0

Please sign in to comment.