Downsample Diagnostics, fix symmetric memory case

- This updates fixes the symetric memory case. By hook or by crook, the downsampled diagnostics now run for both symmetric and non-symmetric memory cases.
NOAA-GFDL · Oct 30, 2018 · 1cfc384 · 1cfc384
1 parent 16fef4f
commit 1cfc384
Show file tree

Hide file tree

Showing 2 changed files with 159 additions and 140 deletions.
diff --git a/src/core/MOM_grid.F90 b/src/core/MOM_grid.F90
@@ -350,12 +350,17 @@ subroutine MOM_grid_init(G, param_file, HI, global_indexing, bathymetry_at_vel)
                                           G%HId2%isg, G%HId2%ieg, G%HId2%jsg, G%HId2%jeg)
 
   ! Set array sizes for fields that are discretized at tracer cell boundaries.
-  G%HId2%IegB = G%HId2%ieg ; G%HId2%JegB = G%HId2%jeg
+  G%HId2%IscB = G%HId2%isc ; G%HId2%JscB = G%HId2%jsc
   G%HId2%IsdB = G%HId2%isd ; G%HId2%JsdB = G%HId2%jsd
+  G%HId2%IsgB = G%HId2%isg ; G%HId2%JsgB = G%HId2%jsg
   if (G%symmetric) then
+    G%HId2%IscB = G%HId2%isc-1 ; G%HId2%JscB = G%HId2%jsc-1
     G%HId2%IsdB = G%HId2%isd-1 ; G%HId2%JsdB = G%HId2%jsd-1
+    G%HId2%IsgB = G%HId2%isg-1 ; G%HId2%JsgB = G%HId2%jsg-1
   endif
+  G%HId2%IecB = G%HId2%iec ; G%HId2%JecB = G%HId2%jec
   G%HId2%IedB = G%HId2%ied ; G%HId2%JedB = G%HId2%jed
+  G%HId2%IegB = G%HId2%ieg ; G%HId2%JegB = G%HId2%jeg
 
 end subroutine MOM_grid_init