Changeset 1067 for XIOS/dev/branch_yushan/src/test

Timestamp:

03/08/17 16:55:00 (7 years ago)

Author:

yushan

Message:

server mode OK tested with test_complete

Location:

XIOS/dev/branch_yushan/src/test

Files:

• test_client.f90 (modified) (2 diffs)
• test_complete.f90 (modified) (12 diffs)

XIOS/dev/branch_yushan/src/test/test_client.f90

@@ -36 +36 @@
   CALL MPI_INIT(ierr)
   CALL init_wait
+
+  CALL MPI_COMM_RANK(MPI_COMM_WORLD,rank,ierr)
+  if(rank < 2) then
   
   CALL xios_initialize(id,return_comm=comm)
@@ -162 +165 @@
   CALL xios_finalize()
 
+   else
+
+   CALL xios_init_server
+  
+   endif
+    
+
   CALL MPI_FINALIZE(ierr)
 

XIOS/dev/branch_yushan/src/test/test_complete.f90

@@ -10 +10 @@
 
   CHARACTER(len=*),PARAMETER :: id="client"
-  INTEGER :: comm
+  INTEGER :: comm, comm2
   TYPE(xios_duration)  :: dtime
   TYPE(xios_context) :: ctx_hdl
@@ -48 +48 @@
 !###########################################################################
 
-!!! Initialisation des coordonnées globales et locales pour la grille réguliÚre
+!!! Initialisation des coordonnes globales et locales pour la grille rgulire
 
   DO j=1,nj_glo
@@ -80 +80 @@
 
   CALL xios_context_initialize("atmosphere",comm)
+  print*, "init context atmosphere comm = ", comm
+
   CALL xios_get_handle("atmosphere",ctx_hdl)
   CALL xios_set_current_context(ctx_hdl)
@@ -103 +105 @@
   CALL xios_set_fieldgroup_attr("field_definition",enabled=.TRUE.)
 
-!!! Création d un nouveau champ
+!!! Cration d un nouveau champ
 
   CALL xios_get_handle("field_definition",fieldgroup_hdl)
@@ -123 +125 @@
   CALL xios_set_timestep(timestep=dtime)
 
-!!! Recupration des valeurs des longitudes et de taille des domaines locaux (pour test de fonctionnalité)
+!!! Recupration des valeurs des longitudes et de taille des domaines locaux (pour test de fonctionnalit)
 
   ni=0 ; lonvalue(:,:)=0
@@ -162 +164 @@
 !###########################################################################
 
-!!! Initialisation des coordonnées globales et locales pour la grille indexee (1 point sur 2)
+!!! Initialisation des coordonnes globales et locales pour la grille indexee (1 point sur 2)
 
     nb_pt=ni*nj/2
@@ -172 +174 @@
 
   CALL xios_context_initialize("surface",comm)
+  print*, "init context surface comm = ", comm
+
   CALL xios_get_handle("surface",ctx_hdl)
   CALL xios_set_current_context(ctx_hdl)
@@ -185 +189 @@
   CALL xios_set_domain_attr("domain_srf",lonvalue_2D=lon,latvalue_2D=lat)
 
-!!! Création d un nouveau champ
+!!! Cration d un nouveau champ
 
   CALL xios_get_handle("field_definition",fieldgroup_hdl)
@@ -205 +209 @@
   CALL xios_set_timestep(timestep=dtime)
 
-!!! Recupration des valeurs des longitudes et de taille des domaines locaux (pour test de fonctionnalité)
+!!! Recupration des valeurs des longitudes et de taille des domaines locaux (pour test de fonctionnalit)
 
   ni=0 ; lonvalue(:,:)=0
@@ -217 +221 @@
   CALL xios_close_context_definition()
 
-  print *, "xios_close_context_definition(surface)" 
+ print *, "xios_close_context_definition(surface)" 
 
 
@@ -224 +228 @@
 !####################################################################################
 
-    !DO ts=1,24*10
-    DO ts=1,24
+    DO ts=1,24*10
+    !DO ts=1,24
 
       CALL xios_get_handle("atmosphere",ctx_hdl)
@@ -264 +268 @@
 !!! Fin des contextes
 
-    print *, "start : xios_context_finalize(surface)"
+    !print *, "start : xios_context_finalize(surface)"
 
     CALL xios_get_handle("surface",ctx_hdl) 
-    print *, "xios_get_handle OK"
+    !print *, "xios_get_handle (surface) OK"
     CALL xios_set_current_context(ctx_hdl)
-    print *, "xios_set_current_context OK"
+    !print *, "xios_set_current_context (surface) OK"
     CALL xios_context_finalize()
 
     print *, "xios_context_finalize(surface)" 
 
-    CALL xios_get_handle("atmosphere",ctx_hdl)
-    CALL xios_set_current_context(ctx_hdl)
-    CALL xios_context_finalize()
+     CALL xios_get_handle("atmosphere",ctx_hdl)
+!     !print *, "xios_get_handle (atmosphere) OK"
+     CALL xios_set_current_context(ctx_hdl)
+!     !print *, "xios_set_current_context (atmosphere) OK"
+     CALL xios_context_finalize()
 
     print *, "xios_context_finalize(atmosphere)"
 
     DEALLOCATE(lon, lat, field_A_atm, lonvalue)
-    DEALLOCATE(kindex, field_A_srf)
+   ! DEALLOCATE(kindex, field_A_srf)
 
 !!! Fin de XIOS