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 15420 for NEMO/trunk/src/TOP/trc.F90 – NEMO

Ignore:
Timestamp:
2021-10-20T17:26:33+02:00 (12 months ago)
Author:
lovato
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/TOP/trc.F90

    r15077 r15420  
    116116   ! 
    117117   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) ::   trc3d   !: 3D diagnostics for tracers 
    118    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) ::   trc2d   !: 2D diagnostics for tracers 
     118   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,: ::   trc2d   !: 2D diagnostics for tracers 
    119119 
    120120   !! information for inputs 
     
    179179      IF (jp_dia3d > 0 )   ALLOCATE( trc3d(jpi,jpj,jpk,jp_dia3d), STAT = ierr(3) ) 
    180180      ! 
    181       IF (jp_dia2d > 0 )   ALLOCATE( trc2d(jpi,jpj,jpk,jp_dia2d), STAT = ierr(4) ) 
     181      IF (jp_dia2d > 0 )   ALLOCATE( trc2d(jpi,jpj,jp_dia2d)    , STAT = ierr(4) ) 
    182182      !  
    183183      trc_alloc = MAXVAL( ierr ) 
Note: See TracChangeset for help on using the changeset viewer.