- Timestamp:
- Oct 19, 2023, 4:02:57 PM (8 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/regr_horiz_time_climoz_m.F90
r4202 r4727 66 66 USE regular_lonlat_mod, ONLY: boundslon_reg, boundslat_reg, south, west, east 67 67 USE slopes_m, ONLY: slopes 68 #ifdef CPP_XIOS 69 USE xios 70 #endif 68 USE lmdz_xios 71 69 USE mod_phys_lmdz_para, ONLY: is_mpi_root, is_master, is_omp_master, gather, gather_mpi, bcast_mpi, klon_mpi 72 70 USE geometry_mod, ONLY : latitude_deg, ind_cell_glo … … 240 238 CALL bcast_mpi(ntim_ou) 241 239 242 #ifdef CPP_XIOS243 240 IF (is_mpi_root) THEN 244 241 CALL xios_set_domain_attr("domain_climoz",nj_glo=nlat_in, nj=nlat_in, jbegin=0, latvalue_1d=lat_in/deg2rad) … … 262 259 CALL xios_set_field_attr("tro3_out", enabled=.TRUE.) 263 260 CALL xios_set_field_attr("tro3_out", enabled=.TRUE.) 264 #endif265 261 266 262 IF (first) THEN … … 415 411 !============================================================================= 416 412 IF (grid_type==unstructured) THEN 417 #ifdef CPP_XIOS418 413 nlat_ou=klon_mpi 419 414 … … 428 423 CALL xios_send_field("tro3_in",o3_in3bis(:,:,:,:,:)) 429 424 CALL xios_recv_field("tro3_out",o3_regr_lonlat(1,:,:,:,:)) 430 #endif431 425 ELSE 432 426 … … 462 456 nlat_ou=nbp_lat 463 457 IF (grid_type==unstructured) THEN 464 #ifdef CPP_XIOS465 458 CALL xios_send_field('o3_out',o3_out3) 466 459 ndims=3 467 460 ALLOCATE(o3_out3_glo(nlat_ou, nlev_in, ntim_ou, read_climoz)) 468 461 CALL gather_mpi(o3_out3(1,:,:,:,:), o3_out3_glo) 469 #endif470 462 ENDIF 471 463 … … 508 500 509 501 IF (grid_type==unstructured) THEN 510 #ifdef CPP_XIOS511 502 nlat_ou=klon_mpi 512 503 … … 522 513 IF(.NOT.lprev) o3_regr_lat(:,:, 0, :) = o3_regr_lat(:,:,12,:) 523 514 IF(.NOT.lnext) o3_regr_lat(:,:,13, :) = o3_regr_lat(:,:, 1,:) 524 #endif525 515 526 516 ELSE
Note: See TracChangeset
for help on using the changeset viewer.