Merge pull request #90 from bensonr/fv_nggps_fix

fixes missing argument in store_data for case where GFS_PHYS macro no…
NOAA-GFDL · Apr 1, 2021 · 0adbf6f · 0adbf6f
2 parents 6775670 + 3b104ca
commit 0adbf6f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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