Changeset 2633 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBS

Timestamp:

2011-02-28T18:23:23+01:00 (13 years ago)

Author:

trackstand2

Message:

Renamed wrk_use => wrk_in_use and wrk_release => wrk_not_released

Location:

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBS

Files:

• diaobs.F90 (modified) (3 diffs)
• obs_inter_sup.F90 (modified) (3 diffs)
• obs_read_altbias.F90 (modified) (3 diffs)
• obs_readmdt.F90 (modified) (6 diffs)
• obs_rot_vel.F90 (modified) (3 diffs)

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

@@ -1026 +1026 @@
          & frld
 #endif
-      USE wrk_nemo, ONLY: wrk_use, wrk_release
+      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
 #if ! defined key_ice_lim
       USE wrk_nemo, ONLY: frld => wrk_2d_1
@@ -1045 +1045 @@
  
 #if ! defined key_ice_lim
-      IF(.NOT. wrk_use(2, 1))THEN
+      IF(wrk_in_use(2, 1))THEN
          CALL ctl_stop('dia_obs : requested workspace array unavailable.')
          RETURN
@@ -1129 +1129 @@
 
 #if ! defined key_ice_lim
-      IF(.NOT. wrk_release(2, 1))THEN
+      IF(wrk_not_released(2, 1))THEN
          CALL ctl_stop('dia_obs : failed to release workspace array.')
       END IF

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

@@ -105 +105 @@
       !!        !  08-02  (K. Mogensen)  Original code
       !!----------------------------------------------------------------------
-      USE wrk_nemo, ONLY: wrk_use, wrk_release
+      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
       USE wrk_nemo, ONLY: wrk_3d_1
       !!
@@ -128 +128 @@
 
       ! Check workspace array and set-up pointer
-      IF(.NOT. wrk_use(3, 1))THEN
+      IF(wrk_in_use(3, 1))THEN
          CALL ctl_stop('obs_int_comm_2d : requested workspace array unavailable.')
          RETURN
@@ -156 +156 @@
 
       ! 'Release' workspace array back to pool
-      IF(.NOT. wrk_release(3, 1))THEN
+      IF(wrk_not_released(3, 1))THEN
          CALL ctl_stop('obs_int_comm_2d : failed to release workspace array.')
       END IF

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

@@ -67 +67 @@
       !! * Modules used
       USE iom
-      USE wrk_nemo, ONLY: wrk_use, wrk_release
+      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
       !
@@ -109 +109 @@
       INTEGER :: numaltbias
 
-      IF(.NOT. wrk_use(2, 1))THEN
+      IF(wrk_in_use(2, 1))THEN
          CALL ctl_stop('obs_rea_altbias : requested workspace array unavailable.')
          RETURN
@@ -211 +211 @@
       END DO
 
-      IF(.NOT. wrk_release(2, 1))THEN
+      IF(wrk_not_released(2, 1))THEN
          CALL ctl_stop('obs_rea_altbias : failed to release workspace array.')
       END IF

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: wrk_in_use, wrk_not_released
       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
@@ -131 +131 @@
       !!----------------------------------------------------------------------
 
-      IF(.NOT. wrk_use(2, 1,2))THEN
+      IF(wrk_in_use(2, 1,2))THEN
          CALL ctl_stop('obs_rea_mdt : requested workspace array unavailable.')
          RETURN
@@ -240 +240 @@
       END DO
 
-      IF(.NOT. wrk_release(2, 1,2))THEN
+      IF(wrk_not_released(2, 1,2))THEN
          CALL ctl_stop('obs_rea_mdt : failed to release workspace arrays.')
       END IF
@@ -266 +266 @@
       !!----------------------------------------------------------------------
       !! * Modules used
-      USE wrk_nemo, ONLY: wrk_use, wrk_release
+      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
       USE wrk_nemo, ONLY: zpromsk => wrk_2d_3
       !!
@@ -288 +288 @@
       !!----------------------------------------------------------------------
 
-      IF(.NOT. wrk_use(2, 3))THEN
+      IF(wrk_in_use(2, 3))THEN
          CALL ctl_stop('obs_offset_mdt : requested workspace array unavailable.')
          RETURN
@@ -358 +358 @@
 
 
-      IF(.NOT. wrk_release(2, 3))THEN
+      IF(wrk_not_released(2, 3))THEN
          CALL ctl_stop('obs_offset_mdt : failed to release workspace array.')
       END IF

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

@@ -55 +55 @@
       !!----------------------------------------------------------------------
       !! * Modules used
-      USE wrk_nemo, ONLY: wrk_use, wrk_release   
+      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
@@ -93 +93 @@
       INTEGER :: jk
 
-      IF(.NOT. wrk_use(2, 1,2,3,4))THEN
+      IF(wrk_in_use(2, 1,2,3,4))THEN
          CALL ctl_stop('obs_rotvel : requested workspace arrays unavailable.')
          RETURN
@@ -229 +229 @@
          & )
 
-      IF(.NOT. wrk_release(2, 1,2,3,4))THEN
+      IF(wrk_not_released(2, 1,2,3,4))THEN
          CALL ctl_stop('obs_rotvel : failed to release workspace arrays.')
       END IF