Changes between Version 5 and Version 6 of CleanOrchidee


Ignore:
Timestamp:
2011-10-07T16:36:02+02:00 (11 years ago)
Author:
dsolyga
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • CleanOrchidee

    v5 v6  
    8585    STOP 'Ou est-ce un bug?' 
    8686}}} 
    87   
     87- in '''hydrol.f90''' : drain_rest_cste is declared but not used 
     88{{{ 
     89  REAL(r_std), PARAMETER                             :: drain_rest_cste = 15.0  !! time constant in days to return to free drainage after return flow 
     90}}} 
     91- in '''stomate_lpj.f90''' : the harvest subroutine is bad coded for vectorization  
     92 
     93{{{ 
     94    DO i = 1, npts 
     95       DO j=1, nvm 
     96          IF (j > 11) THEN 
     97             above_old = turnover_daily(i,j,ileaf) + turnover_daily(i,j,isapabove) + & 
     98                  &       turnover_daily(i,j,iheartabove) + turnover_daily(i,j,ifruit) + & 
     99                  &       turnover_daily(i,j,icarbres) + turnover_daily(i,j,isapbelow) + & 
     100                  &       turnover_daily(i,j,iheartbelow) + turnover_daily(i,j,iroot) 
     101 
     102             turnover_daily(i,j,ileaf) = turnover_daily(i,j,ileaf)*0.55 
     103             turnover_daily(i,j,isapabove) = turnover_daily(i,j,isapabove)*0.55 
     104             turnover_daily(i,j,isapbelow) = turnover_daily(i,j,isapbelow)*0.55 
     105             turnover_daily(i,j,iheartabove) = turnover_daily(i,j,iheartabove)*0.55 
     106             turnover_daily(i,j,iheartbelow) = turnover_daily(i,j,iheartbelow)*0.55 
     107             turnover_daily(i,j,iroot) = turnover_daily(i,j,iroot)*0.55 
     108             turnover_daily(i,j,ifruit) = turnover_daily(i,j,ifruit)*0.55 
     109             turnover_daily(i,j,icarbres) = turnover_daily(i,j,icarbres)*0.55 
     110             harvest_above(i)  = harvest_above(i) + veget_max(i,j) * above_old *0.45 
     111 
     112          ENDIF 
     113       ENDDO 
     114    ENDDO 
     115}}} 
     116