Changeset 3147 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

Timestamp:

2011-11-17T17:28:03+01:00 (13 years ago)

Author:

cetlod

Message:

branch dev_NEMO_MERGE_2011:New dynamical allocation for TOP

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90 (modified) (4 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

@@ -26 +26 @@
    USE ldftra_oce      ! lateral diffusion coefficient on tracers
    USE prtctl_trc      ! Print control
+   USE wrk_nemo_2      ! Memory allocation
 
    IMPLICIT NONE
@@ -67 +68 @@
       !! ** Method  : - Update the tracer with the advection term following nadv
       !!----------------------------------------------------------------------
-      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY: zun => wrk_3d_4, zvn => wrk_3d_5, zwn => wrk_3d_6   ! effective velocity
       !!
       INTEGER, INTENT(in) ::   kt   ! ocean time-step index
@@ -74 +73 @@
       INTEGER ::   jk 
       CHARACTER (len=22) ::   charout
-      !!----------------------------------------------------------------------
-      !
-      IF( wrk_in_use(3, 4,5,6) ) THEN
-         CALL ctl_stop('trc_adv : requested workspace arrays unavailable')   ;   RETURN
-      ENDIF
+      REAL(wp), POINTER, DIMENSION(:,:,:) :: zun, zvn, zwn  ! effective velocity
+      !!----------------------------------------------------------------------
+      !
+      CALL wrk_alloc( jpi, jpj, jpk, zun, zvn, zwn )
+      !
 
       IF( kt == nittrc000 )   CALL trc_adv_ctl          ! initialisation & control of options
@@ -141 +140 @@
       END IF
       !
-      IF( wrk_not_released(3, 4,5,6) ) CALL ctl_stop('trc_adv : failed to release workspace arrays.')
+      CALL wrk_dealloc( jpi, jpj, jpk, zun, zvn, zwn )
       !
    END SUBROUTINE trc_adv