Changeset 1428


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

Location:
LMDZ4/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/calltherm.F90

    r1403 r1428  
    373373
    374374
     375!jyg  Protection contre les temperatures nulles
     376          do i=1,klon
     377             do k=1,klev
     378                if (ztla(i,k) .lt. 1.e-10) fraca(i,k) =0.
     379             enddo
     380          enddo
     381
     382
    375383      return
    376384

  • 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.