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

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

@@ -33 +33 @@
    USE obs_utils               ! Various observation tools
    USE obs_inter_sup
+   USE wrk_nemo                ! Memory Allocation
 
    IMPLICIT NONE
@@ -67 +68 @@
       !! * Modules used
       USE iom
-      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY: z_altbias => wrk_2d_1   ! Array to store the alt bias values
       !
       !! * Arguments
@@ -102 +101 @@
          & zglam, &
          & zgphi
+      REAL(wp), POINTER, DIMENSION(:,:) ::   z_altbias
       REAL(wp) :: zlam
       REAL(wp) :: zphi
@@ -109 +109 @@
       INTEGER :: numaltbias
 
-      IF(wrk_in_use(2, 1))THEN
-         CALL ctl_stop('obs_rea_altbias : requested workspace array unavailable.')
-         RETURN
-      END IF
+      CALL wrk_alloc(jpi,jpj,z_altbias) 
 
       IF(lwp)WRITE(numout,*) 
@@ -211 +208 @@
       END DO
 
-      IF(wrk_not_released(2, 1))THEN
-         CALL ctl_stop('obs_rea_altbias : failed to release workspace array.')
-      END IF
+      CALL wrk_dealloc(jpi,jpj,z_altbias) 
 
    END SUBROUTINE obs_rea_altbias