Added array-syntax notation for a full-array copy

Added array-syntax notation for a full-array copy in ISOMIP_Tracer.F90. All answers are bitwise identical.
NOAA-GFDL · May 11, 2020 · b2453e4 · b2453e4
1 parent a6445be
commit b2453e4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/tracer/ISOMIP_tracer.F90 b/src/tracer/ISOMIP_tracer.F90
@@ -287,7 +287,7 @@ subroutine ISOMIP_tracer_column_physics(h_old, h_new,  ea,  eb, fluxes, dt, G, G
 
   if (.not.associated(CS)) return
 
-  melt(:,:) = fluxes%iceshelf_melt
+  melt(:,:) = fluxes%iceshelf_melt(:,:)
 
   ! max. melt
   mmax = MAXVAL(melt(is:ie,js:je))