Changeset 3435 for LMDZ6/trunk/libf/phylmd/iostart.F90
- Timestamp:
- Jan 22, 2019, 4:21:59 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/iostart.F90
r3401 r3435 117 117 USE netcdf 118 118 USE dimphy 119 USE geometry_mod 119 120 USE mod_grid_phy_lmdz 120 121 USE mod_phys_lmdz_para … … 126 127 127 128 REAL :: field_glo(klon_glo,field_size) 129 REAL :: field_glo_tmp(klon_glo,field_size) 130 INTEGER :: ind_cell_glo_glo(klon_glo) 128 131 LOGICAL :: tmp_found 129 132 INTEGER :: varid 130 INTEGER :: ierr 131 132 IF (is_mpi_root .AND. is_omp_root) THEN 133 INTEGER :: ierr,i 134 135 ! IF (is_master) ALLOCATE(ind_cell_glo_glo(1:klon_glo)) 136 CALL gather(ind_cell_glo,ind_cell_glo_glo) 137 138 IF (is_master) THEN 133 139 134 140 ierr=NF90_INQ_VARID(nid_start,Field_name,varid) 135 141 136 142 IF (ierr==NF90_NOERR) THEN 137 CALL body(field_glo )143 CALL body(field_glo_tmp) 138 144 tmp_found=.TRUE. 139 145 ELSE … … 146 152 147 153 IF (tmp_found) THEN 154 IF (is_master) THEN 155 DO i=1,klon_glo 156 field_glo(i,:)=field_glo_tmp(ind_cell_glo_glo(i),:) 157 ENDDO 158 ENDIF 148 159 CALL scatter(field_glo,field) 149 160 ENDIF … … 358 369 USE netcdf 359 370 USE dimphy 371 USE geometry_mod 360 372 USE mod_grid_phy_lmdz 361 373 USE mod_phys_lmdz_para … … 367 379 368 380 REAL :: field_glo(klon_glo,field_size) 369 INTEGER :: ierr 381 REAL :: field_glo_tmp(klon_glo,field_size) 382 ! INTEGER,ALLOCATABLE :: ind_cell_glo_glo(:) 383 INTEGER :: ind_cell_glo_glo(klon_glo) 384 INTEGER :: ierr,i 370 385 INTEGER :: nvarid 371 386 INTEGER :: idim 372 387 373 388 374 CALL gather(field,field_glo) 375 376 IF (is_mpi_root .AND. is_omp_root) THEN 389 ! IF (is_master) ALLOCATE(ind_cell_glo_glo(klon_glo)) 390 CALL gather(ind_cell_glo,ind_cell_glo_glo) 391 392 CALL gather(field,field_glo_tmp) 393 394 IF (is_master) THEN 395 396 DO i=1,klon_glo 397 field_glo(ind_cell_glo_glo(i),:)=field_glo_tmp(i,:) 398 ENDDO 399 377 400 378 401 IF (field_size==1) THEN
Note: See TracChangeset
for help on using the changeset viewer.