Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Removed ESM15 version with hard-wired xfpleach parameter, #278 #422

Merged
merged 2 commits into from
Oct 18, 2024
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion documentation/docs/user_guide/inputs/pftlookup_csv.md
Original file line number Diff line number Diff line change
Expand Up @@ -107,7 +107,7 @@ on soil, vegetation carbon and nutrients dynamics.
| fpptoL(frt) | `casabiome%ftransPPtoL(nv,froot)` | Flux factor of root phosphorus to litter pools \( (-) \) |
| xkmlabp | `xkmlabp(iso)` | Phosphorus absorption \( (gP \cdot m^{-2}) \) |
| xpsorbmax | `xpsorbmax(iso)` | Maximum phosphorus absorption \( (gP \cdot m^{-2}) \) |
| xfpleach | `xfPleach(iso)` | Phosphorus leaching \( (-) \) |
| xfpleach | `xfPleach(iso)` | Phosphorus leaching \( (-) \) (hard-wired in the code for CABLE2.4/ACCESS-ESM1.5 at 1.e-4 independent of pft) |
| N:Psoil (mic) | `ratioNPsoil(iso,mic)` | Nitrogen to phosphorus ratio in microbial soil pool \( (gN \cdot gP^{-2}) \) |
| N:Psoil (slow) | `ratioNPsoil(iso,slow)` | Nitrogen to phosphorus ratio in slow soil pool \( (gN \cdot gP^{-2}) \) |
| N:Psoil (pass) | `ratioNPsoil(iso,pass)` | Nitrogen to phosphorus ratio in passive soil pool \( (gN \cdot gP^{-2}) \) |
Expand Down
8 changes: 3 additions & 5 deletions src/science/casa-cnp/casa_cnp.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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
abhaasgoyal marked this conversation as resolved.
Show resolved Hide resolved
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) &
Expand Down
Loading