Changeset 15420 for NEMO/trunk/src/TOP/trc.F90

Timestamp:

2021-10-20T17:26:33+02:00 (3 years ago)

Author:

lovato

Message:

set correct dimensions/allocation of 2D diagnostics arrays for TOP

File:

• NEMO/trunk/src/TOP/trc.F90 (modified) (2 diffs)

NEMO/trunk/src/TOP/trc.F90

@@ -116 +116 @@
    !
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) ::   trc3d   !: 3D diagnostics for tracers
-   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) ::   trc2d   !: 2D diagnostics for tracers
+   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::   trc2d   !: 2D diagnostics for tracers
 
    !! information for inputs
@@ -179 +179 @@
       IF (jp_dia3d > 0 )   ALLOCATE( trc3d(jpi,jpj,jpk,jp_dia3d), STAT = ierr(3) )
       !
-      IF (jp_dia2d > 0 )   ALLOCATE( trc2d(jpi,jpj,jpk,jp_dia2d), STAT = ierr(4) )
+      IF (jp_dia2d > 0 )   ALLOCATE( trc2d(jpi,jpj,jp_dia2d)    , STAT = ierr(4) )
       ! 
       trc_alloc = MAXVAL( ierr )