Changeset 3183 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_altbias.F90

Timestamp:

2011-11-25T16:31:02+01:00 (13 years ago)

Author:

davestorkey

Message:

Update dynamic allocation in OBS and ASM modules.

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_altbias.F90 (modified) (5 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_altbias.F90

@@ -33 +33 @@
    USE obs_utils               ! Various observation tools
    USE obs_inter_sup
+   USE wrk_nemo_2              ! 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 +110 @@
       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 +209 @@
       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