Changeset 387


Ignore:
Timestamp:
08/05/11 16:26:48 (11 years ago)
Author:
didier.solyga
Message:

Clean code and replace the last 1._r_std by un

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

Legend:

Unmodified
Added
Removed
  • branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/lpj_establish.f90

    r281 r387  
    465465 
    466466             fpc_nat(:,j) =  MIN(1.0,cn_ind(:,j) * ind(:,j) * &  
    467                   MAX( ( 1._r_std - exp( - ext_coeff(j) * lai_ind(:) ) ), min_cover ) ) 
     467                  MAX( ( un - exp( - ext_coeff(j) * lai_ind(:) ) ), min_cover ) ) 
    468468             !fpc_nat(:,j) = max(fpc_nat(:,j),1.-exp(-0.5*sla(j) * lm_lastyearmax(:,j))) 
    469469 
     
    502502 
    503503                fpc_nat(:,j) =  cn_ind(:,j) * ind(:,j) * &  
    504                      MAX( ( 1._r_std - exp( - ext_coeff(j) * lai_ind(:) ) ), min_cover ) 
     504                     MAX( ( un - exp( - ext_coeff(j) * lai_ind(:) ) ), min_cover ) 
    505505 
    506506                d_ind(:,j) = MAX(zero , (1.0-fpc_nat(:,j)) * dt/one_year ) 
  • branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/lpj_light.f90

    r257 r387  
    590590              
    591591             fpc_nat(:,j) =  cn_ind(:,j) * ind(:,j) * &  
    592                   MAX( ( 1._r_std - exp( - ext_coeff(j) * lai_ind(:) ) ), min_cover ) 
     592                  MAX( ( un - exp( - ext_coeff(j) * lai_ind(:) ) ), min_cover ) 
    593593              
    594594             WHERE(fpc_nat(:,j).GT.fpc_max(:,j)) 
  • branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_litter.f90

    r350 r387  
    665665 
    666666    tempfunc_result(:) = exp( soil_Q10 * ( temp_in(:) - (ZeroCelsius+tsoil_ref)) / Q10 ) 
    667     tempfunc_result(:) = MIN( 1._r_std, tempfunc_result(:) ) 
     667    tempfunc_result(:) = MIN( un, tempfunc_result(:) ) 
    668668 
    669669  END FUNCTION control_temp_func 
  • branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_lpj.f90

    r335 r387  
    10721072       bm_to_litter, turnover_daily, & 
    10731073       harvest_above) 
     1074 
    10741075    ! 0.1 input 
    10751076 
    10761077    ! Domain size 
    10771078    INTEGER, INTENT(in)                                            :: npts 
    1078  
    10791079    ! Time step (days) 
    10801080    REAL(r_std), INTENT(in)                                         :: dt_days 
    1081  
    10821081    ! new "maximal" coverage fraction of a PFT (LAI -> infinity) on ground 
    10831082    REAL(r_std), DIMENSION(npts,nvm), INTENT(in)                 :: veget_max 
     1083 
    10841084    ! 0.2 modified fields 
    1085  
    10861085    ! fractional coverage on natural/agricultural ground, taking into 
    10871086    !   account LAI (=grid-scale fpc) 
    10881087    REAL(r_std), DIMENSION(npts,nvm), INTENT(inout)                    :: veget 
    1089  
    10901088    ! conversion of biomass to litter (gC/(m**2 of nat/agri ground)) / day 
    10911089    REAL(r_std), DIMENSION(npts,nvm,nparts), INTENT(inout)           :: bm_to_litter 
    1092  
    10931090    ! Turnover rates (gC/(m**2 of ground)/day) 
    10941091    REAL(r_std), DIMENSION(npts,nvm,nparts), INTENT(inout)          :: turnover_daily 
    10951092    ! harvest above ground biomass for agriculture 
    10961093    REAL(r_std), DIMENSION(npts), INTENT(inout)                       :: harvest_above 
     1094 
    10971095    ! 0.4 local 
    10981096 
    10991097    ! indices 
    11001098    INTEGER(i_std)                                                     :: i, j, k, l, m 
    1101  
    11021099    ! biomass increase (gC/(m**2 of ground)) 
    11031100    REAL(r_std)                                                        :: above_old 
     1101 
    11041102    ! yearly initialisation 
    11051103    above_old             = zero 
  • branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_phenology.f90

    r350 r387  
    160160    ! 
    161161 
    162     allow_initpheno(:,ibare_sechiba) = .FALSE.  
     162    allow_initpheno(:,1) = .FALSE. 
    163163    DO j = 2,nvm 
    164164 
     
    195195    ! different kinds of phenology 
    196196     
    197     ! used in all the differents models of phenology DS 17112010 
     197    ! parameter used in all the differents models of phenology  
    198198    t_always = ZeroCelsius + t_always_add 
    199199 
Note: See TracChangeset for help on using the changeset viewer.