Changeset 1142 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/pbl_surface_mod.F90

Timestamp:

Apr 7, 2009, 5:53:39 PM (15 years ago)

Author:

yann meurdesoif

Message:

Portage vers Vargas

Y.M + E.M

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/pbl_surface_mod.F90 (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/pbl_surface_mod.F90

@@ -460 +460 @@
 !****************************************************************************************
 ! Declarations specifiques pour le 1D. A reprendre 
-  REAL  :: fsens,flat
-  LOGICAL ok_flux_surf
-  DATA ok_flux_surf/.FALSE./
-!ym pas glop !!
-  COMMON /flux_arp/fsens,flat,ok_flux_surf
-!$OMP THREADPRIVATE(/flux_arp/)
+  REAL,SAVE    :: fsens,flat
+  LOGICAL,SAVE :: ok_flux_surf=.FALSE.
+!$OMP THREADPRIVATE(fsens,flat,ok_flux_surf)
 
 !****************************************************************************************