Changes between Version 1 and Version 2 of PDAFomi_diag_crps

Timestamp:

Apr 17, 2026, 9:03:16 AM (11 hours ago)

Author:

lnerger

Comment:

--

PDAFomi_diag_crps

@@ -22 +22 @@
     INTEGER, INTENT(inout) :: nobs                   ! Number of observation types
     REAL, POINTER, INTENT(inout) :: crps_ptr(:,:)    ! Pointer to vector of CRPS values
-    INTEGER, INTENT(in) :: perturb                   ! 1: add perturbations to observations; 
+                                                     !   the second index is for the observation type; the first is
+                                                     !   crps_ptr(1, :) = CRPS
+                                                     !   crps_ptr(2, :) = reli
+                                                     !   crps_ptr(3, :) = pot_CRPS
+                                                     !   crps_ptr(4, :) = uncert
+     INTEGER, INTENT(in) :: perturb                   ! 1: add perturbations to observations; 
                                                      ! 0: use unperturbed observations
     INTEGER, INTENT(in) :: verbose                   ! Verbosity flag, >0 for output