Ignore:
Timestamp:
Aug 22, 2012, 5:32:25 PM (12 years ago)
Author:
Ehouarn Millour
Message:

Corrections pour que les cas a flux de surface imposes marchent.
MPL & JYG

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/wake.F

    r1403 r1649  
    561561      ENDDO
    562562
    563 c      On evite kupper = 1
     563c      On evite kupper = 1 et kupper = klev
    564564      DO i=1,klon
    565565        kupper(i) = max(kupper(i),2)
     566        kupper(i) = min(kupper(i),klev-1)
    566567      ENDDO
    567568
Note: See TracChangeset for help on using the changeset viewer.