Changes between Version 4 and Version 5 of 2011WP/2011Stream2/DynamicMemory_improvments

Timestamp:

2011-03-04T12:29:15+01:00 (13 years ago)

Author:

cetlod

Comment:

--

2011WP/2011Stream2/DynamicMemory_improvments

@@ -54 +54 @@
 }}}
 
+----
+
+== gfortran spec ==
+
+gfortran doesn't compile when defining allocation function like this
+{{{
+   INTEGER FUNCTION work_alloc()
+
+      ALLOCATE( data(jpi,jpj,jpk),  STAT=work_alloc )
+
+   END FUNCTION p4z_che_alloc
+}}}
+
+The compilation returns this error :
  
+A solution should be to write the function in that way
+{{{
+   INTEGER FUNCTION work_alloc()
+      INTEGER :: ierr
+
+      ALLOCATE( data(jpi,jpj,jpk),  STAT=ierr )
+
+      work_alloc = ierr
+
+   END FUNCTION p4z_che_alloc
+}}}
 ----