Changeset 2775 for branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

Timestamp:

2011-06-03T14:55:09+02:00 (13 years ago)

Author:

rblod

Message:

Add a first solution to find automatically an available working array, see ticket #829 and https://forge.ipsl.jussieu.fr/nemo/wiki/ticket/829

File:

• branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 (modified) (2 diffs)

branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -482 +482 @@
       !! ** Method  :
       !!----------------------------------------------------------------------
-      USE diawri    , ONLY: dia_wri_alloc
-      USE dom_oce   , ONLY: dom_oce_alloc
-      USE ldfdyn_oce, ONLY: ldfdyn_oce_alloc
-      USE ldftra_oce, ONLY: ldftra_oce_alloc
-      USE trc_oce   , ONLY: trc_oce_alloc
-      USE wrk_nemo  , ONLY: wrk_alloc
+      USE diawri     , ONLY: dia_wri_alloc
+      USE dom_oce    , ONLY: dom_oce_alloc
+      USE ldfdyn_oce , ONLY: ldfdyn_oce_alloc
+      USE ldftra_oce , ONLY: ldftra_oce_alloc
+      USE trc_oce    , ONLY: trc_oce_alloc
+      USE wrk_nemo   , ONLY: wrk_alloc
+      USE wrk_nemo_2 , ONLY: wrk_alloc_2
       !
       INTEGER :: ierr
@@ -503 +504 @@
       !
       ierr = ierr + wrk_alloc(numout, lwp)      ! workspace
+      ierr = ierr + wrk_alloc_2(numout, lwp)    ! workspace
       !
       IF( lk_mpp    )   CALL mpp_sum( ierr )