Changeset 3147 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcini_lobster.F90

Timestamp:

2011-11-17T17:28:03+01:00 (12 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/LOBSTER/trcini_lobster.F90 (modified) (3 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcini_lobster.F90

@@ -21 +21 @@
    USE trc
    USE lbclnk 
+   USE wrk_nemo_2
 
    IMPLICIT NONE
@@ -40 +41 @@
       !! ** purpose :   specific initialisation for LOBSTER bio-model
       !!----------------------------------------------------------------------
-      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY:   zrro => wrk_2d_1 , zdm0 => wrk_3d_1
       !!
       INTEGER  ::   ji, jj, jk, jn
       REAL(wp) ::   ztest, zfluo, zfluu
-      !!----------------------------------------------------------------------
-      !
-      IF(  wrk_in_use(2, 1)  .OR.  wrk_in_use(3, 1)  )  THEN
-         CALL ctl_stop('trc_ini_lobster: requested workspace arrays unavailable')   ;  RETURN
-      ENDIF
+      REAL(wp), POINTER, DIMENSION(:,:  ) :: zrro
+      REAL(wp), POINTER, DIMENSION(:,:,:) :: zdm0
+      !!---------------------------------------------------------------------
+
+      ! Allocate temporary workspace
+      CALL wrk_alloc( jpi, jpj,      zrro )
+      CALL wrk_alloc( jpi, jpj, jpk, zdm0 )
+
 
       IF(lwp) WRITE(numout,*)
@@ -254 +256 @@
       IF(lwp) WRITE(numout,*) 'Initialization of LOBSTER tracers done'
       !
-      IF(  wrk_not_released(2, 1)  .OR.   &
-           wrk_not_released(3, 1)   )   CALL ctl_stop('trc_ini_lobster: failed to release workspace arrays')
+      CALL wrk_dealloc( jpi, jpj,      zrro )
+      CALL wrk_dealloc( jpi, jpj, jpk, zdm0 )
       !
    END SUBROUTINE trc_ini_lobster