Changeset 835 for LMDZ4/trunk/libf/phytherm

Timestamp:

Aug 29, 2007, 10:59:58 AM (17 years ago)

Author:

lmdzadmin

Message:

Petit bug declaration fmagic_omp
AC/IM

File:

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

LMDZ4/trunk/libf/phytherm/conf_phys.F90

@@ -86 +86 @@
   INTEGER,SAVE :: top_height_omp,overlap_omp
   REAL,SAVE :: cdmmax_omp,cdhmax_omp,ksta_omp,ksta_ter_omp
-  LOGICAL,SAVE :: ok_kzmin_omp, fmagic_omp
+  LOGICAL,SAVE :: ok_kzmin_omp
+  REAL, SAVE :: fmagic_omp
   INTEGER,SAVE :: iflag_pbl_omp,lev_histhf_omp,lev_histday_omp,lev_histmth_omp
   CHARACTER*4, SAVE :: type_run_omp