Merge pull request #191 from stineb/master

removed non-default lower bound specification in derived type
geco-bern · Nov 15, 2023 · 2aab647 · 2aab647
2 parents ccb76d3 + fe364b0
commit 2aab647
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/src/Makevars b/src/Makevars
@@ -1,4 +1,5 @@
 # PKG_FFLAGS = -ffree-line-length-0 -fbacktrace -ffpe-trap=invalid,zero,overflow -O1 -Wall -Wextra -pedantic -fbacktrace -fPIC -fmax-errors=1 -ggdb -fcheck=all
+# PKG_FFLAGS = -mtune=native  -fPIC  -g -O2  -c
 
 # C objects
 C_OBJS = wrappersc.o

diff --git a/src/interface_biosphere_biomee.mod.f90 b/src/interface_biosphere_biomee.mod.f90
@@ -102,7 +102,7 @@ module md_interface_biomee
     type(outtype_steering)                                :: steering
     type(paramstype_siml)                                 :: params_siml
     real, dimension(:), allocatable                       :: fpc_grid   ! allocatable because we don't know number of PFTs a priori
-    type(paramstype_species), dimension(1:(MSPECIES+1))       :: params_species
+    type(paramstype_species), dimension((MSPECIES+1))       :: params_species
     type(paramtype_soil)                                  :: params_soil
     type(paramstype_tile)                                 :: params_tile
     type(inittype_cohort), dimension(MAX_INIT_COHORTS)    :: init_cohort