Changeset 1088 for XIOS/dev/branch_yushan/src/test
- Timestamp:
- 04/12/17 15:18:22 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_yushan/src/test/test_omp.f90
r1087 r1088 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 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 104 CALL xios_get_handle("field_definition",fieldgroup_hdl) 105 CALL xios_add_child(fieldgroup_hdl,field_hdl,"field_B") 106 CALL xios_set_attr(field_hdl,field_ref="field_A",name="field_B") 107 108 CALL xios_get_handle("output",file_hdl) 109 CALL xios_add_child(file_hdl,field_hdl) 110 CALL xios_set_attr(field_hdl,field_ref="field_A_zoom",name="field_C") 111 print*, "test block 2 OK", rank, size 112 113 ! dtime%second = 3600 114 ! CALL xios_set_timestep(dtime) 115 ! print*, "xios_set_timestep OK", rank, size 116 117 ! The calendar is created as soon as the calendar type is defined. This way 118 ! calendar operations can be used before the context definition is closed 119 ! CALL xios_get_time_origin(date) 120 ! PRINT *, "--> year length = ", xios_get_year_length_in_seconds(date%year) 121 ! PRINT *, "--> day length = ", xios_get_day_length_in_seconds() 122 ! CALL xios_date_convert_to_string(date, date_str) 123 ! PRINT *, "time_origin = ", date_str 124 ! PRINT *, "xios_date_get_second_of_year(time_origin) = ", xios_date_get_second_of_year(date) 125 ! PRINT *, "xios_date_get_day_of_year(time_origin) = ", xios_date_get_day_of_year(date) 126 ! PRINT *, "xios_date_get_fraction_of_year(time_origin) = ", xios_date_get_fraction_of_year(date) 127 ! PRINT *, "xios_date_get_second_of_day(time_origin) = ", xios_date_get_second_of_day(date) 128 ! PRINT *, "xios_date_get_fraction_of_day(time_origin) = ", xios_date_get_fraction_of_day(date) 129 ! dtime%timestep = 1 130 ! dtime = 0.5 * dtime 131 ! CALL xios_duration_convert_to_string(dtime, dtime_str) 132 ! PRINT *, "duration = ", dtime_str 133 ! date = date + 3 * (dtime + dtime) 134 ! CALL xios_date_convert_to_string(date, date_str) 135 ! PRINT *, "date = time_origin + 3 * (duration + duration) = ", date_str 136 ! PRINT *, "xios_date_convert_to_seconds(date) = ", xios_date_convert_to_seconds(date) 137 ! PRINT *, "xios_date_convert_to_seconds(date - 2.5h) = ", xios_date_convert_to_seconds(date - 2.5 * xios_hour) 138 103 139 104 140 CALL xios_context_finalize()
Note: See TracChangeset
for help on using the changeset viewer.