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_new.F90

    r1999 r2283  
    1010  USE netcdf
    1111  USE dimphy
     12#ifdef CPP_IOIPSL
     13  USE phys_state_var_mod, ONLY: missing_val_nf90
     14#endif
     15#ifdef CPP_XIOS
     16  USE wxios, ONLY: missing_val
     17#endif
     18
    1219  IMPLICIT NONE
    1320
    … …  
    5865  INTEGER i, k
    5966
    60   REAL missing_val
     67! REAL missing_val
     68#ifndef CPP_XIOS
     69  REAL :: missing_val
     70#endif
    6171
    62   missing_val = nf90_fill_real
     72! missing_val = nf90_fill_real
     73
     74#ifndef CPP_XIOS
     75      missing_val=missing_val_nf90
     76#endif
    6377
    6478  IF (first) THEN
Note: See TracChangeset for help on using the changeset viewer.