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

Timestamp:

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

Author:

cetlod

Comment:

--

2011WP/2011Stream2/DynamicMemory_improvments

@@ -61 +61 @@
 {{{
    INTEGER FUNCTION work_alloc()
-
       ALLOCATE( data(jpi,jpj,jpk),  STAT=work_alloc )
-
-   END FUNCTION p4z_che_alloc
+   END FUNCTION work_alloc
 }}}
 
@@ -73 +71 @@
    INTEGER FUNCTION work_alloc()
       INTEGER :: ierr
-
       ALLOCATE( data(jpi,jpj,jpk),  STAT=ierr )
-
       work_alloc = ierr
-
-   END FUNCTION p4z_che_alloc
+   END FUNCTION work_alloc
 }}}
 ----