Changeset 108


Ignore:
Timestamp:
02/11/11 15:27:45 (11 years ago)
Author:
didier.solyga
Message:

Replace the test by PFT_name by more general test for the computation of fluxtot

File:
1 edited

Legend:

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

    r64 r108  
    191191             fluxtot(:,k) = dt/carbon_tau(k) * carbon(:,k,m) * & 
    192192                  control_moist(:,ibelow) * control_temp(:,ibelow) 
    193           ELSEIF ( PFT_name(m)=='          C3           agriculture' ) THEN 
     193!!$   DS       ELSEIF ( PFT_name(m)=='          C3           agriculture' ) THEN 
     194          ELSEIF ( (.NOT. natural(m)) .AND. (.NOT. is_c4(m)) ) THEN 
    194195             fluxtot(:,k) = dt/carbon_tau(k) * carbon(:,k,m) * & 
    195196                  control_moist(:,ibelow) * control_temp(:,ibelow) * flux_tot_coeff(1) 
    196           ELSEIF ( PFT_name(m)=='          C4           agriculture' ) THEN 
     197!!$  DS         ELSEIF ( PFT_name(m)=='          C4           agriculture' ) THEN 
     198          ELSEIF ( (.NOT. natural(m)) .AND. is_c4(m) ) THEN 
    197199             fluxtot(:,k) = dt/carbon_tau(k) * carbon(:,k,m) * & 
    198200                  control_moist(:,ibelow) * control_temp(:,ibelow) * flux_tot_coeff(2) 
Note: See TracChangeset for help on using the changeset viewer.