Changeset 4743 for LMDZ6/branches/Portage_acc/libf/phylmd/moy_undefSTD.F90
- Timestamp:
- Oct 30, 2023, 5:37:00 PM (8 months ago)
- Location:
- LMDZ6/branches/Portage_acc
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Portage_acc
- Property svn:mergeinfo changed
-
LMDZ6/branches/Portage_acc/libf/phylmd/moy_undefSTD.F90
r3435 r4743 8 8 USE phys_state_var_mod 9 9 #endif 10 #ifdef CPP_XIOS 11 USE wxios, ONLY: missing_val 12 #endif 10 USE wxios, ONLY: missing_val_xios => missing_val, using_xios 13 11 14 12 USE phys_cal_mod, ONLY: mth_len 15 13 IMPLICIT NONE 16 14 include "clesphys.h" 17 #ifndef CPP_XIOS18 15 REAL :: missing_val 19 #endif20 16 21 17 ! ==================================================================== … … 59 55 60 56 ! missing_val = nf90_fill_real 61 #ifndef CPP_XIOS 62 missing_val=missing_val_nf90 63 #endif 57 IF (using_xios) THEN 58 missing_val = missing_val_xios 59 ELSE 60 missing_val=missing_val_nf90 61 ENDIF 64 62 65 63 DO n = 1, nout
Note: See TracChangeset
for help on using the changeset viewer.