Ignore:
Timestamp:
Jun 2, 2014, 3:48:17 PM (10 years ago)
Author:
musat
Message:

Correction d'un bogue initialisation sous-surfaces
FC/IM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1938 r2052  
    196196             , pctsrf(i, is_sic)
    197197        WRITE(*, *) 'Je force la coherence zmasq=fractint'
    198         zmasq(i) = fractint(i)
     198        zmasq(i) = 1. - fractint(i)
    199199     ENDIF
    200200  END DO
Note: See TracChangeset for help on using the changeset viewer.