Changeset 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_altbias.F90

Timestamp:

2011-03-30T17:58:35+02:00 (13 years ago)

Author:

rblod

Message:

First attempt to put dynamic allocation on the trunk

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_altbias.F90 (modified) (4 diffs)

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

@@ -67 +67 @@
       !! * 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
       INTEGER, INTENT(IN) :: kslano      ! Number of SLA Products
@@ -90 +92 @@
       INTEGER :: i_var_id
 
-      REAL(wp), DIMENSION(jpi,jpj) :: & 
-         & z_altbias           ! Array to store the alt bias values
       REAL(wp), DIMENSION(1) :: &
          & zext, &
@@ -109 +109 @@
       INTEGER :: numaltbias
 
+      IF(wrk_in_use(2, 1))THEN
+         CALL ctl_stop('obs_rea_altbias : requested workspace array unavailable.')
+         RETURN
+      END IF
+
       IF(lwp)WRITE(numout,*) 
       IF(lwp)WRITE(numout,*) ' obs_rea_altbias : '
@@ -206 +211 @@
       END DO
 
+      IF(wrk_not_released(2, 1))THEN
+         CALL ctl_stop('obs_rea_altbias : failed to release workspace array.')
+      END IF
+
    END SUBROUTINE obs_rea_altbias