Changeset 8665 for trunk/NEMOGCM/NEMO/TOP_SRC/trc.F90

Timestamp:

2017-10-27T18:34:41+02:00 (6 years ago)

Author:

nicolasmartin

Message:

Fix for GCC compilation issue on O2L3P [close #1929]

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/trc.F90 (modified) (3 diffs)

trunk/NEMOGCM/NEMO/TOP_SRC/trc.F90

@@ -10 +10 @@
    USE par_oce
    USE par_trc
-   USE bdy_oce, only: ln_bdy, nb_bdy, OBC_DATA
+   USE bdy_oce, only: jp_bdy, ln_bdy, nb_bdy, OBC_DATA
    
    IMPLICIT NONE
@@ -169 +169 @@
 # endif
    !
-   CHARACTER(len=20), PUBLIC, ALLOCATABLE,  SAVE,  DIMENSION(:)   ::  cn_trc_dflt          ! Default OBC condition for all tracers
-   CHARACTER(len=20), PUBLIC, ALLOCATABLE,  SAVE,  DIMENSION(:)   ::  cn_trc               ! Choice of boundary condition for tracers
-   INTEGER,           PUBLIC, ALLOCATABLE,  SAVE,  DIMENSION(:)   ::  nn_trcdmp_bdy        !: =T Tracer damping
+   CHARACTER(len=20), PUBLIC, DIMENSION(jp_bdy) :: cn_trc_dflt   ! Default OBC condition for all tracers
+   CHARACTER(len=20), PUBLIC, DIMENSION(jp_bdy) :: cn_trc        ! Choice of boundary condition for tracers
+   INTEGER,           PUBLIC, DIMENSION(jp_bdy) :: nn_trcdmp_bdy !: =T Tracer damping
 !$AGRIF_DO_NOT_TREAT
    ! External data structure of BDY for TOP. Available elements: cn_obc, ll_trc, trcnow, dmp
@@ -206 +206 @@
       !
       IF ( ln_bdy ) THEN
-         ALLOCATE( cn_trc_dflt(nb_bdy)   , cn_trc(nb_bdy)     , nn_trcdmp_bdy(nb_bdy) ,       &
-         &      trcdta_bdy(jptra,nb_bdy)                                              ,       &
-         &      STAT = ierr(2)  )
+         ALLOCATE( trcdta_bdy(jptra, jp_bdy), STAT = ierr(2) )
       ENDIF
       !