- Timestamp:
- Oct 30, 2023, 5:37:00 PM (7 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/cosp2/phys_cosp2.F90
r3373 r4743 73 73 74 74 !! AI rajouter 75 ! #include"cosp_defs.h"75 !INCLUDE "cosp_defs.h" 76 76 ! USE MOD_COSP_CONSTANTS 77 77 ! USE MOD_COSP_TYPES … … 83 83 use cosp_output_mod 84 84 use cosp_output_write_mod 85 USE lmdz_xios, ONLY : using_xios 85 86 ! use MOD_COSP_Modis_Simulator, only : cosp_modis 86 87 ! use mod_cosp_config, only : vgrid_zl,vgrid_zu,vgrid_z … … 245 246 246 247 ! Clefs Outputs initialisation 247 #ifdef CPP_XIOS 248 IF (using_xios) THEN 248 249 call cosp_outputkeys_init(cfg) 249 #else 250 ELSE 250 251 call read_cosp_output_nl(itap,cosp_output_nl,cfg) 251 #endif 252 ENDIF 252 253 253 254 print*,' Cles des differents simulateurs cosp a itap :',itap … … 265 266 !!! Ici on modifie les cles logiques pour les outputs selon les champs actives dans les .xml 266 267 if ((itap.gt.1).and.(first_write))then 267 #ifdef CPP_XIOS 268 call read_xiosfieldactive(cfg) 269 #endif 268 269 IF (using_xios) call read_xiosfieldactive(cfg) 270 270 first_write=.false. 271 271
Note: See TracChangeset
for help on using the changeset viewer.