Changeset 815 for LMDZ4/trunk/libf/phytherm/surface_data.F90

Timestamp:

Jul 14, 2007, 10:31:47 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Mise a jour des routines de phytherm vers la version V3 de LMDZ4
LF

File:

• LMDZ4/trunk/libf/phytherm/surface_data.F90 (modified) (1 diff)

LMDZ4/trunk/libf/phytherm/surface_data.F90

@@ -10 +10 @@
   REAL, PARAMETER        :: calsno=1./(2.3867e+06*.15)
   
-  LOGICAL, SAVE          :: debug_surf=.FALSE.
-  !$OMP THREADPRIVATE(debug_surf)
-  LOGICAL, SAVE          :: newwind=.FALSE.
-  !$OMP THREADPRIVATE(newwind)
-  
   LOGICAL, SAVE          :: ok_veget       ! true for use of vegetation model ORCHIDEE
   !$OMP THREADPRIVATE(ok_veget)