Changeset 990 for LMDZ4/trunk


Ignore:
Timestamp:
Aug 5, 2008, 5:15:02 PM (16 years ago)
Author:
Laurent Fairhead
Message:

Correction probleme de dimension sur une variable passee a un sous-programme
JYG
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r974 r990  
    7070      REAL aire
    7171      REAL p(klon,klev),ph(klon,klev+1),pi(klon,klev)
    72       REAL te(klon,klev),qe(klon,klev),omgbe(klon,klev)
     72      REAL te(klon,klev),qe(klon,klev),omgbe(klon,klev+1)
    7373      REAL dtdwn(klon,klev),dqdwn(klon,klev)
    7474      REAL dta(klon,klev),dqa(klon,klev)
    … …  
    9494      RDCP=1./3.5
    9595
     96
    9697c-----------------------------------------------------------
    9798cIM 290108     DO 999 i=1,klon   ! a vectoriser
    … …  
    119120      ENDDO
    120121      ENDDO
     122
     123      omgbe(:,klev+1) = 0.
    121124     
    122125      DO i=1,klon
Note: See TracChangeset for help on using the changeset viewer.