Changeset 4727 for LMDZ6/branches/LMDZ_ECRad/libf/phylmd/plevel.F90
- Timestamp:
- Oct 19, 2023, 4:02:57 PM (11 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/plevel.F90
r2346 r4727 12 12 USE phys_state_var_mod, ONLY: missing_val_nf90 13 13 #endif 14 #ifdef CPP_XIOS 15 USE wxios, ONLY: missing_val 16 #endif 14 USE wxios, ONLY: missing_val_xios => missing_val, using_xios 17 15 IMPLICIT NONE 18 16 … … 60 58 61 59 ! REAL missing_val 62 #ifndef CPP_XIOS63 60 REAL :: missing_val 64 #endif65 61 66 62 ! missing_val = nf90_fill_real 67 68 #ifndef CPP_XIOS 69 missing_val=missing_val_nf90 70 #endif 63 IF (using_xios) THEN 64 missing_val = missing_val_xios 65 ELSE 66 missing_val=missing_val_nf90 67 ENDIF 71 68 72 69 IF (first) THEN
Note: See TracChangeset
for help on using the changeset viewer.