Ignore:
Timestamp:
Jun 25, 2015, 3:40:53 PM (9 years ago)
Author:
musat
Message:

Corrections missing_value pour compilation en mode debug
JG/IM

Location:
LMDZ5/branches/testing/libf/phylmd
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/branches/testing/libf/phylmd/calcul_STDlev.h

    r2298 r2314  
    66!       missing_val=nf90_fill_real
    77!
     8       IF (.not. ok_all_xml) then
    89        CALL ini_undefSTD(itap,itapm1)
     10       ENDIF
    911!
    1012!IM on interpole les champs sur les niveaux STD de pression
     
    128130!
    129131!IM on somme les valeurs toutes les freq_calNMC secondes
    130 !
    131        CALL undefSTD(itap, read_climoz)
    132 !
    133132!IM on moyenne a la fin du mois, du jour ou toutes les 6h
    134133!
    135        CALL moy_undefSTD(itap,itapm1)
     134       IF (.not. ok_all_xml) then
     135        CALL undefSTD(itap, read_climoz)
     136        CALL moy_undefSTD(itap,itapm1)
     137       ENDIF
    136138!
    137139       CALL plevel(klon,klev,.true.,pplay,50000., &
  • LMDZ5/branches/testing/libf/phylmd/moy_undefSTD.F90

    r2298 r2314  
    88  USE phys_state_var_mod
    99#endif
    10 
     10#ifdef CPP_XIOS
     11  USE wxios, ONLY: missing_val
     12#endif
     13 
    1114  USE phys_cal_mod, ONLY: mth_len
    1215  IMPLICIT NONE
    1316  include "clesphys.h"
    14 #ifdef CPP_IOIPSL
     17#ifndef CPP_XIOS
    1518  REAL :: missing_val
    1619#endif
  • LMDZ5/branches/testing/libf/phylmd/undefSTD.F90

    r2298 r2314  
    88  USE phys_state_var_mod
    99#endif
     10#ifdef CPP_XIOS
     11  USE wxios, ONLY: missing_val
     12#endif
    1013
    1114  IMPLICIT NONE
    1215  include "clesphys.h"
    13 #ifdef CPP_IOIPSL
     16#ifndef CPP_XIOS
    1417  REAL :: missing_val
    1518#endif
Note: See TracChangeset for help on using the changeset viewer.