Changeset 2953 for LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Jul 14, 2017, 11:55:59 PM (7 years ago)

Author:

oboucher

Message:

Correcting an issue with the aerosol load diagnostics
that was introduced with revision 2823 in a failed attempt
to save a bit of memory... This is bit convergent with
previous version as it affects only diagnostics.

File:

• LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -219 +219 @@
       REAL, SAVE, ALLOCATABLE :: loadno3(:) 
       !$OMP THREADPRIVATE(loadno3) 
-      REAL, SAVE, ALLOCATABLE :: load_tmp1(:) 
-      !$OMP THREADPRIVATE(load_tmp1) 
-      REAL, SAVE, ALLOCATABLE :: load_tmp2(:) 
-      !$OMP THREADPRIVATE(load_tmp2) 
-      REAL, SAVE, ALLOCATABLE :: load_tmp3(:) 
-      !$OMP THREADPRIVATE(load_tmp3) 
+      REAL, SAVE, ALLOCATABLE :: load_tmp1(:), load_tmp2(:)
+      !$OMP THREADPRIVATE(load_tmp1, load_tmp2) 
+      REAL, SAVE, ALLOCATABLE :: load_tmp3(:), load_tmp4(:)
+      !$OMP THREADPRIVATE(load_tmp3, load_tmp4) 
+      REAL, SAVE, ALLOCATABLE :: load_tmp5(:), load_tmp6(:)
+      !$OMP THREADPRIVATE(load_tmp5, load_tmp6) 
+      REAL, SAVE, ALLOCATABLE :: load_tmp7(:), load_tmp8(:)
+      !$OMP THREADPRIVATE(load_tmp7, load_tmp8) 
+      REAL, SAVE, ALLOCATABLE :: load_tmp9(:), load_tmp10(:)
+      !$OMP THREADPRIVATE(load_tmp9, load_tmp10) 
 
 !IM ajout variables CFMIP2/CMIP5
@@ -614 +618 @@
       ALLOCATE(load_tmp2(klon))
       ALLOCATE(load_tmp3(klon))
+      ALLOCATE(load_tmp4(klon))
+      ALLOCATE(load_tmp5(klon))
+      ALLOCATE(load_tmp6(klon))
+      ALLOCATE(load_tmp7(klon))
+      ALLOCATE(load_tmp8(klon))
+      ALLOCATE(load_tmp9(klon))
+      ALLOCATE(load_tmp10(klon))
 
 !IM ajout variables CFMIP2/CMIP5
@@ -877 +888 @@
       DEALLOCATE(load_tmp2)
       DEALLOCATE(load_tmp3)
+      DEALLOCATE(load_tmp4)
+      DEALLOCATE(load_tmp5)
+      DEALLOCATE(load_tmp6)
+      DEALLOCATE(load_tmp7)
+      DEALLOCATE(load_tmp8)
+      DEALLOCATE(load_tmp9)
+      DEALLOCATE(load_tmp10)
       DEALLOCATE(du_gwd_hines,dv_gwd_hines,d_t_hin)
       DEALLOCATE(d_q_ch4)