Changes between Version 3 and Version 4 of PDAF_diag_variance_nompi

Timestamp:

Mar 26, 2025, 2:23:20 PM (6 days ago)

Author:

lnerger

Comment:

--

PDAF_diag_variance_nompi

@@ -8 +8 @@
 {{{
 SUBROUTINE PDAF_diag_variance(dim_p, dim_ens, state_p, ens_p, variance_p, &
-     stddev_g, do_mean, do_stddev, status)
+     stddev, do_mean, do_stddev, status)
 
   INTEGER, INTENT(in) :: dim_p                 ! state dimension
@@ -15 +15 @@
   REAL, INTENT(in)    :: ens_p(dim_p, dim_ens) ! State ensemble
   REAL, INTENT(out)   :: variance_p(dim_p)     ! Variance state vector
-  REAL, INTENT(out)   :: stddev_g              ! Global standard deviation of ensemble
+  REAL, INTENT(out)   :: stddev                ! standard deviation of ensemble
   INTEGER, INTENT(in) :: do_mean               ! 1 to compute ensemble mean; 
                                                ! 0 take values froem state_p as ensemble mean