Changeset 3294 for trunk/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcini_lobster.F90

Timestamp:

2012-01-28T17:44:18+01:00 (12 years ago)

Author:

rblod

Message:

Merge of 3.4beta into the trunk

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcini_lobster.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcini_lobster.F90

@@ -40 +40 @@
       !! ** 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 +255 @@
       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