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

Oubli correction message print
FC/IM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/phyetat0.F90

    r2052 r2053  
    195195             'coherente ', i, zmasq(i) , pctsrf(i, is_oce) &
    196196             , pctsrf(i, is_sic)
    197         WRITE(*, *) 'Je force la coherence zmasq=fractint'
     197        WRITE(*, *) 'Je force la coherence zmasq=1.-fractint'
    198198        zmasq(i) = 1. - fractint(i)
    199199     ENDIF
Note: See TracChangeset for help on using the changeset viewer.