New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2704 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/IOM/prtctl.F90 – NEMO

Ignore:
Timestamp:
2011-03-25T09:37:58+01:00 (11 years ago)
Author:
cetlod
Message:

Used correct working arrays in print control routines used for debugging : prtctl.F90 & prtctl_trc.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/IOM/prtctl.F90

    r2690 r2704  
    7474      !!---------------------------------------------------------------------- 
    7575      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    76       USE wrk_nemo, ONLY:   ztab2d_1 => wrk_2d_1 , ztab2d_2 => wrk_2d_2 
    77       USE wrk_nemo, ONLY:   zmask1   => wrk_3d_1 , zmask2   => wrk_3d_2  
    78       USE wrk_nemo, ONLY:   ztab3d_1 => wrk_3d_3 , ztab3d_2 => wrk_3d_4 
     76      USE wrk_nemo, ONLY:   ztab2d_1 => wrk_2d_30 , ztab2d_2 => wrk_2d_31 
     77      USE wrk_nemo, ONLY:   zmask1   => wrk_3d_11 , zmask2   => wrk_3d_12  
     78      USE wrk_nemo, ONLY:   ztab3d_1 => wrk_3d_13 , ztab3d_2 => wrk_3d_14 
    7979      ! 
    8080      REAL(wp), DIMENSION(:,:)  , INTENT(in), OPTIONAL ::   tab2d_1 
     
    9595      !!---------------------------------------------------------------------- 
    9696 
    97       IF( wrk_in_use(2, 1,2) .OR. wrk_in_use(3, 1,2,3,4) ) THEN 
     97      IF( wrk_in_use(2, 30,31) .OR. wrk_in_use(3, 11,12,13,14) ) THEN 
    9898         CALL ctl_stop('prt_ctl : requested workspace arrays unavailable')   ;   RETURN 
    9999      ENDIF 
     
    204204      ENDDO 
    205205 
    206       IF( wrk_not_released(2, 1,2)     .OR.   & 
    207           wrk_not_released(3, 1,2,3,4) )   CALL ctl_stop('prt_ctl: failed to release workspace arrays') 
     206      IF( wrk_not_released(2, 30,31)     .OR.   & 
     207          wrk_not_released(3, 11,12,13,14) )   CALL ctl_stop('prt_ctl: failed to release workspace arrays') 
    208208      ! 
    209209   END SUBROUTINE prt_ctl 
Note: See TracChangeset for help on using the changeset viewer.