subroutine __module_sf_noahmplsm_f90__::carbon_crop |
( |
type (noahmp_parameters), intent(in) | parameters, |
|
|
integer, intent(in) | nsnow, |
|
|
integer, intent(in) | nsoil, |
|
|
integer, intent(in) | vegtyp, |
|
|
real (kind=kind_phys), intent(in) | dt, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(in) | zsoil, |
|
|
real (kind=kind_phys), intent(in) | julian, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) | dzsnso, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) | stc, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(in) | smc, |
|
|
real (kind=kind_phys), intent(in) | tv, |
|
|
real (kind=kind_phys), intent(in) | psn, |
|
|
real (kind=kind_phys), intent(in) | foln, |
|
|
real (kind=kind_phys), intent(in) | btran, |
|
|
real (kind=kind_phys), intent(in) | soldn, |
|
|
real (kind=kind_phys), intent(in) | t2m, |
|
|
real (kind=kind_phys), intent(inout) | lfmass, |
|
|
real (kind=kind_phys), intent(inout) | rtmass, |
|
|
real (kind=kind_phys), intent(inout) | stmass, |
|
|
real (kind=kind_phys), intent(inout) | wood, |
|
|
real (kind=kind_phys), intent(inout) | stblcp, |
|
|
real (kind=kind_phys), intent(inout) | fastcp, |
|
|
real (kind=kind_phys), intent(inout) | grain, |
|
|
real (kind=kind_phys), intent(inout) | xlai, |
|
|
real (kind=kind_phys), intent(inout) | xsai, |
|
|
real (kind=kind_phys), intent(inout) | gdd, |
|
|
real (kind=kind_phys), intent(out) | gpp, |
|
|
real (kind=kind_phys), intent(out) | npp, |
|
|
real (kind=kind_phys), intent(out) | nee, |
|
|
real (kind=kind_phys), intent(out) | autors, |
|
|
real (kind=kind_phys), intent(out) | heters, |
|
|
real (kind=kind_phys), intent(out) | totsc, |
|
|
real (kind=kind_phys), intent(out) | totlb, |
|
|
integer, intent(out) | pgs ) |
|
private |