src_driver/forcesoil.f90:  REAL(r_std),ALLOCATABLE :: poor_soils(:)                              !! Poor soils (0-1)
src_driver/forcesoil.f90:  ALLOCATE(poor_soils(kjpindex))
src_driver/forcesoil.f90:          &     wat_flux(:,:,:,iatt),bulk_dens, soil_ph, poor_soils, veget_max, soil_mc(:,:,:,iatt), soiltile, &
src_sechiba/slowproc.f90:  REAL(r_std), ALLOCATABLE, SAVE, DIMENSION (:)      :: poor_soils          !! proportion of poor soils (0-1)
src_sechiba/slowproc.f90:!$OMP THREADPRIVATE(poor_soils)
src_sechiba/slowproc.f90:             soil_ph,        poor_soils,             t2m,               &
src_sechiba/slowproc.f90:            bulk_density, soil_ph, poor_soils, drainage_per_soil, runoff_per_soil, DOC_EXP_agg, &
src_sechiba/slowproc.f90:    CALL restput_p (rest_id, 'poor_soils', nbp_glo, 1, 1, kjit, poor_soils, 'scatter',  nbp_glo, index_g)
src_sechiba/slowproc.f90:       CALL stomate_finalize (kjit, kjpindex, indexLand, clayfraction, soil_ph, poor_soils, bulk_density, &
src_sechiba/slowproc.f90:    ALLOCATE (poor_soils(kjpindex),stat=ier)
src_sechiba/slowproc.f90:    IF (ier /= 0) CALL ipslerr_p(3,'slowproc_init','Problem in allocation of variable poor_soils','','')
src_sechiba/slowproc.f90:    poor_soils(:)=undef_sechiba
src_sechiba/slowproc.f90:    var_name= 'poor_soils'
src_sechiba/slowproc.f90:    CALL restget_p (rest_id, var_name, nbp_glo, 1, 1, kjit, .TRUE., poor_soils, "gather", nbp_glo, index_g)
src_sechiba/slowproc.f90:             CALL slowproc_soilt(kjpindex, lalo, neighbours, resolution, contfrac, soilclass, clayfraction, bulk_density, soil_ph, poor_soils)
src_sechiba/slowproc.f90:       CALL slowproc_soilt(kjpindex, lalo, neighbours, resolution, contfrac, soilclass, clayfraction, bulk_density, soil_ph, poor_soils)
src_sechiba/slowproc.f90:    IF (ALLOCATED (poor_soils)) DEALLOCATE (poor_soils)
src_sechiba/slowproc.f90:  SUBROUTINE slowproc_soilt(nbpt, lalo, neighbours, resolution, contfrac, soilclass, clayfraction, bulk_density, soil_ph, poor_soils)
src_sechiba/slowproc.f90:    REAL(r_std), INTENT(out)      :: poor_soils(nbpt)       !! Proportion of poor soils
src_sechiba/slowproc.f90:    IF (is_root_prc) CALL flinget(fid, 'poor_soils', iml, jml, lml, tml, 1, 1, poorsol)
src_sechiba/slowproc.f90:          poor_soils(ib) = zero
src_sechiba/slowproc.f90:                   poor_soils(ib) = poor_soils(ib) + poosol(ilf) * sub_area(ib,ilf)
src_sechiba/slowproc.f90:                poor_soils(ib) = zero
src_sechiba/slowproc.f90:                poor_soils(ib) = poor_soils(ib)/sgn
src_sechiba/slowproc.f90:          poor_soils(ib) = 0.0
src_sechiba/slowproc.f90:                   poor_soils(ib) = poor_soils(ib) + poosol(ilf) * sub_area(ib,ilf)
src_sechiba/slowproc.f90:                poor_soils(ib) = 0.0
src_sechiba/slowproc.f90:                poor_soils(ib) = poor_soils(ib)/sgn
src_stomate/stomate.f90:  REAL(r_std),ALLOCATABLE,DIMENSION(:,:)         :: poor_soils_fm        !! Fraction of poor soils (0-1), parallel computing
src_stomate/stomate.f90:  REAL(r_std),ALLOCATABLE,DIMENSION(:,:)         :: poor_soils_fm_g      !! Fraction of poor soils (0-1), parallel computing
src_stomate/stomate.f90:PUBLIC clay_fm, soil_ph_fm, poor_soils_fm, bulk_dens_fm,humrel_daily_fm, litterhum_daily_fm, t2m_daily_fm, &
src_stomate/stomate.f90:         t2m,            soil_ph,           poor_soils,   lai,               &
src_stomate/stomate.f90:    REAL(r_std),DIMENSION(kjpindex),INTENT(in)      :: poor_soils        !! Fraction of poor soils (0-1), see Lauerwald et al., GMD, for explanation
src_stomate/stomate.f90:               + SIZE(poor_soils)*KIND(poor_soils) &
src_stomate/stomate.f90:             ier = NF90_DEF_VAR (forcing_id,'poor_soils', &
src_stomate/stomate.f90:       &  litter_mc,floodout, runoff, drainage, wat_flux0, wat_flux,bulk_dens, soil_ph, poor_soils, &
src_stomate/stomate.f90:    REAL(r_std),DIMENSION(kjpindex),INTENT(inout)   :: poor_soils        !! Fraction of poor soils (0-1)
src_stomate/stomate.f90:!poor_soils(:) = zero
src_stomate/stomate.f90:         clay, bulk_dens, soil_ph, poor_soils, carbon, flood_frac)
src_stomate/stomate.f90:         wat_flux,bulk_dens,soil_ph, poor_soils, veget_cov_max, soil_mc, soiltile,&
src_stomate/stomate.f90:             poor_soils_fm(:,iisf) = (xn*poor_soils_fm(:,iisf)+poor_soils(:))/(xn+1.)
src_stomate/stomate.f90:             poor_soils_fm(:,iisf) = poor_soils(:)
src_stomate/stomate.f90:  SUBROUTINE stomate_finalize (kjit, kjpindex, index, clay, soil_ph, poor_soils, bulk_dens, &
src_stomate/stomate.f90:    REAL(r_std),DIMENSION(kjpindex),INTENT(in)      :: poor_soils        !! Fraction of poor soils (0-1)
src_stomate/stomate.f90:    REAL(r_std),DIMENSION(nbp_glo)                :: poor_soils_g             !! Fraction of poor soils (0-1), parallel
src_stomate/stomate.f90:          CALL gather(poor_soils,poor_soils_g)
src_stomate/stomate.f90:             ier = NF90_DEF_VAR (Cforcing_id,'poor_soils',   r_typ,d_id(1),vid)
src_stomate/stomate.f90:             ier = NF90_INQ_VARID (Cforcing_id,'poor_soils',vid)
src_stomate/stomate.f90:             ier = NF90_PUT_VAR (Cforcing_id,vid, poor_soils_g )
src_stomate/stomate.f90:    IF (ALLOCATED(poor_soils_fm)) DEALLOCATE(poor_soils_fm)
src_stomate/stomate.f90:    ALLOCATE(poor_soils_fm(kjpindex,nsfm),stat=ier)
src_stomate/stomate.f90:       WRITE(numout,*) 'Problem with memory allocation: forcing variables poor_soils_fm ',kjpindex,nsfm
src_stomate/stomate.f90:       ALLOCATE(poor_soils_fm_g(nbp_glo,nsfm),stat=ier)
src_stomate/stomate.f90:          WRITE(numout,*) 'Problem with memory allocation: forcing variables poor_soils_fm_g ',nbp_glo,nsfm
src_stomate/stomate.f90:       ALLOCATE(poor_soils_fm_g(0,nsfm),stat=ier)
src_stomate/stomate.f90:    poor_soils_fm(:,:) = zero
src_stomate/stomate.f90:    CALL gather(poor_soils_fm,poor_soils_fm_g)
src_stomate/stomate.f90:             count_force(1:ndim) = SHAPE(poor_soils_fm_g)
src_stomate/stomate.f90:             ier = NF90_INQ_VARID (forcing_id,'poor_soils',vid)
src_stomate/stomate.f90:                  &              poor_soils_fm_g(:,ifirst(iblocks):ilast(iblocks)), &
src_stomate/stomate.f90:             count_force(1:ndim) = SHAPE(poor_soils_fm_g)
src_stomate/stomate.f90:             ier = NF90_INQ_VARID (forcing_id,'poor_soils',vid)
src_stomate/stomate.f90:                  &            poor_soils_fm_g(:,ifirst(iblocks):ilast(iblocks)), &
src_stomate/stomate.f90:    CALL scatter(poor_soils_fm_g,poor_soils_fm)
src_stomate/stomate_litter.f90:       clay, bulk_dens, soil_ph, poor_soils, carbon, flood_frac)
src_stomate/stomate_litter.f90:    REAL(r_std), DIMENSION(npts), INTENT(in)                     :: poor_soils         !! Fraction of poor soils (0-1)
src_stomate/stomate_litter.f90:          litterfrac_pxl(:,k,istructural) = metabolic_ref_frac - metabolic_LN_ratio * LC(k) * CN(k)! * (un + poor_soils(:))
src_stomate/stomate_litter.f90:       control_temp_above(:,j) = control_temp_func (npts, tsurf,litter_tau(j)*(un+poor_soils(:))) 
src_stomate/stomate_litter.f90:          control_temp_soil(:,l,j) = control_temp_func (npts,tsoil_decomp,pool_tau(j)*(un+poor_soils(:)))
src_stomate/stomate_litter.f90:          control_temp_soil(:,l,npool+j) = control_temp_func(npts,tsoil_decomp,DOC_tau(j)*(un+poor_soils(:)))
src_stomate/stomate_litter.f90:          fd(:) = dt/(litter_tau(istructural)*(un+poor_soils(:))) * &
src_stomate/stomate_litter.f90:          fd(:) = dt/(litter_tau(imetabolic)*(un+poor_soils(:))) * control_temp_above(:,imetabolic) * control_moist_above(:,m)
src_stomate/stomate_litter.f90:             fd(:) = dt/(litter_tau(istructural)*(un+poor_soils(:))) * &
src_stomate/stomate_litter.f90:             fd(:) = dt/(litter_tau(imetabolic)*(un+poor_soils(:))) * control_temp_soil(:,l,imetbel) * control_moist_soil(:,l,m)
src_stomate/stomate_soilcarbon.f90:       bulk_dens, soil_ph, poor_soils, veget_max, soil_mc, soiltile, &
src_stomate/stomate_soilcarbon.f90:    REAL(r_std), DIMENSION(npts), INTENT(in)                          :: poor_soils            !! Fraction of poor soils (0-1) 
src_stomate/stomate_soilcarbon.f90:       flux_red(:) = flux_red_sro * (un - poor_soils(:)) + poor_soils(:)
src_stomate/stomate_soilcarbon.f90:               fluxtot(:,k,icarbon,l) =(dt/(carbon_tau(k)*(un+poor_soils(:))))*(un-exp(-priming_param(k)*LOM(:,m,l))) * carbon(:,k,m,l) * &
src_stomate/stomate_soilcarbon.f90:               fluxtot_flood(:,k,icarbon,l) =(dt/(carbon_tau(k)*(un+poor_soils(:))))*(un-exp(-priming_param(k)*LOM(:,m,l))) * carbon(:,k,m,l) * &
src_stomate/stomate_soilcarbon.f90:               fluxtot(:,k,icarbon,l) =(dt/(carbon_tau(k)*(un+poor_soils(:))))*(un-exp(-priming_param(k)*LOM(:,m,l))) * carbon(:,k,m,l) * &
src_stomate/stomate_soilcarbon.f90:               fluxtot_flood(:,k,icarbon,l) =(dt/(carbon_tau(k)*(un+poor_soils(:))))*(un-exp(-priming_param(k)*LOM(:,m,l))) * carbon(:,k,m,l) * &
src_stomate/stomate_soilcarbon.f90:               fluxtot(:,k,icarbon,l) =(dt/(carbon_tau(k)*(un+poor_soils(:))))*(un-exp(-priming_param(k)*LOM(:,m,l))) * carbon(:,k,m,l) * &
src_stomate/stomate_soilcarbon.f90:               fluxtot_flood(:,k,icarbon,l) =(dt/(carbon_tau(k)*(un+poor_soils(:))))*(un-exp(-priming_param(k)*LOM(:,m,l))) * carbon(:,k,m,l) * &
src_stomate/stomate_soilcarbon.f90:                 fluxtot_DOC(:,m,l,j) = (dt/(DOC_tau(j)*(un+poor_soils(:))))* (un - flood_frac(:)) * &
src_stomate/stomate_soilcarbon.f90:                 fluxtot_DOC_flood(:,m,l,j) = (dt/(DOC_tau(j)*(un+poor_soils(:))))* flood_frac(:) * un/trois * &
src_stomate/stomate_soilcarbon.f90:    CALL xios_orchidee_send_field("POOR_SOILS",poor_soils(:))
