Changeset 866 for LMDZ4/trunk/libf


Ignore:
Timestamp:
Nov 22, 2007, 4:26:37 PM (17 years ago)
Author:
lmdzadmin
Message:

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

Location:
LMDZ4/trunk/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r776 r866  
    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

  • LMDZ4/trunk/libf/phytherm/plevel.F

    r814 r866  
    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.