Ignore:
Timestamp:
05/11/17 16:12:23 (7 years ago)
Author:
yushan
Message:

log OK with threads

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/dev/branch_yushan/src/test/test_omp.f90

    r1115 r1128  
    8383    field_A(1:ni,1:nj,:)=field_A_glo(ibegin+1:iend+1,jbegin+1:jend+1,:) 
    8484 
    85     print*, "xios init OK", rank, size 
     85    !print*, "xios init OK", rank, size 
    8686 
    8787    CALL xios_context_initialize("test",comm) 
    8888 
    89     print*, "xios_context_initialize OK", rank, size 
     89    !print*, "xios_context_initialize OK", rank, size 
    9090 
    9191    CALL xios_get_handle("test",ctx_hdl) 
     
    9494   
    9595    CALL xios_get_calendar_type(calendar_type) 
    96     print*, "xios_get_calendar_type OK", rank, size 
     96    !print*, "xios_get_calendar_type OK", rank, size 
    9797 
    9898    CALL xios_set_axis_attr("axis_A",n_glo=llm ,value=lval) ; 
     
    101101    CALL xios_set_domain_attr("domain_A",lonvalue_2D=lon,latvalue_2D=lat) 
    102102    CALL xios_set_fieldgroup_attr("field_definition",enabled=.TRUE.) 
    103      print*, "test block OK", rank, size 
     103    !print*, "test block OK", rank, size 
    104104 
    105105    CALL xios_get_handle("field_definition",fieldgroup_hdl) 
     
    113113    dtime%second = 3600 
    114114    CALL xios_set_timestep(dtime) 
    115     print*, "xios_set_timestep OK", rank, size     
     115    !print*, "xios_set_timestep OK", rank, size     
    116116 
    117117   ! The calendar is created as soon as the calendar type is defined. This way 
    118118   ! calendar operations can be used before the context definition is closed 
    119119   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() 
    122122   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) 
     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) 
    129129   dtime%timestep = 1 
    130130   dtime = 0.5 * dtime 
    131131   CALL xios_duration_convert_to_string(dtime, dtime_str) 
    132    PRINT *, "duration = ", dtime_str 
     132   !PRINT *, "duration = ", dtime_str 
    133133   date = date + 3 * (dtime + dtime) 
    134134   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) 
     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) 
    138138 
    139139   ni=0 ; lonvalue(:,:)=0; 
    140140   CALL xios_get_domain_attr("domain_A",ni=ni,lonvalue_2D=lonvalue) 
    141    print *,"ni",ni 
     141   !print *,"ni",ni 
    142142   !print *,"lonvalue",lonvalue; 
    143143 
    144144   CALL xios_is_defined_field_attr("field_A",enabled=ok) 
    145    PRINT *,"field_A : attribute enabled is defined ? ",ok  
     145   !PRINT *,"field_A : attribute enabled is defined ? ",ok  
    146146 
    147147   CALL xios_close_context_definition() 
    148    print*, "xios_close_context_definition OK"   
     148   !print*, "xios_close_context_definition OK"   
    149149 
    150150   PRINT*,"field field_A is active ? ",xios_field_is_active("field_A") 
     
    157157 
    158158    CALL xios_context_finalize() 
    159     print*, "xios_context_finalize OK", rank, size 
     159    !print*, "xios_context_finalize OK", rank, size 
    160160 
    161161    CALL xios_finalize() 
     
    170170     !$omp barrier 
    171171 
    172      print*, "MPI_COMM_FREE OK", rank, size 
     172     !print*, "MPI_COMM_FREE OK", rank, size 
    173173 
    174174 
Note: See TracChangeset for help on using the changeset viewer.