Changeset 2705


Ignore:
Timestamp:
2011-03-25T09:40:06+01:00 (10 years ago)
Author:
cetlod
Message:

Used correct working arrays in domwri.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.F90

    r2690 r2705  
    276276      !!---------------------------------------------------------------------- 
    277277      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    278       USE wrk_nemo, ONLY:   ztstref => wrk_2d_1      ! array with different values for each element 
     278      USE wrk_nemo, ONLY:   ztstref => wrk_2d_3      ! array with different values for each element 
    279279      ! 
    280280      CHARACTER(len=1)        , INTENT(in   ) ::   cdgrd   !  
     
    286286      !!---------------------------------------------------------------------- 
    287287 
    288       IF( wrk_in_use(2, 1) ) THEN 
     288      IF( wrk_in_use(2, 3) ) THEN 
    289289         CALL ctl_stop('dom_uniq: requested workspace array unavailable')   ;   RETURN 
    290290      ENDIF 
     
    304304      puniq(nldi:nlei,nldj:nlej) = REAL( COUNT( lldbl(nldi:nlei,nldj:nlej,:), dim = 3 ) , wp ) 
    305305      ! 
    306       IF( wrk_not_released(2, 1) )   CALL ctl_stop('dom_uniq: failed to release workspace array') 
     306      IF( wrk_not_released(2, 3) )   CALL ctl_stop('dom_uniq: failed to release workspace array') 
    307307      ! 
    308308   END SUBROUTINE dom_uniq 
Note: See TracChangeset for help on using the changeset viewer.