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

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/LMDZ6_rc0/libf/phylmd/plevel.F90

    r1999 r2283  
    99  USE netcdf
    1010  USE dimphy
     11#ifdef CPP_IOIPSL
     12  USE phys_state_var_mod, ONLY: missing_val_nf90
     13#endif
     14#ifdef CPP_XIOS
     15  USE wxios, ONLY: missing_val
     16#endif
    1117  IMPLICIT NONE
    1218
    … …  
    5662  INTEGER i, k
    5763
    58   REAL missing_val
     64! REAL missing_val
     65#ifndef CPP_XIOS
     66  REAL :: missing_val
     67#endif
    5968
    60   missing_val = nf90_fill_real
     69! missing_val = nf90_fill_real
     70
     71#ifndef CPP_XIOS
     72      missing_val=missing_val_nf90
     73#endif
    6174
    6275  IF (first) THEN
Note: See TracChangeset for help on using the changeset viewer.