From afb30bbb111c0b0f3fd0affadf82c30c45e2d8a9 Mon Sep 17 00:00:00 2001 From: Jeffrey S Whitaker Date: Thu, 11 Jun 2020 13:47:38 -0500 Subject: [PATCH] don't try to print out mem_ob - it's already been deallocated! --- src/enkf/mpi_readobs.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/enkf/mpi_readobs.f90 b/src/enkf/mpi_readobs.f90 index 420ebe3227..4d9353a6e5 100644 --- 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