Changeset 2590 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBS/obs_readmdt.F90

Timestamp:

2011-02-18T13:49:27+01:00 (13 years ago)

Author:

trackstand2

Message:

Merge branch 'dynamic_memory' into master-svn-dyn

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBS/obs_readmdt.F90 (modified) (7 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBS/obs_readmdt.F90

@@ -81 +81 @@
       !! * Modules used
       USE iom
-
+      USE wrk_nemo, ONLY: wrk_use, wrk_release
+      USE wrk_nemo, ONLY: z_mdt => wrk_2d_1,  &  ! Array to store the MDT values
+                        mdtmask => wrk_2d_2    ! Array to store the mask for the MDT
+      !!
       !! * Arguments
       INTEGER, INTENT(IN) :: kslano          ! Number of SLA Products
@@ -107 +110 @@
       INTEGER :: i_stat
 
-      REAL(wp), DIMENSION(jpi,jpj) :: & 
-         & z_mdt,       &  ! Array to store the MDT values
-         & mdtmask         ! Array to store the mask for the MDT
       REAL(wp), DIMENSION(1) :: &
          & zext, &
@@ -129 +129 @@
          & igrdj
       INTEGER :: nummdt
+      !!----------------------------------------------------------------------
+
+      IF(.NOT. wrk_use(2, 1,2))THEN
+         CALL ctl_stop('obs_rea_mdt : requested workspace array unavailable.')
+         RETURN
+      END IF
 
       IF(lwp)WRITE(numout,*) 
@@ -234 +240 @@
       END DO
 
+      IF(.NOT. wrk_release(2, 1,2))THEN
+         CALL ctl_stop('obs_rea_mdt : failed to release workspace arrays.')
+      END IF
+
    END SUBROUTINE obs_rea_mdt
 
@@ -256 +266 @@
       !!----------------------------------------------------------------------
       !! * Modules used
-
+      USE wrk_nemo, ONLY: wrk_use, wrk_release
+      USE wrk_nemo, ONLY: zpromsk => wrk_2d_3
+      !!
       !! * Arguments
       REAL(wp), DIMENSION(jpi,jpj), INTENT(INOUT) :: &
@@ -270 +282 @@
       REAL(wp) :: zcorr_bcketa
       REAL(wp) :: zcorr
-      REAL(wp), DIMENSION(jpi,jpj) :: zpromsk
       INTEGER :: jj
       INTEGER :: ji
       CHARACTER(LEN=14), PARAMETER :: &
          & cpname = 'obs_offset_mdt'
-   
+      !!----------------------------------------------------------------------
+
+      IF(.NOT. wrk_use(2, 3))THEN
+         CALL ctl_stop('obs_offset_mdt : requested workspace array unavailable.')
+         RETURN
+      END IF
+
       !  Initialize the local mask, for domain projection 
       !  Also exclude mdt points which are set to missing data
@@ -341 +358 @@
 
 
+      IF(.NOT. wrk_release(2, 3))THEN
+         CALL ctl_stop('obs_offset_mdt : failed to release workspace array.')
+      END IF
+
    END SUBROUTINE obs_offset_mdt