Changeset 1194 for LMDZ4/trunk/libf


Ignore:
Timestamp:
Jun 25, 2009, 5:28:43 PM (15 years ago)
Author:
musat
Message:

Correction d'un bogue reccurent : aist, aisb sont des REAL
IM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1146 r1194  
    4747cym      save lt,lb,ptop,pbot,aist,aisb
    4848      INTEGER,ALLOCATABLE,SAVE,DIMENSION(:) :: lt,lb
    49       INTEGER,ALLOCATABLE,SAVE,DIMENSION(:,:) :: aist,aisb
     49      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: aist,aisb
    5050c$OMP THREADPRIVATE(lt,lb,aist,aisb)     
    5151      REAL,SAVE :: ptop, pbot
Note: See TracChangeset for help on using the changeset viewer.