Changeset 26 for XMLIO_SERVER/trunk/src/IOSERVER/mod_iomanager.f90

Timestamp:

03/27/09 18:02:59 (15 years ago)

Author:

ymipsl

Message:

Mise à jour importante :

• ajout de la grille type LMDZ
• ajout des context
• ajout de namelist pour parametrer l'utilisation du server : avec/sans MPI, en utlisant ou pas OASIS

File:

• XMLIO_SERVER/trunk/src/IOSERVER/mod_iomanager.f90 (modified) (3 diffs)

XMLIO_SERVER/trunk/src/IOSERVER/mod_iomanager.f90

@@ -28 +28 @@
   END SUBROUTINE iom__parse_xml_file
    
+  SUBROUTINE iom__swap_context(id)
+  USE xmlio
+  IMPLICIT NONE
+    CHARACTER(LEN=*) :: id
+    
+    IF (current_rank==nb_client) CALL context__swap(id)
+     
+  END SUBROUTINE iom__swap_context
+
   SUBROUTINE iom__set_current_rank(rank)
   IMPLICIT NONE
@@ -99 +108 @@
 
   END SUBROUTINE iom__set_grid_type_nemo
+
+  SUBROUTINE iom__set_grid_type_lmdz(name,nbp,offset)
+  USE xmlio
+  IMPLICIT NONE
+    CHARACTER(LEN=*),INTENT(IN) :: name
+    INTEGER,INTENT(IN)          :: nbp
+    INTEGER,INTENT(IN)          :: offset
+
+    TYPE(grid),   POINTER :: pt_grid
+    TYPE(domain), POINTER :: pt_domain
+    LOGICAL,ALLOCATABLE   :: mask(:,:)
+      
+      CALL grid__get(name,pt_grid)
+      CALL grid__get_subdomain(pt_grid,current_rank,pt_domain)
+      ALLOCATE(mask(pt_domain%ni,pt_domain%nj))
+      mask(:,:)=.TRUE.
+      mask(1:offset,1)=.FALSE.
+      mask(MOD(offset+nbp-1,pt_domain%ni)+2:pt_domain%ni,pt_domain%nj)=.FALSE.
+      CALL domain__set_type_box(pt_domain,mask)
+
+  END SUBROUTINE iom__set_grid_type_lmdz
       
   SUBROUTINE iom__set_time_parameters(itau0,zjulian,zdt)
@@ -273 +303 @@
       nj=local_domain%nj
       
-      IF (pt_field%axis%name/="none") THEN
+      IF (pt_field%axis%name=="none") THEN
         CALL write_ioipsl_3d(varname,Field_buffer(1:ni,1:nj,1:nk))
       ELSE