Changeset 136


Ignore:
Timestamp:
2011-03-08T10:04:07+01:00 (14 years ago)
Author:
didier.solyga
Message:

multiplied black_carbon with veget_max; add veget_max as an argument of fire (with N.Vuichard)

Location:
branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/lpj_fire.f90

    r64 r136  
    4040 
    4141  SUBROUTINE fire (npts, dt, litterpart, & 
    42        litterhum_daily, t2m_daily, lignin_struc, & 
     42       litterhum_daily, t2m_daily, lignin_struc,veget_max, & 
    4343       fireindex, firelitter, biomass, ind, & 
    4444       litter, dead_leaves, bm_to_litter, black_carbon, & 
    … …  
    6464    ! (gC/(m**2 of ground)) 
    6565    REAL(r_std), DIMENSION(npts,nvm,nlevs), INTENT(in)         :: lignin_struc 
     66    ! NVui & DS Add veget_max for externalisation 02/03/2011 
     67    REAL(r_std), DIMENSION(npts,nvm), INTENT(in)               :: veget_max   
    6668 
    6769    ! 0.2 modified fields 
    … …  
    374376 
    375377             black_carbon(:) = & 
    376                   black_carbon(:) + bcfrac(:) * residue(:) 
     378                     black_carbon(:) + bcfrac(:) * residue(:)* veget_max(:,j) 
     379              
    377380             !MM in SZ                  black_carbon(:) + bcfrac(:) * residue(:) * biomass(:,j,k)  
     381             !NVu & DS 02032011: multiply black_carbon by veget_max for the externalised version 
     382             !black_carbon(:) + bcfrac(:) * residue(:) 
    378383 
    379384             ! 4.3.2.3 The rest (largest part) of the residue becomes litter. 
    … …  
    468473 
    469474       black_carbon(:) = & 
    470             black_carbon(:) + bcfrac(:) * residue(:) 
     475            black_carbon(:) + bcfrac(:) * residue(:)* veget_max(:,j) 
    471476       !MM in SZ             black_carbon(:) + bcfrac(:) * residue(:) * litter(:,iwoody,j,iabove)  
     477       !NVu & DS 02032011: multiply black_carbon by veget_max for the externalised version 
     478       !black_carbon(:) =  black_carbon(:) + bcfrac(:) * residue(:) 
    472479 
    473480       ! 5.2.6 The rest (largest part) of the residue remains litter. Remaining litter 

  • branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_lpj.f90

    r64 r136  
    502502 
    503503    CALL fire (npts, dt_days, litterpart, & 
    504          litterhum_daily, t2m_daily, lignin_struc, & 
     504         litterhum_daily, t2m_daily, lignin_struc,veget_max, & 
    505505         fireindex, firelitter, biomass, ind, & 
    506506         litter, dead_leaves, bm_to_litter, black_carbon, & 
Note: See TracChangeset for help on using the changeset viewer.