Changeset 481


Ignore:
Timestamp:
2011-09-22T14:13:32+02:00 (13 years ago)
Author:
didier.solyga
Message:

Correct bug in slowproc(wrong loop). Now the externalized version can work with both land_use and dgvm activated

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba/slowproc.f90

    r471 r481  
    926926                   DO jv = 2, nvm 
    927927                      IF(.NOT. natural(jv)) THEN 
    928                          frac_crop_tot(ji) = frac_crop_tot(ji) + veget_max(ji,jv) 
     928                         DO ji = 1, kjpindex 
     929                            frac_crop_tot(ji) = frac_crop_tot(ji) + veget_max(ji,jv) 
     930                         ENDDO 
    929931                      ENDIF 
    930932                   ENDDO 
Note: See TracChangeset for help on using the changeset viewer.