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 13087 for NEMO/releases/r4.0/r4.0-HEAD/src – NEMO

Ignore:
Timestamp:
2020-06-10T12:16:00+02:00 (4 years ago)
Author:
davestorkey
Message:

r4.0-HEAD : Remove zrhop from dia_ar5. (Ticket #2425).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/r4.0/r4.0-HEAD/src/OCE/DIA/diaar5.F90

    r13085 r13087  
    7676      REAL(wp), ALLOCATABLE, DIMENSION(:,:)     :: zarea_ssh , zbotpres       ! 2D workspace  
    7777      REAL(wp), ALLOCATABLE, DIMENSION(:,:)     :: zpe, z2d                   ! 2D workspace  
    78       REAL(wp), ALLOCATABLE, DIMENSION(:,:,:)   :: zrhd , zrhop, ztpot   ! 3D workspace 
     78      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:)   :: zrhd , ztpot               ! 3D workspace 
    7979      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:,:) :: ztsn                       ! 4D workspace 
    8080 
     
    8686      IF( l_ar5 ) THEN  
    8787         ALLOCATE( zarea_ssh(jpi,jpj), zbotpres(jpi,jpj), z2d(jpi,jpj) ) 
    88          ALLOCATE( zrhd(jpi,jpj,jpk) , zrhop(jpi,jpj,jpk) ) 
     88         ALLOCATE( zrhd(jpi,jpj,jpk) ) 
    8989         ALLOCATE( ztsn(jpi,jpj,jpk,jpts) ) 
    9090         zarea_ssh(:,:) = e1e2t(:,:) * sshn(:,:) 
     
    306306      IF( l_ar5 ) THEN 
    307307        DEALLOCATE( zarea_ssh , zbotpres, z2d ) 
    308         DEALLOCATE( zrhd      , zrhop    ) 
    309         DEALLOCATE( ztsn                 ) 
     308        DEALLOCATE( zrhd      ) 
     309        DEALLOCATE( ztsn      ) 
    310310      ENDIF 
    311311      ! 
Note: See TracChangeset for help on using the changeset viewer.