Changes between Version 7 and Version 8 of ticket/0829

Timestamp:

2011-06-03T14:45:14+02:00 (13 years ago)

Author:

rblod

Comment:

--

ticket/0829

@@ -92 +92 @@
 }}}
 
-It was done in https://forge.ipsl.jussieu.fr/nemo/changeset/2771
+It was done in https://forge.ipsl.jussieu.fr/nemo/changeset/2771[[BR]]
+NOt that timing is not needed to change dynamic allocation, It's just an opportunity, in case of we edit all the routines.
 
 ==== 2- Auto-assignement ====
+
+Instead of choosing by hand the number of a working array, we introduce for each type of work arrays a structure a arrays, with an associated increment:
+{{{
+   TYPE work_space_3d
+     LOGICAL ::  in_use
+     REAL(wp), DIMENSION(:,:,:), POINTER :: wrk
+   END TYPE
+   TYPE(work_space_3d), DIMENSION(num_3d_wrkspaces) :: s_wrk_3d
+   INTEGER :: n_wrk_3d
+
+}}}
+Then in each routine, we declare local arrays as pointers
+{{{
+  REAL(wp), DIMENSION (:,:,:), POINTER ::   zwi, zwz
+}}}
+And  we call the subroutines nemo_allocate which points to a work arrays and increment the counter, and nemo_deallocate to decrement
+{{{
+ CALL nemo_allocate(zwi)     ! begin routine
+ CALL nemo_deallocate(zwi)     ! end routine
+}}}
+It was implemented in wrk_nemo_2 and implemented for test in traadv_tvd. To avoid changing all routines before a definitive choice, we choose to keep the old way and duplicate wrk_nemo in wrk_nemo_2 (later saved as wrk_nemo_2_simple), so we declare the double amount of memory.[[BR]]
+To avoid memory leaks, we could check for instance at the end of step that each counter is equal to one.
+
 ==== 3- Dynamic dynamic memory ====