Not necessary to build a new grid.

mom-ocean · Jun 22, 2015 · 734d9f1 · 734d9f1
1 parent 6b117eb
commit 734d9f1
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/framework/MOM_diag_mediator.F90 b/src/framework/MOM_diag_mediator.F90
@@ -731,11 +731,11 @@ subroutine remap_column_to_z(regrid_cs, remap_cs, nz_src, nz_dest, h, depth, &
 
   ! Calculate thicknesses for new Z* using nominal thicknesses from
   ! h_remap, current bathymetry and total thickness.
-  call buildGridZstarColumn(regrid_cs, nz_dest, depth, sum(h(:)), zi_tmp)
+  !call buildGridZstarColumn(regrid_cs, nz_dest, depth, sum(h(:)), zi_tmp)
   ! Calculate how much thicknesses change between source and dest grids, do
   ! remapping
-  zi_tmp = -zi_tmp
-  h_dest(:) = zi_tmp(2:) - zi_tmp(:size(zi_tmp)-1)
+  ! zi_tmp = -zi_tmp
+  h_dest(:) = zi_remap(2:) - zi_remap(:size(zi_remap)-1)
   call dzFromH1H2(nz_src, h(:), nz_dest, h_dest, dz)
   call remapping_core(remap_cs, nz_src, h(:), field(:), nz_dest, dz, &
                       remapped_field(:))