Changeset 2316 for LMDZ5

Timestamp:

Jun 25, 2015, 5:34:28 PM (9 years ago)

Author:

musat

Message:

Corrections missing_value pour compilation en mode debug
JG/IM

Location:

LMDZ5/branches/LMDZ6_rc0/libf/phylmd

Files:

• calcul_STDlev.h (modified) (2 diffs)
• moy_undefSTD.F90 (modified) (1 diff)
• undefSTD.F90 (modified) (1 diff)

LMDZ5/branches/LMDZ6_rc0/libf/phylmd/calcul_STDlev.h

@@ -6 +6 @@
 !       missing_val=nf90_fill_real
 !
+       IF (.not. ok_all_xml) then
         CALL ini_undefSTD(itap,itapm1)
+       ENDIF
 !
 !IM on interpole les champs sur les niveaux STD de pression 
@@ -128 +130 @@
 !
 !IM on somme les valeurs toutes les freq_calNMC secondes
-!
-       CALL undefSTD(itap, read_climoz)
-!
 !IM on moyenne a la fin du mois, du jour ou toutes les 6h
 !
-       CALL moy_undefSTD(itap,itapm1)
+       IF (.not. ok_all_xml) then
+        CALL undefSTD(itap, read_climoz)
+        CALL moy_undefSTD(itap,itapm1)
+       ENDIF
 !
        CALL plevel(klon,klev,.true.,pplay,50000., &

LMDZ5/branches/LMDZ6_rc0/libf/phylmd/moy_undefSTD.F90

@@ -8 +8 @@
   USE phys_state_var_mod
 #endif
-
+#ifdef CPP_XIOS
+  USE wxios, ONLY: missing_val
+#endif
+ 
   USE phys_cal_mod, ONLY: mth_len
   IMPLICIT NONE
   include "clesphys.h"
-#ifdef CPP_IOIPSL 
+#ifndef CPP_XIOS 
   REAL :: missing_val
 #endif

LMDZ5/branches/LMDZ6_rc0/libf/phylmd/undefSTD.F90

@@ -8 +8 @@
   USE phys_state_var_mod
 #endif
+#ifdef CPP_XIOS
+  USE wxios, ONLY: missing_val
+#endif
 
   IMPLICIT NONE
   include "clesphys.h"
-#ifdef CPP_IOIPSL 
+#ifndef CPP_XIOS 
   REAL :: missing_val
 #endif