Changeset 707
- Timestamp:
- 07/20/18 11:08:31 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/output/xios_mod.F90
r548 r707 463 463 SUBROUTINE xios_read_var(name,field) 464 464 USE prec 465 USE transfert_mod 465 466 CHARACTER(LEN=*),INTENT(IN) :: name 466 467 REAL(rstd), INTENT(OUT) :: field 468 !$OMP MASTER 467 469 CALL xios_recv_field(name,field) 470 !$OMP END MASTER 471 CALL bcast_omp(field) 468 472 END SUBROUTINE 469 473
Note: See TracChangeset
for help on using the changeset viewer.