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 7910 for branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.F90 – NEMO

Ignore:
Timestamp:
2017-04-13T16:21:08+02:00 (7 years ago)
Author:
timgraham
Message:

All wrk_alloc removed

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.F90

    r7646 r7910  
    2424   USE lbclnk          ! lateral boundary conditions - mpp exchanges 
    2525   USE lib_mpp         ! MPP library 
    26    USE wrk_nemo        ! Memory allocation 
    2726   USE timing          ! Timing 
    2827 
    … …  
    7574      INTEGER           ::   izco, izps, isco, icav 
    7675      !                                
    77       REAL(wp), POINTER, DIMENSION(:,:)   ::   zprt, zprw     ! 2D workspace 
    78       REAL(wp), POINTER, DIMENSION(:,:,:) ::   zdepu, zdepv   ! 3D workspace 
     76      REAL(wp), DIMENSION(jpi,jpj)   ::   zprt, zprw     ! 2D workspace 
     77      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zdepu, zdepv   ! 3D workspace 
    7978      !!---------------------------------------------------------------------- 
    8079      ! 
    8180      IF( nn_timing == 1 )  CALL timing_start('dom_wri') 
    8281      ! 
    83       CALL wrk_alloc( jpi,jpj,       zprt , zprw  ) 
    84       CALL wrk_alloc( jpi,jpj,jpk,   zdepu, zdepv ) 
    8582      ! 
    8683      IF(lwp) WRITE(numout,*) 
    … …  
    206203      !                                     ! ============================ 
    207204      ! 
    208       CALL wrk_dealloc( jpi, jpj, zprt, zprw ) 
    209       CALL wrk_dealloc( jpi, jpj, jpk, zdepu, zdepv ) 
    210205      ! 
    211206      IF( nn_timing == 1 )  CALL timing_stop('dom_wri') 
    … …  
    229224      INTEGER  ::  ji       ! dummy loop indices 
    230225      LOGICAL, DIMENSION(SIZE(puniq,1),SIZE(puniq,2),1) ::  lldbl  ! store whether each point is unique or not 
    231       REAL(wp), POINTER, DIMENSION(:,:) :: ztstref 
     226      REAL(wp), DIMENSION(jpi,jpj) :: ztstref 
    232227      !!---------------------------------------------------------------------- 
    233228      ! 
    234229      IF( nn_timing == 1 )  CALL timing_start('dom_uniq') 
    235230      ! 
    236       CALL wrk_alloc( jpi, jpj, ztstref ) 
    237231      ! 
    238232      ! build an array with different values for each element  
    … …  
    250244      puniq(nldi:nlei,nldj:nlej) = REAL( COUNT( lldbl(nldi:nlei,nldj:nlej,:), dim = 3 ) , wp ) 
    251245      ! 
    252       CALL wrk_dealloc( jpi, jpj, ztstref ) 
    253246      ! 
    254247      IF( nn_timing == 1 )  CALL timing_stop('dom_uniq') 
Note: See TracChangeset for help on using the changeset viewer.