From 8aab8bd5e7be2999c3750453a4217cacd0cfce1b Mon Sep 17 00:00:00 2001 From: "Srbinovsky, Jhan (O&A, Aspendale)" Date: Fri, 24 Oct 2025 11:40:39 +1100 Subject: [PATCH] rm esm15 dependence --- src/science/casa-cnp/biogeochem_casa.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/science/casa-cnp/biogeochem_casa.F90 b/src/science/casa-cnp/biogeochem_casa.F90 index ab0f4ebb1..0997d4b9c 100644 --- a/src/science/casa-cnp/biogeochem_casa.F90 +++ b/src/science/casa-cnp/biogeochem_casa.F90 @@ -10,7 +10,7 @@ SUBROUTINE biogeochem(ktau,dels,idoY,LALLOC,veg,soil,casabiome,casapool,casaflux nleaf2met,nleaf2str,nroot2met,nroot2str,nwood2cwd, & pleaf2met,pleaf2str,proot2met,proot2str,pwood2cwd) USE cable_def_types_mod -USE cable_common_module, ONLY : cable_runtime, cable_user +USE cable_common_module, ONLY : cable_user USE casadimension USE casa_cnp_module USE casa_inout_module, ONLY : casa_cnpflux @@ -52,8 +52,8 @@ SUBROUTINE biogeochem(ktau,dels,idoY,LALLOC,veg,soil,casabiome,casapool,casaflux ! zero annual sums IF (idoy==1) CALL casa_cnpflux(casaflux,casapool,casabal,.TRUE.) -IF (cable_user%PHENOLOGY_SWITCH.EQ.'MODIS' .OR. cable_runtime%esm15 ) THEN - CALL phenology(idoy,veg,phen) +IF (cable_user%PHENOLOGY_SWITCH.EQ.'MODIS' ) THEN + CALL phenology(idoy,veg,phen) ENDIF CALL avgsoil(veg,soil,casamet)