Ignore:
Timestamp:
Sep 13, 2010, 10:43:37 AM (14 years ago)
Author:
Laurent Fairhead
Message:

Problems with some initialisations in the new physics package. These are
temporary fixes. Further investigations needed. Trac ticket issued. JYG

Problèmes d'initialisations dans la nouvelle physique. Ces corrections
sont temporaires, il faut trouver la vraie raison des plantages. Un ticket
trac est créé. JYG

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/physiq.F

    r1425 r1428  
    22322232
    22332233          DO i = 1, klon
     2234           itop_con(i) = min(max(itop_con(i),1),klev)
     2235           ibas_con(i) = min(max(ibas_con(i),1),itop_con(i))
     2236          ENDDO
     2237
     2238          DO i = 1, klon
    22342239            ema_pcb(i)  = paprs(i,ibas_con(i))
    22352240          ENDDO
Note: See TracChangeset for help on using the changeset viewer.