Changeset 1087 for XIOS/dev/branch_yushan/src/test
- Timestamp:
- 04/12/17 11:55:38 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_yushan/src/test/test_omp.f90
r1085 r1087 88 88 print*, "xios_context_initialize OK", rank, size 89 89 90 ! CALL xios_get_handle("test",ctx_hdl) 91 ! CALL xios_set_current_context(ctx_hdl) 92 93 94 ! CALL xios_get_calendar_type(calendar_type) 95 ! print*, "xios_get_calendar_type OK", rank, size 96 97 ! CALL xios_set_axis_attr("axis_A",n_glo=llm ,value=lval) ; 98 ! CALL xios_set_domain_attr("domain_A",ni_glo=ni_glo, nj_glo=nj_glo, ibegin=ibegin, ni=ni,jbegin=jbegin,nj=nj,type='curvilinear') 99 ! CALL xios_set_domain_attr("domain_A",data_dim=2, data_ibegin=-1, data_ni=ni+2, data_jbegin=-2, data_nj=nj+4) 100 ! CALL xios_set_domain_attr("domain_A",lonvalue_2D=lon,latvalue_2D=lat) 101 ! CALL xios_set_fieldgroup_attr("field_definition",enabled=.TRUE.) 102 ! print*, "test block OK", rank, size 103 90 104 CALL xios_context_finalize() 91 105 print*, "xios_context_finalize OK", rank, size 92 106 93 94 95 96 107 !$omp master 108 call MPI_Barrier(comm) 109 CALL MPI_COMM_FREE(comm, ierr) 110 !$omp end master 97 111 98 112 !$omp barrier
Note: See TracChangeset
for help on using the changeset viewer.