Changeset 2999


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/physiq_mod.F90

    r2997 r2999  
    11921192       pbase=0
    11931193       !IM 180608
     1194
     1195#ifdef CPP_XIOS
     1196       ! Get "missing_val" value from XML files (from temperature variable)
     1197       !$OMP MASTER
     1198       CALL xios_get_field_attr("temp",default_value=missing_val_omp)
     1199       !$OMP END MASTER
     1200       !$OMP BARRIER
     1201       missing_val=missing_val_omp
     1202#endif
    11941203
    11951204       itau_con=0
     
    43824391    !IM Interpolation sur les niveaux de pression du NMC
    43834392    !   -------------------------------------------------
    4384 #ifdef CPP_XIOS
    4385     !$OMP MASTER
    4386     !On recupere la valeur de la missing value donnee dans le xml
    4387     CALL xios_get_field_attr("t850",default_value=missing_val_omp)
    4388     !         PRINT *,"ARNAUD value missing ",missing_val_omp
    4389     !$OMP END MASTER
    4390     !$OMP BARRIER
    4391     missing_val=missing_val_omp
    4392 #endif
    4393 #ifndef CPP_XIOS
    4394     missing_val=missing_val_nf90
    4395 #endif
    43964393    !
    43974394    include "calcul_STDlev.h"
Note: See TracChangeset for help on using the changeset viewer.