don't try to print out mem_ob - it's already been deallocated!

NOAA-EMC · Jun 11, 2020 · afb30bb · afb30bb
1 parent c489ff4
commit afb30bb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/enkf/mpi_readobs.f90 b/src/enkf/mpi_readobs.f90
@@ -317,8 +317,8 @@ subroutine mpi_getobs(obspath, datestring, nobs_conv, nobs_oz, nobs_sat, nobs_to
                                      maxval(sprd_ob(nobs_conv+nobs_oz+1:nobs_tot))
        do nob =nobs_conv+nobs_oz+1 , nobs_tot
           if (sprd_ob(nob) > 1000.) then 
-             print *, nob, ' sat spread: ', sprd_ob(nob), ', ensmean_ob: ', ensmean_obbc(nob), &
-                           ', anal_ob: ', anal_ob(:,nob), ', mem_ob: ', mem_ob(nob)
+             print *, nob, trim(obtype(nob)),ob(nob),' sat spread: ', sprd_ob(nob), ', ensmean_ob: ', ensmean_obbc(nob), &
+                           ', anal_ob: ', anal_ob(:,nob)
           endif
        enddo
     endif