Ignore:
Timestamp:
Jun 24, 2008, 12:45:12 PM (16 years ago)
Author:
Laurent Fairhead
Message:

Encore quelques bugs consecutifs au renommage des variables YM
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/phyetat0.F

    r977 r978  
    6363      REAL zmax0_glo(klon_glo), f0_glo(klon)
    6464      REAL ema_work1_glo(klon_glo, klev), ema_work2_glo(klon_glo, klev)
    65       REAL wake_deltat_glo(klon,klev), wake_deltaq_glo(klon,klev)
    66       REAL wake_s_glo(klon), wake_cstar_glo(klon), wake_fip_glo(klon)
     65      REAL wake_deltat_glo(klon_glo,klev), wake_deltaq_glo(klon_glo,klev)
     66      REAL wake_s_glo(klon_glo), wake_cstar_glo(klon_glo)
     67      REAL wake_fip_glo(klon_glo)
    6768      REAL tsoil_p(klon,nsoilmx,nbsrf)
    6869      REAL tslab_p(klon), seaice_p(klon)
     
    16161617           xmax = -1.0E+20
    16171618           DO k = 1, klev
    1618            DO i = 1, klon
     1619           DO i = 1, klon_glo
    16191620              xmin = MIN(wake_deltat_glo(i,k),xmin)
    16201621              xmax = MAX(wake_deltat_glo(i,k),xmax)
     
    16441645           xmax = -1.0E+20
    16451646           DO k = 1, klev
    1646            DO i = 1, klon
     1647           DO i = 1, klon_glo
    16471648              xmin = MIN(wake_deltaq_glo(i,k),xmin)
    16481649              xmax = MAX(wake_deltaq_glo(i,k),xmax)
Note: See TracChangeset for help on using the changeset viewer.