Changeset 2782 for trunk/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER/mod_pack.f90

Timestamp:

2011-06-16T09:35:07+02:00 (13 years ago)

Author:

smasson

Message:

bugfix in xmlio_server for some machines..., see ticket#837

File:

• trunk/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER/mod_pack.f90 (modified) (4 diffs)

trunk/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER/mod_pack.f90

@@ -542 +542 @@
        SELECT CASE(attrib%type)
          CASE (integer0)
-           ALLOCATE(attrib%integer0_ptr)
+!!$           ALLOCATE(attrib%integer0_ptr)
            CALL unpack_data(attrib%integer0_ptr)
          CASE (integer1)
@@ -551 +551 @@
            CALL unpack_data(attrib%integer2_ptr)
          CASE (real0)
-           ALLOCATE(attrib%real0_ptr)
+!!$           ALLOCATE(attrib%real0_ptr)
            CALL unpack_data(attrib%real0_ptr)
          CASE (real1)
@@ -559 +559 @@
            ALLOCATE(attrib%real2_ptr(attrib%dim(1),attrib%dim(2)))
          CASE (logical0)
-           ALLOCATE(attrib%logical0_ptr)
+!!$           ALLOCATE(attrib%logical0_ptr)
            CALL unpack_data(attrib%logical0_ptr)
          CASE (logical1)
@@ -568 +568 @@
            CALL unpack_data(attrib%logical2_ptr)
          CASE (string0)
-           ALLOCATE(attrib%string0_ptr)
+!!$           ALLOCATE(attrib%string0_ptr)
            CALL unpack_string0
          CASE (string1)