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

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

@@ -55 +55 @@
       !!----------------------------------------------------------------------
       !! * Modules used
-   
+      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released   
+      USE wrk_nemo, ONLY: zsingu => wrk_2d_1, zcosgu => wrk_2d_2, &
+                          zsingv => wrk_2d_3, zcosgv => wrk_2d_4
       !! * Arguments
       TYPE(obs_prof), INTENT(INOUT) :: profdata    ! Profile data to be read
@@ -63 +65 @@
          & pv
       !! * Local declarations
-      REAL(wp), DIMENSION(jpi,jpj) :: &
-         & zsingu, &
-         & zcosgu, &
-         & zsingv, &
-         & zcosgv
       REAL(wp), DIMENSION(2,2,1) :: zweig
       REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: &
@@ -96 +93 @@
       INTEGER :: jk
 
+      IF(wrk_in_use(2, 1,2,3,4))THEN
+         CALL ctl_stop('obs_rotvel : requested workspace arrays unavailable.')
+         RETURN
+      END IF
+
       !-----------------------------------------------------------------------
       ! Allocate data for message parsing and interpolation
@@ -227 +229 @@
          & )
 
+      IF(wrk_not_released(2, 1,2,3,4))THEN
+         CALL ctl_stop('obs_rotvel : failed to release workspace arrays.')
+      END IF
+
    END SUBROUTINE obs_rotvel