Changeset 870 for LMDZ4/branches


Ignore:
Timestamp:
Dec 21, 2007, 4:04:01 PM (17 years ago)
Author:
Laurent Fairhead
Message:

Bug type variables aist,aisb: REAL au lieu de INTEGER
IM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/plevel.F

    r776 r870  
    4646
    4747cym      save lt,lb,ptop,pbot,aist,aisb
    48       INTEGER,ALLOCATABLE,SAVE,DIMENSION(:) :: lt,lb,aist,aisb
     48      INTEGER,ALLOCATABLE,SAVE,DIMENSION(:) :: lt,lb
     49      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: aist,aisb
    4950c$OMP THREADPRIVATE(lt,lb,aist,aisb)     
    5051      REAL,SAVE :: ptop, pbot
Note: See TracChangeset for help on using the changeset viewer.