Changeset 2705

Timestamp:

2011-03-25T09:40:06+01:00 (14 years ago)

Author:

cetlod

Message:

Used correct working arrays in domwri.F90

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.F90 (modified) (3 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.F90

@@ -276 +276 @@
       !!----------------------------------------------------------------------
       USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY:   ztstref => wrk_2d_1      ! array with different values for each element
+      USE wrk_nemo, ONLY:   ztstref => wrk_2d_3      ! array with different values for each element
       !
       CHARACTER(len=1)        , INTENT(in   ) ::   cdgrd   ! 
@@ -286 +286 @@
       !!----------------------------------------------------------------------
 
-      IF( wrk_in_use(2, 1) ) THEN
+      IF( wrk_in_use(2, 3) ) THEN
          CALL ctl_stop('dom_uniq: requested workspace array unavailable')   ;   RETURN
       ENDIF
@@ -304 +304 @@
       puniq(nldi:nlei,nldj:nlej) = REAL( COUNT( lldbl(nldi:nlei,nldj:nlej,:), dim = 3 ) , wp )
       !
-      IF( wrk_not_released(2, 1) )   CALL ctl_stop('dom_uniq: failed to release workspace array')
+      IF( wrk_not_released(2, 3) )   CALL ctl_stop('dom_uniq: failed to release workspace array')
       !
    END SUBROUTINE dom_uniq