From d0e99df664dedf1eefd597612331d39c5f917593 Mon Sep 17 00:00:00 2001 From: Nic Hannah Date: Tue, 28 Jul 2015 10:49:28 -0400 Subject: [PATCH] Don't build diagnostic Z remapping grids if grid definition param not provided. #62 --- src/framework/MOM_diag_mediator.F90 | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/framework/MOM_diag_mediator.F90 b/src/framework/MOM_diag_mediator.F90 index 2386ec0de1..dd0a901e8b 100644 --- a/src/framework/MOM_diag_mediator.F90 +++ b/src/framework/MOM_diag_mediator.F90 @@ -780,6 +780,13 @@ subroutine diag_update_target_grids(diag_cs) nz_src = size(diag_cs%h, 3) G => diag_cs%G + ! The interface positions for z remapping were not provided, so don't do + ! anything. If z remapping of diagnostics is requested then an error will + ! be triggered on post(). See param DIAG_REMAP_Z_GRID_DEF + if (.not. allocated(diag_cs%zi_remap)) then + return + endif + if (.not. diag_cs%remapping_initialized) then call assert(allocated(diag_cs%zi_remap), & 'update_diag_target_grids: Remapping axis not initialized')