Removed ESM15 version with hard-wired parameter, #278

CABLE-LSM · Oct 14, 2024 · 183df1f · 183df1f
1 parent 8f62897
commit 183df1f
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/src/science/casa-cnp/casa_cnp.F90 b/src/science/casa-cnp/casa_cnp.F90
@@ -1341,13 +1341,11 @@ SUBROUTINE casa_delsoil(veg,casapool,casaflux,casamet,casabiome)
                   +casaflux%Psimm(nland)
              ! net mineralization
 
-#           ifdef ESM15  
-             casaflux%Pleach(nland)  =  (1.0e-4) &
-                                              * max(0.0,casapool%Psoillab(nland))
-#           else
+             !rml 14/10/24 #278 remove ESM15 specific version as can be 
+             !accommodated by setting appropriate parameter in pftlookup
              casaflux%Pleach(nland)  =  casaflux%fPleach(nland) &
                   * MAX(0.0,casapool%Psoillab(nland))
-#            endif
+
              DO k=1,msoil
                 DO j=1,mlitter
                    casaflux%FluxPtosoil(nland,k) =  casaflux%FluxPtosoil(nland,k)  &