Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/OBS/obs_inter_sup.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/OPA_SRC/OBS/obs_inter_sup.F90 (modified) (4 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/OBS/obs_inter_sup.F90

@@ -10 +10 @@
    !!---------------------------------------------------------------------
    !! * Modules used
+   USE wrk_nemo        ! Memory Allocation
    USE par_kind        ! Precision variables
    USE dom_oce         ! Domain variables
@@ -105 +106 @@
       !!        !  08-02  (K. Mogensen)  Original code
       !!----------------------------------------------------------------------
-      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY: wrk_3d_1
       !!
       !! * Arguments
@@ -122 +121 @@
          & pgval            ! Stencil at each point
       !! * Local declarations
-      REAL(KIND=wp), POINTER, DIMENSION(:,:,:) :: &
-         & zval
+      REAL(KIND=wp), POINTER, DIMENSION(:,:,:) ::   zval
       REAL(KIND=wp), DIMENSION(kptsi,kptsj,1,kobs) ::&
          & zgval 
 
       ! Check workspace array and set-up pointer
-      IF(wrk_in_use(3, 1))THEN
-         CALL ctl_stop('obs_int_comm_2d : requested workspace array unavailable.')
-         RETURN
-      END IF
-      zval => wrk_3d_1(:,:,1:1)
+      CALL wrk_alloc(jpi,jpj,1,zval) 
 
       ! Set up local "3D" buffer
@@ -156 +150 @@
 
       ! 'Release' workspace array back to pool
-      IF(wrk_not_released(3, 1))THEN
-         CALL ctl_stop('obs_int_comm_2d : failed to release workspace array.')
-      END IF
+      CALL wrk_dealloc(jpi,jpj,1,zval) 
 
    END SUBROUTINE obs_int_comm_2d