From fe364b0cf704ca427ace34e99f2743559be302f8 Mon Sep 17 00:00:00 2001 From: Beni Stocker Date: Wed, 15 Nov 2023 11:41:23 +0100 Subject: [PATCH] removed non-default lower bound specification in derived type --- src/Makevars | 1 + src/interface_biosphere_biomee.mod.f90 | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Makevars b/src/Makevars index 626695cf..90f5ed1b 100755 --- 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 index e0de141a..ca1c7076 100644 --- 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