Changeset 975 for LMDZ4/trunk


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

Correction dimension tableau
LF

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

Legend:

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

    r973 r975  
    6060      REAL rnebcon_glo(klon_glo,klev)
    6161      REAL ratqs_glo(klon_glo,klev)
    62       REAL pbl_tke_glo(klon_glo,klev,nbsrf)
     62      REAL pbl_tke_glo(klon_glo,klev+1,nbsrf)
    6363      REAL zmax0_glo(klon_glo), f0_glo(klon)
    6464      REAL ema_work1_glo(klon_glo, klev), ema_work2_glo(klon_glo, klev)
  • LMDZ4/trunk/libf/phylmd/phyredem.F

    r973 r975  
    5353      REAL rnebcon_glo(klon_glo,klev)
    5454      REAL ratqs_glo(klon_glo,klev)
    55       REAL pbl_tke_glo(klon_glo,klev,nbsrf)
     55      REAL pbl_tke_glo(klon_glo,klev+1,nbsrf)
    5656      REAL zmax0_glo(klon_glo), f0_glo(klon)
    5757      REAL ema_work1_glo(klon_glo, klev), ema_work2_glo(klon_glo, klev)
Note: See TracChangeset for help on using the changeset viewer.