Changeset 4727 for LMDZ6/branches/LMDZ_ECRad/libf/phylmd/plevel_new.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_new.F90
r2346 r4727 13 13 USE phys_state_var_mod, ONLY: missing_val_nf90 14 14 #endif 15 #ifdef CPP_XIOS 16 USE wxios, ONLY: missing_val 17 #endif 15 USE wxios, ONLY: missing_val_xios=>missing_val, using_xios 18 16 19 17 IMPLICIT NONE … … 62 60 INTEGER i, k 63 61 64 ! REAL missing_val65 #ifndef CPP_XIOS66 62 REAL :: missing_val 67 #endif68 63 69 ! missing_val = nf90_fill_real 70 71 #ifndef CPP_XIOS 72 73 #endif 64 IF (using_xios) THEN 65 missing_val=missing_val_xios 66 ELSE 67 missing_val=missing_val_nf90 68 ENDIF 74 69 75 70 IF (first) THEN
Note: See TracChangeset
for help on using the changeset viewer.