Changeset 2999 for LMDZ5/trunk/libf/phylmd

Timestamp:

Sep 28, 2017, 10:43:29 AM (7 years ago)

Author:

Ehouarn Millour

Message:

Follow-up to rev 2997; in the XIOS case "missing_val" should also be set before being used... Thus moved its initialization to the beginning of physiq.
EM

File:

• LMDZ5/trunk/libf/phylmd/physiq_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/physiq_mod.F90

@@ -1192 +1192 @@
        pbase=0
        !IM 180608
+
+#ifdef CPP_XIOS
+       ! Get "missing_val" value from XML files (from temperature variable)
+       !$OMP MASTER
+       CALL xios_get_field_attr("temp",default_value=missing_val_omp)
+       !$OMP END MASTER
+       !$OMP BARRIER
+       missing_val=missing_val_omp
+#endif
 
        itau_con=0
@@ -4382 +4391 @@
     !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"