search

CABLE-LSM / CABLE-Trac-archive

Archive CABLE Trac contents as issues
Other
0 stars 0 forks source link

casa-cnp (bug 2021b) #283

Closed penguian closed 3 years ago

penguian commented 3 years ago

keyword_nogit owner:yxw599@nci.org.au resolution_fixed type_defect | by yxw599

check https://trac.nci.org.au/svn/cable/branches/Users/yxw599/cable-3.0_beta/ revision: 8056 for changes.

reason for the change:

to calculate the C:N:P ratio of pools based on the C:N, N:P ratios as read in from the lookup table (casafile%cnpbiome = '/scratch/p66/yxw599/runcable-access-esm/inputs/pftlookup_csiro_v16_17tiles_Ticket2.csv')

Changes made in "SUBROUTINE readbiome" of casa_inout.F90

381,394c378,379 < casapool%ratioPCplant(npt,:) = 1.0/(ratioCNplant(iv1,:) casabiome%ratioNPplantmin(iv1,:) ) < < casapool%ratioNClitter(npt,metb) = casapool%ratioNCplant(npt,leaf) casabiome%ftransNPtoL(iv1,leaf) < casapool%ratioNClitter(npt,str) = casapool%ratioNCplant(npt,froot) casabiome%ftransNPtoL(iv1,froot) < casapool%ratioNClitter(npt,cwd) = casapool%ratioNCplant(npt,wood) casabiome%ftransNPtoL(iv1,wood) < < casapool%ratioPClitter(npt,metb) = casapool%ratioPCplant(npt,leaf) casabiome%ftransPPtoL(iv1,leaf) < casapool%ratioPClitter(npt,str) = casapool%ratioPCplant(npt,froot) casabiome%ftransPPtoL(iv1,froot) < casapool%ratioPClitter(npt,cwd) = casapool%ratioPCplant(npt,wood) * casabiome%ftransPPtoL(iv1,wood) < < casapool%ratioNPlitter(npt,metb) = casapool%ratioNClitter(npt,metb)/(casapool%ratioPClitter(npt,metb) +1.0e-10) < casapool%ratioNPlitter(npt,str) = casapool%ratioNClitter(npt,str)/(casapool%ratioPClitter(npt,str) +1.0e-10) < casapool%ratioNPlitter(npt,cwd) = casapool%ratioNClitter(npt,cwd)/(casapool%ratioPClitter(npt,cwd) +1.0e-10) <

   casapool%ratioNClitter(npt,:) = casapool%nlitter(npt,:)/(casapool%clitter(npt,:)+1.0e-10)
   casapool%ratioNPlitter(npt,:) = casapool%nlitter(npt,:)/(casapool%plitter(npt,:)+1.0e-10)

397,398d381 < casapool%ratioPCsoil(npt,:) = 1.0/(ratioCNsoil(iv1,:)ratioNPsoil(iso,:)) < 405,407c388,389 < casapool%Nplant(:,:) = casapool%Cplant(:,:) casapool%ratioNCplant(:,:) < casapool%Nlitter(:,:) = casapool%Clitter(:,:) casapool%ratioNClitter(:,:) < casapool%Nsoil(:,:) = casapool%Csoil(:,:) casapool%ratioNCsoil(:,:)

   casapool%Nplant(:,:)  = casapool%Cplant(:,:) * casapool%ratioNCplant(:,:)
   casapool%Nsoil(:,:)   = casapool%ratioNCsoil(:,:) * casapool%Csoil(:,:)

410,413c392 < ! casapool%Psoil(:,:) = casapool%Nsoil(:,:)/ casapool%ratioNPsoil(:,:) < casapool%Pplant(:,:) = casapool%Cplant(:,:) casapool%ratioPCplant(:,:) < casapool%Plitter(:,:) = casapool%Clitter(:,:) casapool%ratioPClitter(:,:) < casapool%Psoil(:,:) = casapool%Csoil(:,:) * casapool%ratioPCsoil(:,:)

   casapool%Psoil(:,:)   = casapool%Nsoil(:,:)/ casapool%ratioNPsoil(:,:)

Issue migrated from trac:283 at 2023-11-27 11:36:10 +1100

penguian commented 3 years ago

@jxs599@nci.org.au changed owner from jxs599 to yxw599

penguian commented 3 years ago

@jxs599@nci.org.au changed component from JAC readiness to CABLE-3 transition

penguian commented 3 years ago

@jxs599@nci.org.au set milestone to 1. Closed

penguian commented 3 years ago

@jxs599@nci.org.au commented

Merged into tagged CABLE-3.0 beta

penguian commented 3 years ago

@jxs599@nci.org.au changed status from new to closed

penguian commented 3 years ago

@jxs599@nci.org.au set resolution to fixed

penguian commented 3 years ago

@jxs599@nci.org.au commented

Merged into tagged CABLE-3.0 beta

penguian commented 1 year ago

@ccc561@nci.org.au set keywords to nogit