Changeset 1544 for XIOS/dev/branch_openmp/src/test/test_complete_omp.f90
- Timestamp:
- 06/14/18 13:42:14 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_openmp/src/test/test_complete_omp.f90
r1520 r1544 47 47 if(rank < size-2) then 48 48 49 !$omp parallel default(private) 49 !$omp parallel default(firstprivate) 50 !!firstprivate(dtime) 50 51 51 52 !!! XIOS Initialization (get the local communicator) … … 248 249 !#################################################################################### 249 250 250 !DO ts=1,24*2251 DO ts=1,24251 DO ts=1,24*10 252 !DO ts=1,24 252 253 253 254 CALL xios_get_handle("atmosphere",ctx_hdl)
Note: See TracChangeset
for help on using the changeset viewer.