From 483f4d472913fe10bba902e867ad4d758c764dc4 Mon Sep 17 00:00:00 2001 From: Kelly Keene Date: Thu, 6 Oct 2016 16:37:40 -0600 Subject: [PATCH] aer_asy_val and aer_ssa_val were originally assigned to aer_asy_opt and aer_ssa_opt, respectively. This was causing the real*8 regression tests to fail. --- share/output_wrf.F | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/share/output_wrf.F b/share/output_wrf.F index 88e8191389..4c0650ddbd 100644 --- a/share/output_wrf.F +++ b/share/output_wrf.F @@ -153,8 +153,8 @@ SUBROUTINE output_wrf ( fid , grid , config_flags, switch , ierr ) call nl_get_aer_asy_opt ( grid%id, aer_asy_opt ) call nl_get_aer_aod550_val ( grid%id, aer_aod550_val ) call nl_get_aer_angexp_val ( grid%id, aer_angexp_val ) - call nl_get_aer_ssa_opt ( grid%id, aer_ssa_val ) - call nl_get_aer_asy_opt ( grid%id, aer_asy_val ) + call nl_get_aer_ssa_val ( grid%id, aer_ssa_val ) + call nl_get_aer_asy_val ( grid%id, aer_asy_val ) call nl_get_sf_lake_physics ( grid%id, sf_lake_physics ) #if (EM_CORE == 1)