added commented flag for testing

geco-bern · Jun 19, 2024 · 660c6f2 · 660c6f2
1 parent e89d88b
commit 660c6f2
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/src/Makevars.in b/src/Makevars.in
@@ -8,6 +8,8 @@
 # -fsanitize=address: Using the Address Sanitizer https://rstudio.github.io/r-manuals/r-exts/Debugging.html#using-the-address-sanitizer
 # PKG_FFLAGS = -frecursive -fbounds-check -Wall -Wextra -Wpedantic -g -O0 -fsanitize=address
 
+# PKG_FFLAGS = -g -fsanitize=address
+
 # C objects
 C_OBJS = wrappersc.o
 

diff --git a/src/vegetation_biomee.mod.f90 b/src/vegetation_biomee.mod.f90
@@ -60,7 +60,7 @@ subroutine vegn_CNW_budget( vegn, forcing, init )
     do i = 1, vegn%n_cohorts
 
       cc => vegn%cohorts(i)
-      associate ( sp => spdata(cc%species) )
+      ! associate ( sp => spdata(cc%species) )
 
       ! increment the cohort age
       cc%age = cc%age + myinterface%dt_fast_yr
@@ -76,7 +76,7 @@ subroutine vegn_CNW_budget( vegn, forcing, init )
       cc%plabl%c%c12 = cc%plabl%c%c12 + cc%npp
       cc%plabl%n%n14 = cc%plabl%n%n14 + cc%fixedN
 
-      end associate
+      ! end associate
     enddo ! all cohorts
 
     ! update soil carbon