From 92e87b687d70fa5a0a501e5004eb06ad09102179 Mon Sep 17 00:00:00 2001 From: "Rusty.Benson" Date: Wed, 22 Apr 2020 11:55:19 -0400 Subject: [PATCH] fixed diagnotic if-tests for gnu compiler (fv_diagnostics.F90) --- tools/fv_diagnostics.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tools/fv_diagnostics.F90 b/tools/fv_diagnostics.F90 index 68c1621b3..bac8fa440 100644 --- a/tools/fv_diagnostics.F90 +++ b/tools/fv_diagnostics.F90 @@ -1987,7 +1987,7 @@ subroutine fv_diag(Atm, zvir, Time, print_freq) - if( idiag%id_slp>0 .or. idiag%id_tm>0 .or. idiag%id_any_hght>0 .or. idiag%id_hght3d .or. idiag%id_c15>0 .or. idiag%id_ctz ) then + if( idiag%id_slp>0 .or. idiag%id_tm>0 .or. idiag%id_any_hght>0 .or. idiag%id_hght3d>0 .or. idiag%id_c15>0 .or. idiag%id_ctz>0 ) then allocate ( wz(isc:iec,jsc:jec,npz+1) ) call get_height_field(isc, iec, jsc, jec, ngc, npz, Atm(n)%flagstruct%hydrostatic, Atm(n)%delz, &