Changeset 40 for XMLIO_SERVER/trunk/src/IOSERVER/mod_interface_ioipsl.f90

Timestamp:

09/17/09 10:02:37 (15 years ago)

Author:

ymipsl

Message:

• Les attributs XML peuvent désormais être passer dynamiquement à travers l'interface du server IO.
• ajout d'un attribut name_suffix pour les fichiers

YM

File:

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

XMLIO_SERVER/trunk/src/IOSERVER/mod_interface_ioipsl.f90

@@ -50 +50 @@
     INTEGER :: i,j
     CHARACTER(LEN=20) :: direction
-     
+    CHARACTER(LEN=255) :: full_name
     CALL xmlio__close_definition 
     
@@ -70 +70 @@
       IF (pt_zoom%ni_loc*pt_zoom%nj_loc > 0) THEN
         
+        full_name=TRIM(pt_file%name)
+        IF (pt_file%has_name_suffix) full_name=TRIM(full_name)//TRIM(pt_file%name_suffix) 
         IF ( (pt_zoom%ni_loc == pt_zoom%ni_glo) .AND. (pt_zoom%nj_loc == pt_zoom%nj_glo) ) THEN 
 
-          CALL histbeg(TRIM(pt_file%name),pt_domain%ni,pt_domain%lon, pt_domain%nj, pt_domain%lat, & 
+          CALL histbeg(TRIM(full_name),pt_domain%ni,pt_domain%lon, pt_domain%nj, pt_domain%lat, & 
                      pt_zoom%ibegin_loc, pt_zoom%ni_loc,pt_zoom%jbegin_loc,pt_zoom%nj_loc,         &
                      initial_timestep, initial_date, timestep_value,                               &
@@ -79 +81 @@
 
           CALL set_ioipsl_domain_id(pt_grid,nb_server,server_rank,ioipsl_domain_id)
-          CALL histbeg(TRIM(pt_file%name),pt_domain%ni,pt_domain%lon, pt_domain%nj, pt_domain%lat,  &
+          CALL histbeg(TRIM(full_name),pt_domain%ni,pt_domain%lon, pt_domain%nj, pt_domain%lat,  &
                      pt_zoom%ibegin_loc, pt_zoom%ni_loc,pt_zoom%jbegin_loc,pt_zoom%nj_loc,          &
                      initial_timestep, initial_date, timestep_value,                                &