From 8a8066754743816b91cd52a0f02ac56943b56374 Mon Sep 17 00:00:00 2001 From: Tao Sun <41139193+mos3r3n@users.noreply.github.com> Date: Thu, 4 Jan 2024 14:40:34 -0700 Subject: [PATCH 1/2] Update da_get_var_diagnostics.inc --- var/da/da_minimisation/da_get_var_diagnostics.inc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/var/da/da_minimisation/da_get_var_diagnostics.inc b/var/da/da_minimisation/da_get_var_diagnostics.inc index c25236728d..aba293bcf1 100644 --- a/var/da/da_minimisation/da_get_var_diagnostics.inc +++ b/var/da/da_minimisation/da_get_var_diagnostics.inc @@ -13,7 +13,7 @@ subroutine da_get_var_diagnostics(it, iv, j) integer :: num_stats_tot integer :: i,k real :: jo_radiance - real :: temp(79) + real :: temp(82) if (trace_use) call da_trace_entry("da_get_var_diagnostics") From 39d9da2f58fff796b153ec99b1c148f9e563d268 Mon Sep 17 00:00:00 2001 From: Tao Sun <41139193+mos3r3n@users.noreply.github.com> Date: Thu, 4 Jan 2024 14:41:53 -0700 Subject: [PATCH 2/2] Update da_analysis_stats.inc --- var/da/da_statistics/da_analysis_stats.inc | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/var/da/da_statistics/da_analysis_stats.inc b/var/da/da_statistics/da_analysis_stats.inc index 652dbc9ba3..7ac2c831b2 100644 --- a/var/da/da_statistics/da_analysis_stats.inc +++ b/var/da/da_statistics/da_analysis_stats.inc @@ -85,7 +85,7 @@ use module_state_description, only : num_chem, PARAM_FIRST_SCALAR 'p i j ', & 'q i j' case ( 1 ) - write(unit=stats_unit, fmt='(8a/)') & + write(unit=stats_unit, fmt='(9a/)') & ' Lvl ', & 'u i j ', & 'v i j ', & @@ -397,7 +397,7 @@ use module_state_description, only : num_chem, PARAM_FIRST_SCALAR 'p i j ', & 'q i j' case ( 1 ) - write(unit=stats_unit, fmt='(8a/)') & + write(unit=stats_unit, fmt='(9a/)') & ' Lvl ', & 'u i j ', & 'v i j ', & @@ -1080,9 +1080,9 @@ use module_state_description, only : num_chem, PARAM_FIRST_SCALAR qcim=qcim+qciv(k) qsnm=qsnm+qsnv(k) end if - if ( use_cv_w ) then - wm=wm+wv(k) - end if + if ( use_cv_w ) then + wm=wm+wv(k) + end if end do !k loop end if !rootproc