From 46ce1b03e0d83bb387d8b7ee8d84a0bc74122bc3 Mon Sep 17 00:00:00 2001 From: Alistair Adcroft Date: Fri, 21 Oct 2016 11:30:49 -0400 Subject: [PATCH] Restored local work array needed for ISOMIP_tracers - For some unknown reason the declaration of a necessary work array was deleted. This code did not compile. --- src/tracer/ISOMIP_tracer.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/tracer/ISOMIP_tracer.F90 b/src/tracer/ISOMIP_tracer.F90 index 9da0cdbb0c..a02be8368a 100644 --- a/src/tracer/ISOMIP_tracer.F90 +++ b/src/tracer/ISOMIP_tracer.F90 @@ -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