check neg values only if DEBUG

modified: src/chemistry/aerosol/wetdep.F90
ESCOMP · Jan 15, 2025 · 305c53a · 305c53a
1 parent e402122
commit 305c53a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/chemistry/aerosol/wetdep.F90 b/src/chemistry/aerosol/wetdep.F90
@@ -645,6 +645,7 @@ subroutine wetdepa_v2(                                  &
 
       end do ! End of i = 1, ncol
 
+#ifdef DEBUG
       found = .false.
       do i = 1,ncol
          if (dblchek(i) < -1.e-10_r8) then
@@ -657,6 +658,7 @@ subroutine wetdepa_v2(                                  &
       if (found) then
          call endrun('wetdapa_v2: negative values found')
       end if
+#endif
 
    end do ! End of k = 1, pver
 
@@ -962,6 +964,7 @@ subroutine wetdepa_v1( t, p, q, pdel, &
 
          end do
 
+#ifdef DEBUG
          found = .false.
          do i = 1,ncol
             if (dblchek(i) < -1.e-10_r8) then
@@ -974,6 +977,7 @@ subroutine wetdepa_v1( t, p, q, pdel, &
          if (found) then
             call endrun('wetdapa_v1: negative values found')
          end if
+#endif
 
       end do