Changeset 3179 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM

Timestamp:

2011-11-25T10:44:16+01:00 (12 years ago)

Author:

cetlod

Message:

suppress useless wrk_alloc in OFF_SRC/nemogcm.F90

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90 (modified) (2 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

@@ -371 +371 @@
       USE ldftra_oce,   ONLY: ldftra_oce_alloc
       USE trc_oce,      ONLY: trc_oce_alloc
-      USE wrk_nemo,    ONLY: wrk_alloc
       !
       INTEGER :: ierr
@@ -384 +383 @@
       ierr = ierr + lib_mpp_alloc   (numout)    ! mpp exchanges
       ierr = ierr + trc_oce_alloc   ()          ! shared TRC / TRA arrays
-      ierr = ierr + wrk_alloc(numout, lwp)
       !
       IF( lk_mpp    )   CALL mpp_sum( ierr )