Changeset 2246


Ignore:
Timestamp:
Mar 25, 2015, 12:09:58 PM (9 years ago)
Author:
fhourdin
Message:

Petite correction pour tourner avec contrôle de dépassement de tableau
small bug fixing

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/surf_land_bucket_mod.F90

    r2240 r2246  
    9999    CALL calbeta(dtime, is_ter, knon, snow, qsol, beta, capsol, dif_grnd)
    100100    if (type_veget=='betaclim') then
    101        CALL calbeta_clim(knon,jour,rlatd(knindex(:)),beta)
     101       CALL calbeta_clim(knon,jour,rlatd(knindex(1:knon)),beta)
    102102    endif
    103103       
Note: See TracChangeset for help on using the changeset viewer.