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

Timestamp:

Sep 18, 2013, 2:27:33 PM (11 years ago)

Author:

Laurent Fairhead

Message:

Correction de bugs suite à l'intégration de SISVAT

---

Bug corrections following integration of SISVAT

File:

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

LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -265 +265 @@
 
 ! variables de sorties MM
-      REAL, ALLOCATABLE,DIMENSION(:) :: zxsnow,snowhgt,qsnow,to_ice
-      REAL, ALLOCATABLE,DIMENSION(:) :: sissnow,runoff,albsol3_lic
+      REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: zxsnow,snowhgt,qsnow,to_ice
+      REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: sissnow,runoff,albsol3_lic
+!$OMP THREADPRIVATE(zxsnow,snowhgt,qsnow,to_ice)
+!$OMP THREADPRIVATE(sissnow,runoff,albsol3_lic)
 
 CONTAINS
@@ -418 +420 @@
 
 
-      ALLOCATE (zxsnow(klon),snowhgt(klon),qsnow(klon),to_ice(klon),sissnow(klon),runoff(klon),albsol3_lic(klon))
+      ALLOCATE (zxsnow(klon),snowhgt(klon),qsnow(klon),to_ice(klon))
+      ALLOCATE (sissnow(klon),runoff(klon),albsol3_lic(klon))