Changeset 2283 for LMDZ5/branches/LMDZ6_rc0/libf/phylmd/moy_undefSTD.F90

Timestamp:

May 18, 2015, 5:25:29 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Backport of trunk revisions 2271, 2279, 2280, 2282 into LMDZ6_rc0 branch:

• modifications for NMC/XIOS

File:

• LMDZ5/branches/LMDZ6_rc0/libf/phylmd/moy_undefSTD.F90 (modified) (2 diffs)

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

@@ -5 +5 @@
   USE netcdf
   USE dimphy
+#ifdef CPP_IOIPSL 
   USE phys_state_var_mod
+#endif
+
   USE phys_cal_mod, ONLY: mth_len
   IMPLICIT NONE
   include "clesphys.h"
+#ifdef CPP_IOIPSL 
+  REAL :: missing_val
+#endif
 
   ! ====================================================================
@@ -51 +57 @@
   REAL un_jour
   PARAMETER (un_jour=86400.)
-  REAL missing_val
+! REAL missing_val
 
-  missing_val = nf90_fill_real
+! missing_val = nf90_fill_real
+#ifndef CPP_XIOS
+      missing_val=missing_val_nf90
+#endif
 
   DO n = 1, nout