Ignore:
Timestamp:
Jan 26, 2009, 11:51:20 AM (16 years ago)
Author:
jghattas
Message:

Modifications pour que la rugosite ne devient jamais zero (ajout des valeurs minimales).

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/surf_landice_mod.F90

    r1067 r1080  
    164164!
    165165!****************************************************************************************
    166     z0_new(:) = rugoro(:)
     166    z0_new(:) = MAX(1.E-3,rugoro(:))
    167167
    168168!****************************************************************************************
Note: See TracChangeset for help on using the changeset viewer.