Changeset 1128 for XIOS/dev/branch_yushan/src/test/test_omp.f90
- Timestamp:
- 05/11/17 16:12:23 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_yushan/src/test/test_omp.f90
r1115 r1128 83 83 field_A(1:ni,1:nj,:)=field_A_glo(ibegin+1:iend+1,jbegin+1:jend+1,:) 84 84 85 print*, "xios init OK", rank, size85 !print*, "xios init OK", rank, size 86 86 87 87 CALL xios_context_initialize("test",comm) 88 88 89 print*, "xios_context_initialize OK", rank, size89 !print*, "xios_context_initialize OK", rank, size 90 90 91 91 CALL xios_get_handle("test",ctx_hdl) … … 94 94 95 95 CALL xios_get_calendar_type(calendar_type) 96 print*, "xios_get_calendar_type OK", rank, size96 !print*, "xios_get_calendar_type OK", rank, size 97 97 98 98 CALL xios_set_axis_attr("axis_A",n_glo=llm ,value=lval) ; … … 101 101 CALL xios_set_domain_attr("domain_A",lonvalue_2D=lon,latvalue_2D=lat) 102 102 CALL xios_set_fieldgroup_attr("field_definition",enabled=.TRUE.) 103 103 !print*, "test block OK", rank, size 104 104 105 105 CALL xios_get_handle("field_definition",fieldgroup_hdl) … … 113 113 dtime%second = 3600 114 114 CALL xios_set_timestep(dtime) 115 print*, "xios_set_timestep OK", rank, size115 !print*, "xios_set_timestep OK", rank, size 116 116 117 117 ! The calendar is created as soon as the calendar type is defined. This way 118 118 ! calendar operations can be used before the context definition is closed 119 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()120 !PRINT *, "--> year length = ", xios_get_year_length_in_seconds(date%year) 121 !PRINT *, "--> day length = ", xios_get_day_length_in_seconds() 122 122 CALL xios_date_convert_to_string(date, date_str) 123 PRINT *, "time_origin = ", date_str124 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)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 129 dtime%timestep = 1 130 130 dtime = 0.5 * dtime 131 131 CALL xios_duration_convert_to_string(dtime, dtime_str) 132 PRINT *, "duration = ", dtime_str132 !PRINT *, "duration = ", dtime_str 133 133 date = date + 3 * (dtime + dtime) 134 134 CALL xios_date_convert_to_string(date, date_str) 135 PRINT *, "date = time_origin + 3 * (duration + duration) = ", date_str136 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)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 138 139 139 ni=0 ; lonvalue(:,:)=0; 140 140 CALL xios_get_domain_attr("domain_A",ni=ni,lonvalue_2D=lonvalue) 141 print *,"ni",ni141 !print *,"ni",ni 142 142 !print *,"lonvalue",lonvalue; 143 143 144 144 CALL xios_is_defined_field_attr("field_A",enabled=ok) 145 PRINT *,"field_A : attribute enabled is defined ? ",ok145 !PRINT *,"field_A : attribute enabled is defined ? ",ok 146 146 147 147 CALL xios_close_context_definition() 148 print*, "xios_close_context_definition OK"148 !print*, "xios_close_context_definition OK" 149 149 150 150 PRINT*,"field field_A is active ? ",xios_field_is_active("field_A") … … 157 157 158 158 CALL xios_context_finalize() 159 print*, "xios_context_finalize OK", rank, size159 !print*, "xios_context_finalize OK", rank, size 160 160 161 161 CALL xios_finalize() … … 170 170 !$omp barrier 171 171 172 print*, "MPI_COMM_FREE OK", rank, size172 !print*, "MPI_COMM_FREE OK", rank, size 173 173 174 174
Note: See TracChangeset
for help on using the changeset viewer.