Changeset 10524

Timestamp:

2019-01-16T10:56:05+01:00 (5 years ago)

Author:

smasson

Message:

trunk: compilation bugfix in lbc_nfd_ext_generic.h90 (for some compilers...), see #2206

File:

• NEMO/trunk/src/OCE/LBC/lbc_nfd_ext_generic.h90 (modified) (1 diff)

NEMO/trunk/src/OCE/LBC/lbc_nfd_ext_generic.h90

@@ -12 +12 @@
    SUBROUTINE ROUTINE_NFD( ptab, cd_nat, psgn, kextj )
       !!----------------------------------------------------------------------
+      INTEGER          , INTENT(in   ) ::   kextj       ! extra halo width at north fold, declared before its use in ARRAY_TYPE (neded by some compilers...)
       ARRAY_TYPE(:,1-kextj:,:,:,:)                      ! array or pointer of arrays on which the boundary condition is applied
       CHARACTER(len=1) , INTENT(in   ) ::   NAT_IN(:)   ! nature of array grid-points
       REAL(wp)         , INTENT(in   ) ::   SGN_IN(:)   ! sign used across the north fold boundary
-      INTEGER          , INTENT(in   ) ::   kextj       ! extra halo width at north fold
       !
       INTEGER  ::    ji,  jj,  jk,  jl, jh,  jf   ! dummy loop indices