Changeset 3888 for LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90
- Timestamp:
- May 5, 2021, 12:50:37 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90
r3817 r3888 340 340 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zxfluxlat_x, zxfluxlat_w 341 341 !$OMP THREADPRIVATE(zxfluxlat_x, zxfluxlat_w) 342 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: delta_qsurf 343 !$OMP THREADPRIVATE(delta_qsurf) 342 344 !jyg< 343 345 !!! Entrees supplementaires couche-limite … … 733 735 ALLOCATE(sens_x(klon), sens_w(klon)) 734 736 ALLOCATE(zxfluxlat_x(klon), zxfluxlat_w(klon)) 737 ALLOCATE(delta_qsurf(klon)) 735 738 !jyg< 736 739 !! ALLOCATE(t_x(klon,klev), t_w(klon,klev)) … … 1032 1035 DEALLOCATE(sens_x, sens_w) 1033 1036 DEALLOCATE(zxfluxlat_x, zxfluxlat_w) 1037 DEALLOCATE(delta_qsurf) 1034 1038 !jyg< 1035 1039 !! DEALLOCATE(t_x, t_w)
Note: See TracChangeset
for help on using the changeset viewer.