Changeset 5040 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Jul 9, 2024, 10:44:55 PM (5 months ago)
Author:
evignon
Message:

petite correction commit precedent

Location:
LMDZ6/trunk/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r5039 r5040  
    2727      !$OMP THREADPRIVATE(pbl_eps)
    2828      REAL, SAVE, ALLOCATABLE :: tke_shear(:,:,:), tke_buoy(:,:,:), tke_trans(:,:,:)
    29       !$OMP THREADPRIVATE(tke_shear(:,:,:),tke_buoy(:,:,:),tke_trans(:,:,:))
     29      !$OMP THREADPRIVATE(tke_shear,tke_buoy,tke_trans)
    3030      REAL, SAVE, ALLOCATABLE :: tr_seri(:,:,:)
    3131      !$OMP THREADPRIVATE(tr_seri)

  • LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90

    r5039 r5040  
    2929      !$OMP THREADPRIVATE(pbl_eps)
    3030      REAL, SAVE, ALLOCATABLE :: tke_shear(:,:,:), tke_buoy(:,:,:), tke_trans(:,:,:)
    31       !$OMP THREADPRIVATE(tke_shear(:,:,:),tke_buoy(:,:,:),tke_trans(:,:,:))
     31      !$OMP THREADPRIVATE(tke_shear,tke_buoy,tke_trans)
    3232      REAL, SAVE, ALLOCATABLE :: tr_seri(:,:,:)
    3333      !$OMP THREADPRIVATE(tr_seri)
Note: See TracChangeset for help on using the changeset viewer.