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

Timestamp:

04/20/09 18:16:37 (15 years ago)

Author:

ymipsl

Message:

Portage sur Vargas + correction sur IOSERVER : finalisation de la derniÚre requÚte

File:

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

XMLIO_SERVER/trunk/src/IOSERVER/mod_interface_ioipsl.f90

@@ -72 +72 @@
         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,  &
-                     pt_zoom%ibegin_loc, pt_zoom%ni_loc,pt_zoom%jbegin_loc,pt_zoom%nj_loc,        &                                            &
-                     initial_timestep, initial_date, timestep_value,                              &
+          CALL histbeg(TRIM(pt_file%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,                               &
                      ioipsl_hori_id, ioipsl_file_id)
          ELSE                                              
@@ -80 +80 @@
           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,  &
-                     pt_zoom%ibegin_loc, pt_zoom%ni_loc,pt_zoom%jbegin_loc,pt_zoom%nj_loc,        &                                            &
-                     initial_timestep, initial_date, timestep_value,                              &
+                     pt_zoom%ibegin_loc, pt_zoom%ni_loc,pt_zoom%jbegin_loc,pt_zoom%nj_loc,          &
+                     initial_timestep, initial_date, timestep_value,                                &
                      ioipsl_hori_id, ioipsl_file_id,domain_id=ioipsl_domain_id)