From c0ca30225d75f4266369ff2375dbdf43fac53308 Mon Sep 17 00:00:00 2001 From: Bruce Rolstad Denby Date: Thu, 10 Jun 2021 13:46:55 +0200 Subject: [PATCH] Still even even more fixes after last update --- uEMEP_subgrid_EMEP.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/uEMEP_subgrid_EMEP.f90 b/uEMEP_subgrid_EMEP.f90 index 74abd13..16e0179 100644 --- a/uEMEP_subgrid_EMEP.f90 +++ b/uEMEP_subgrid_EMEP.f90 @@ -1029,7 +1029,7 @@ subroutine uEMEP_subgrid_EMEP count=0 do i_source=1,n_source_index !do i_source=1,n_source_calculate_index - if (calculate_source(i_source).or.calculate_EMEP_source(i_source).or.save_EMEP_source(i_source)) then + if (calculate_source(i_source).or.calculate_EMEP_source(i_source)) then !Check values for local and totals for each source !write(*,*) trim(source_file_str(i_source))