- 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/cosp_output_mod.F90
r3308 r4727 235 235 USE time_phylmdz_mod, ONLY: day_ref, annee_ref, day_ini, start_time, itau_phy 236 236 USE print_control_mod, ONLY: lunout 237 238 #ifdef CPP_XIOS 239 ! ug Pour les sorties XIOS 240 USE wxios 241 #endif 237 ! ug Pour les sorties XIOS 238 USE wxios 242 239 243 240 IMPLICIT NONE … … 263 260 !!! Variables d'entree 264 261 265 #ifdef CPP_XIOS 266 ! ug Variables utilisées pour récupérer le calendrier pour xios 267 INTEGER :: x_an, x_mois, x_jour 268 REAL :: x_heure 269 INTEGER :: ini_an, ini_mois, ini_jour 270 REAL :: ini_heure 271 #endif 262 ! ug Variables utilisées pour récupérer le calendrier pour xios 263 INTEGER :: x_an, x_mois, x_jour 264 REAL :: x_heure 265 INTEGER :: ini_an, ini_mois, ini_jour 266 REAL :: ini_heure 272 267 273 268 WRITE(lunout,*) 'Debut cosp_output_mod.F90' … … 316 311 CALL ymds2ju(annee_ref, 1, day_ini, start_time, zjulian_start) 317 312 318 #ifdef CPP_XIOS 313 IF (using_xios) THEN 319 314 320 ! recuperer la valeur indefine Xios321 ! CALL xios_get_field_attr("clcalipso",default_value=Cosp_fill_value)322 ! Cosp_fill_value=missing_val323 Cosp_fill_value=0.324 print*,'Cosp_fill_value=',Cosp_fill_value325 ! if (use_vgrid) then326 ! print*,'vgrid%Nlvgrid, vgrid%z = ',vgrid%Nlvgrid, vgrid%z327 CALL wxios_add_vaxis("height", vgrid%Nlvgrid, vgrid%z)328 print*,'wxios_add_vaxis '329 ! else330 ! WRITE(lunout,*) 'wxios_add_vaxis "presnivs", vgrid%Nlvgrid ',vgrid%Nlvgrid331 ! CALL wxios_add_vaxis("presnivs", vgrid%Nlvgrid, presnivs)332 ! endif333 WRITE(lunout,*) 'wxios_add_vaxis height_mlev, Nlevlmdz ',Nlevlmdz334 CALL wxios_add_vaxis("height_mlev", Nlevlmdz, vgrid%mz)335 WRITE(lunout,*) 'wxios_add_vaxis sza, PARASOL_NREFL ',PARASOL_NREFL336 CALL wxios_add_vaxis("sza", PARASOL_NREFL, PARASOL_SZA)337 WRITE(lunout,*) 'wxios_add_vaxis pressure2 ',7338 CALL wxios_add_vaxis("pressure2", 7, ISCCP_PC)339 WRITE(lunout,*) 'wxios_add_vaxis column ',Ncolumns340 CALL wxios_add_vaxis("column", Ncolumns, column_ax)341 342 ! AI nov 2015343 CALL wxios_add_vaxis("temp", LIDAR_NTEMP, LIDAR_PHASE_TEMP)344 CALL wxios_add_vaxis("cth", MISR_N_CTH, MISR_CTH)345 CALL wxios_add_vaxis("dbze", DBZE_BINS, dbze_ax)346 CALL wxios_add_vaxis("scatratio", SR_BINS, sratio_ax)347 CALL wxios_add_vaxis("ReffIce", numMODISReffIceBins, reffICE_binCenters)348 CALL wxios_add_vaxis("ReffLiq", numMODISReffLiqBins, reffLIQ_binCenters)349 print*,'reffICE_binCenters=',reffICE_binCenters350 CALL wxios_add_vaxis("tau", 7, ISCCP_TAU)351 352 #endif 315 ! recuperer la valeur indefine Xios 316 ! CALL xios_get_field_attr("clcalipso",default_value=Cosp_fill_value) 317 ! Cosp_fill_value=missing_val 318 Cosp_fill_value=0. 319 print*,'Cosp_fill_value=',Cosp_fill_value 320 ! if (use_vgrid) then 321 ! print*,'vgrid%Nlvgrid, vgrid%z = ',vgrid%Nlvgrid, vgrid%z 322 CALL wxios_add_vaxis("height", vgrid%Nlvgrid, vgrid%z) 323 print*,'wxios_add_vaxis ' 324 ! else 325 ! WRITE(lunout,*) 'wxios_add_vaxis "presnivs", vgrid%Nlvgrid ',vgrid%Nlvgrid 326 ! CALL wxios_add_vaxis("presnivs", vgrid%Nlvgrid, presnivs) 327 ! endif 328 WRITE(lunout,*) 'wxios_add_vaxis height_mlev, Nlevlmdz ',Nlevlmdz 329 CALL wxios_add_vaxis("height_mlev", Nlevlmdz, vgrid%mz) 330 WRITE(lunout,*) 'wxios_add_vaxis sza, PARASOL_NREFL ',PARASOL_NREFL 331 CALL wxios_add_vaxis("sza", PARASOL_NREFL, PARASOL_SZA) 332 WRITE(lunout,*) 'wxios_add_vaxis pressure2 ',7 333 CALL wxios_add_vaxis("pressure2", 7, ISCCP_PC) 334 WRITE(lunout,*) 'wxios_add_vaxis column ',Ncolumns 335 CALL wxios_add_vaxis("column", Ncolumns, column_ax) 336 337 ! AI nov 2015 338 CALL wxios_add_vaxis("temp", LIDAR_NTEMP, LIDAR_PHASE_TEMP) 339 CALL wxios_add_vaxis("cth", MISR_N_CTH, MISR_CTH) 340 CALL wxios_add_vaxis("dbze", DBZE_BINS, dbze_ax) 341 CALL wxios_add_vaxis("scatratio", SR_BINS, sratio_ax) 342 CALL wxios_add_vaxis("ReffIce", numMODISReffIceBins, reffICE_binCenters) 343 CALL wxios_add_vaxis("ReffLiq", numMODISReffLiqBins, reffLIQ_binCenters) 344 print*,'reffICE_binCenters=',reffICE_binCenters 345 CALL wxios_add_vaxis("tau", 7, ISCCP_TAU) 346 347 ENDIF 353 348 354 349 zdtimemoy_cosp = freq_COSP ! Frequence ou l on moyenne … … 363 358 ! nhoricosp(iff),cosp_nidfiles(iff) 364 359 365 #ifdef CPP_XIOS 366 IF (.not. ok_all_xml) then367 WRITE(lunout,*) 'wxios_add_file ',cosp_outfilenames(iff)368 CALL wxios_add_file(cosp_outfilenames(iff),chfreq(iff),10)369 ENDIF370 #endif 360 IF (using_xios) THEN 361 IF (.not. ok_all_xml) then 362 WRITE(lunout,*) 'wxios_add_file ',cosp_outfilenames(iff) 363 CALL wxios_add_file(cosp_outfilenames(iff),chfreq(iff),10) 364 ENDIF 365 ENDIF 371 366 372 367 #ifndef CPP_IOIPSL_NO_OUTPUT
Note: See TracChangeset
for help on using the changeset viewer.