From 3b104ca5fe786bb6bc742101a43babc09b8387c6 Mon Sep 17 00:00:00 2001 From: Rusty Benson Date: Wed, 31 Mar 2021 13:34:48 -0400 Subject: [PATCH] fixes missing argument in store_data for case where GFS_PHYS macro not enabled --- tools/fv_nggps_diag.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tools/fv_nggps_diag.F90 b/tools/fv_nggps_diag.F90 index 5456cb876..27bd72dfa 100644 --- a/tools/fv_nggps_diag.F90 +++ b/tools/fv_nggps_diag.F90 @@ -584,7 +584,7 @@ subroutine fv_nggps_diag(Atm, zvir, Time) endif #else !--- DELP - if(id_delp > 0) call store_data(id_delp, Atm(n)%delp(isco:ieco,jsco:jeco,:), Time, kstt_delp) + if(id_delp > 0) call store_data(id_delp, Atm(n)%delp(isco:ieco,jsco:jeco,:), Time, kstt_delp, kend_delp) !--- Surface Pressure (PS) if( id_ps > 0) then