Changeset 2283 for LMDZ5/branches/LMDZ6_rc0/libf/phylmd/physiq.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/physiq.F90 (modified) (3 diffs)

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

@@ -47 +47 @@
   use phyaqua_mod, only: zenang_an
   USE control_mod
+#ifdef CPP_XIOS
+  USE wxios, ONLY: missing_val, missing_val_omp
+  USE xios, ONLY: xios_get_field_attr
+#endif
 #ifdef REPROBUS
   USE CHEM_REP, ONLY : Init_chem_rep_xjour
@@ -240 +244 @@
   real da(klon,klev),phi(klon,klev,klev),mp(klon,klev)
   real wght_cvfd(klon,klev)
+#ifndef CPP_XIOS
+  REAL, SAVE :: missing_val
+#endif
   ! Variables pour le lessivage convectif
   ! RomP >>> 
@@ -3674 +3681 @@
   !IM Interpolation sur les niveaux de pression du NMC
   !   -------------------------------------------------
+#ifdef CPP_XIOS
+          !$OMP MASTER
+          !On recupere la valeur de la missing value donnee dans le xml
+          CALL xios_get_field_attr("t850",default_value=missing_val_omp)
+!         PRINT *,"ARNAUD value missing ",missing_val_omp
+          !$OMP END MASTER
+          !$OMP BARRIER
+          missing_val=missing_val_omp
+#endif
+#ifndef CPP_XIOS
+          missing_val=missing_val_nf90
+#endif
   !
   include "calcul_STDlev.h"