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

Timestamp:

02/16/09 14:24:05 (15 years ago)

Author:

ymipsl

Message:

Correction de bugs pour portage sur Mercure

File:

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

XMLIO_SERVER/trunk/src/IOSERVER/mod_interface_ioipsl.f90

@@ -125 +125 @@
       
      CALL sorted_list__find(sorted_id,hash(varname),pos,found)
+
      IF (found) THEN
        pt_field_base=>field_id%at(pos)%pt
@@ -154 +155 @@
         
      CALL sorted_list__find(sorted_id,hash(varname),pos,found)
-     pt_field_base=>field_id%at(pos)%pt
-     
-     DO i=1,pt_field_base%field_out%size
-       pt_field=>pt_field_base%field_out%at(i)%pt%field
-       ioipsl_file_id=pt_field%internal(id_file)
-       CALL histwrite(ioipsl_file_id, TRIM(pt_field%name), timestep_nb, var, size(var), nindex)
-     ENDDO
-     
+
+     IF (found) THEN
+       pt_field_base=>field_id%at(pos)%pt
+     
+       DO i=1,pt_field_base%field_out%size
+         pt_field=>pt_field_base%field_out%at(i)%pt%field
+         ioipsl_file_id=pt_field%internal(id_file)
+         CALL histwrite(ioipsl_file_id, TRIM(pt_field%name), timestep_nb, var, size(var), nindex)
+       ENDDO
+     ENDIF
    END SUBROUTINE write_ioipsl_3d