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 9125 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/C1D/dtauvd.F90 – NEMO

Ignore:
Timestamp:
2017-12-19T09:47:17+01:00 (6 years ago)
Author:
timgraham
Message:

Removed wrk_arrays from whole code. No change in SETTE results from this.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/C1D/dtauvd.F90

    r9124 r9125  
    1818   USE fldread        ! read input fields 
    1919   USE lib_mpp        ! MPP library 
    20    USE wrk_nemo       ! Memory allocation 
    2120   USE timing         ! Timing 
    2221 
     
    139138      INTEGER ::   ik, il0, il1, ii0, ii1, ij0, ij1  ! local integers 
    140139      REAL(wp)::   zl, zi                            ! local floats 
    141       REAL(wp), POINTER, DIMENSION(:) ::  zup, zvp   ! 1D workspace 
     140      REAL(wp), ALLOCATABLE, DIMENSION(:) ::  zup, zvp   ! 1D workspace 
    142141      !!---------------------------------------------------------------------- 
    143142      ! 
     
    151150      IF( ln_sco ) THEN                   !==   s- or mixed s-zps-coordinate   ==! 
    152151         ! 
    153          CALL wrk_alloc( jpk,   zup, zvp ) 
     152         ALLOCATE( zup(jpk), zvp(jpk) ) 
    154153         ! 
    155154         IF( kt == nit000 .AND. lwp )THEN 
     
    187186         END DO 
    188187         !  
    189          CALL wrk_dealloc( jpk,  zup, zvp ) 
     188         DEALLOCATE( zup, zvp ) 
    190189         !  
    191190      ELSE                                !==   z- or zps- coordinate   ==! 
Note: See TracChangeset for help on using the changeset viewer.