Changeset 1677 for XIOS/dev/dev_trunk_omp/src/test/test_complete_omp.f90

Timestamp:

06/25/19 16:14:54 (5 years ago)

Author:

yushan

Message:

MARK: Dynamic workflow graph developement. Branch up to date with trunk @1663.

File:

• XIOS/dev/dev_trunk_omp/src/test/test_complete_omp.f90 (modified) (8 diffs)

XIOS/dev/dev_trunk_omp/src/test/test_complete_omp.f90

@@ -29 +29 @@
   INTEGER, ALLOCATABLE :: kindex(:)
   INTEGER :: ni,ibegin,iend,nj,jbegin,jend
-  INTEGER :: i,j,l,ts,n, nb_pt, provided
+  INTEGER :: i,j,l,ts,n, nb_pt, provided, ts_max
 
   integer :: num_args, ix, nb_servers
@@ -48 +48 @@
 
   READ(args(1),*) nb_servers
+  READ(args(2),*) ts_max
 
 !!! MPI Initialization
@@ -123 +124 @@
   CALL xios_define_calendar(type="Gregorian", &
                             start_date=xios_date(2000, 01, 01, 00, 00, 00), &
-                            time_origin=xios_date(1999, 01, 01, 15, 00, 00))
+                            time_origin=xios_date(2000, 01, 01, 00, 00, 00))
+                            !time_origin=xios_date(1999, 01, 01, 15, 00, 00))
 
   CALL xios_set_axis_attr("axis_atm",n_glo=llm ,value=lval) ;
@@ -216 +218 @@
   CALL xios_define_calendar(type="Gregorian", &
                             start_date=xios_date(2000, 01, 01, 00, 00, 00), &
-                            time_origin=xios_date(1999, 01, 01, 15, 00, 00))
+                            time_origin=xios_date(2000, 01, 01, 00, 00, 00))
+                            !time_origin=xios_date(1999, 01, 01, 15, 00, 00))
 
   CALL xios_set_axis_attr("axis_srf",n_glo=llm ,value=lval)
@@ -236 +239 @@
 
   CALL xios_get_handle("output_surface",file_hdl)
-  CALL xios_add_child(file_hdl,field_hdl)
-  CALL xios_set_attr(field_hdl,field_ref="field_B_srf",name="field_C_srf")
+  ! CALL xios_add_child(file_hdl,field_hdl)
+  ! CALL xios_set_attr(field_hdl,field_ref="field_B_srf",name="field_C_srf")
 
 !!! Definition du timestep
@@ -248 +251 @@
   ni=0 ; lonvalue(:,:)=0
   CALL xios_get_domain_attr("domain_srf",ni=ni,lonvalue_2D=lonvalue)
-
+  
   !PRINT *,"ni",ni
   !PRINT *,"lonvalue",lonvalue ;
@@ -267 +270 @@
 !####################################################################################
 
-    DO ts=1,24*10
-    !DO ts=1,24
+    DO ts=1,ts_max
+    !DO ts=1,24*10
 
       CALL xios_get_handle("atmosphere",ctx_hdl)
@@ -334 +337 @@
     DEALLOCATE(kindex, field_A_srf)
 
-    print *, "Client : xios_finalize "
+    print *, "Client : xios_finalize ts_max=", ts_max
 
     !$omp barrier