Changeset 4727 for LMDZ6/branches/LMDZ_ECRad/libf/phylmd/cosp/phys_cosp.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/cosp/phys_cosp.F90
r3435 r4727 84 84 use cosp_output_write_mod 85 85 ! use MOD_COSP_Modis_Simulator, only : cosp_modis 86 #ifdef CPP_XIOS 87 USE xios, ONLY: xios_field_is_active 88 #endif 86 USE lmdz_xios, ONLY: xios_field_is_active, using_xios 89 87 use cosp_read_otputkeys 90 88 … … 183 181 184 182 ! Clefs Outputs initialisation 185 #ifdef CPP_XIOS 186 call cosp_outputkeys_init(cfg) 187 #else 188 call read_cosp_output_nl(itap,cosp_output_nl,cfg) 189 #endif 183 IF (using_xios) THEN 184 call cosp_outputkeys_init(cfg) 185 ELSE 186 call read_cosp_output_nl(itap,cosp_output_nl,cfg) 187 ENDIF 188 190 189 !!! call cosp_outputkeys_test(cfg) 191 190 print*,' Cles des differents simulateurs cosp a itap :',itap … … 203 202 !!! Ici on modifie les cles logiques pour les outputs selon les champs actives dans les .xml 204 203 if ((itap.gt.1).and.(first_write))then 205 #ifdef CPP_XIOS 206 call read_xiosfieldactive(cfg)207 #endif 204 205 IF (using_xios) call read_xiosfieldactive(cfg) 206 208 207 first_write=.false. 209 208
Note: See TracChangeset
for help on using the changeset viewer.