Changeset 1787 for LMDZ5/trunk/libf/phylmd/pbl_surface_mod.F90

Timestamp:

Jul 16, 2013, 11:47:10 AM (11 years ago)

Author:

idelkadi

Message:

Correction pour prendre en compte le cas AMMA

File:

• LMDZ5/trunk/libf/phylmd/pbl_surface_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/pbl_surface_mod.F90

@@ -42 +42 @@
   REAL, ALLOCATABLE, DIMENSION(:,:), PRIVATE, SAVE   :: agesno ! age of snow at surface
   !$OMP THREADPRIVATE(agesno)
-  REAL, ALLOCATABLE, DIMENSION(:,:,:), PRIVATE, SAVE :: ftsoil ! soil temperature
+! Correction pour le cas AMMA (PRIVATE)
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), SAVE :: ftsoil ! soil temperature
   !$OMP THREADPRIVATE(ftsoil)