Changeset 13087

Timestamp:

2020-06-10T12:16:00+02:00 (3 years ago)

Author:

davestorkey

Message:

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

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/OCE/DIA/diaar5.F90 (modified) (3 diffs)

NEMO/releases/r4.0/r4.0-HEAD/src/OCE/DIA/diaar5.F90

@@ -76 +76 @@
       REAL(wp), ALLOCATABLE, DIMENSION(:,:)     :: zarea_ssh , zbotpres       ! 2D workspace 
       REAL(wp), ALLOCATABLE, DIMENSION(:,:)     :: zpe, z2d                   ! 2D workspace 
-      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:)   :: zrhd , zrhop, ztpot   ! 3D workspace
+      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:)   :: zrhd , ztpot               ! 3D workspace
       REAL(wp), ALLOCATABLE, DIMENSION(:,:,:,:) :: ztsn                       ! 4D workspace
 
@@ -86 +86 @@
       IF( l_ar5 ) THEN 
          ALLOCATE( zarea_ssh(jpi,jpj), zbotpres(jpi,jpj), z2d(jpi,jpj) )
-         ALLOCATE( zrhd(jpi,jpj,jpk) , zrhop(jpi,jpj,jpk) )
+         ALLOCATE( zrhd(jpi,jpj,jpk) )
          ALLOCATE( ztsn(jpi,jpj,jpk,jpts) )
          zarea_ssh(:,:) = e1e2t(:,:) * sshn(:,:)
@@ -306 +306 @@
       IF( l_ar5 ) THEN
         DEALLOCATE( zarea_ssh , zbotpres, z2d )
-        DEALLOCATE( zrhd      , zrhop    )
-        DEALLOCATE( ztsn                 )
+        DEALLOCATE( zrhd      )
+        DEALLOCATE( ztsn      )
       ENDIF
       !