Changeset 2664 for LMDZ5/trunk


Ignore:
Timestamp:
Oct 12, 2016, 2:26:14 PM (8 years ago)
Author:
fhourdin
Message:

Gros bug petite modif "min" -> "max"

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r2507 r2664  
    624624                    zdelta = MAX(0.,SIGN(1.,t_glace_min_old-Tbef(i)))
    625625                    else if (iflag_t_glace.ge.1) then
    626                     zdelta = MAX(0.,SIGN(1.,t_glace_min-Tbef(i)))
     626                    zdelta = MAX(0.,SIGN(1.,t_glace_max-Tbef(i)))
     627! BUG corrige par JYG   zdelta = MAX(0.,SIGN(1.,t_glace_min-Tbef(i)))
    627628                    endif
    628629                 endif
Note: See TracChangeset for help on using the changeset viewer.