Changeset 2704


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

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

Location:
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO
Files:
2 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 
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/prtctl_trc.F90

    r2643 r2704  
    6060      !!                it must looks like: CALL prt_ctl( mask=tmask ). 
    6161      !!---------------------------------------------------------------------- 
    62       USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    63       USE wrk_nemo, ONLY: zmask => wrk_3d_1, ztab3d => wrk_3d_2 
    64       !! 
    6562      REAL(wp)         , DIMENSION(:,:,:,:), INTENT(in), OPTIONAL ::   tab4d     ! 4D array 
    6663      REAL(wp)         , DIMENSION(:,:,:)  , INTENT(in), OPTIONAL ::   mask      ! 3D mask to apply to the tab4d array 
     
    7067      INTEGER                              , INTENT(in), OPTIONAL ::   kdim      ! k- direction for 4D arrays 
    7168      !! 
     69      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: zmask, ztab3d  
    7270      INTEGER  ::   overlap, jn, js, sind, eind, kdir, j_id 
    7371      REAL(wp) ::   zsum, zvctl 
     
    7674      !!---------------------------------------------------------------------- 
    7775 
    78       IF( wrk_in_use(3, 1,2) ) THEN 
    79          CALL ctl_stop('prt_ctl_trc : requested workspace arrays unavailable.') 
    80          RETURN 
    81       END IF 
    82  
     76      ALLOCATE( zmask (jpi,jpj,jpk) ) 
     77      ALLOCATE( ztab3d(jpi,jpj,jpk) ) 
    8378      !                                      ! Arrays, scalars initialization  
    8479      overlap       = 0 
     
    156151      END DO 
    157152      ! 
    158       IF( wrk_not_released(3, 1,2) ) CALL ctl_stop('prt_ctl_trc : failed to release workspace arrays.') 
     153      DEALLOCATE( zmask  ) 
     154      DEALLOCATE( ztab3d ) 
    159155      ! 
    160156   END SUBROUTINE prt_ctl_trc 
Note: See TracChangeset for help on using the changeset viewer.