Changeset 2849 for LMDZ5/trunk/libf


Ignore:
Timestamp:
Apr 13, 2017, 7:32:24 PM (8 years ago)
Author:
jyg
Message:

Bug fix concerning iflag_wake_tend=1.

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

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/calwake.F90

    r2761 r2849  
    5454  ! ------
    5555  REAL, DIMENSION(klon, klev),   INTENT (OUT)        :: dt_wake, dq_wake
    56   REAL, DIMENSION(klon),         INTENT (OUT)        :: wake_k
     56!!jyg  REAL, DIMENSION(klon),         INTENT (OUT)        :: wake_k
     57  INTEGER, DIMENSION(klon),      INTENT (OUT)        :: wake_k
    5758  REAL, DIMENSION(klon, klev),   INTENT (OUT)        :: wake_d_deltat_gw
    5859  REAL, DIMENSION(klon),         INTENT (OUT)        :: wake_h

  • LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

    r2842 r2849  
    251251      REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: ale_wake, alp_wake
    252252!$OMP THREADPRIVATE(ale_wake, alp_wake)           
    253       REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: wake_h,wake_k
     253!!jyg!      REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: wake_h,wake_k
     254      REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: wake_h
     255      INTEGER,ALLOCATABLE,SAVE,DIMENSION(:)         :: wake_k
    254256!$OMP THREADPRIVATE(wake_h,wake_k)                       
    255257    REAL,ALLOCATABLE,SAVE,DIMENSION(:,:)            :: wake_omg
Note: See TracChangeset for help on using the changeset viewer.