Changeset 10524


Ignore:
Timestamp:
2019-01-16T10:56:05+01:00 (18 months ago)
Author:
smasson
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/LBC/lbc_nfd_ext_generic.h90

    r10425 r10524  
    1212   SUBROUTINE ROUTINE_NFD( ptab, cd_nat, psgn, kextj ) 
    1313      !!---------------------------------------------------------------------- 
     14      INTEGER          , INTENT(in   ) ::   kextj       ! extra halo width at north fold, declared before its use in ARRAY_TYPE (neded by some compilers...) 
    1415      ARRAY_TYPE(:,1-kextj:,:,:,:)                      ! array or pointer of arrays on which the boundary condition is applied 
    1516      CHARACTER(len=1) , INTENT(in   ) ::   NAT_IN(:)   ! nature of array grid-points 
    1617      REAL(wp)         , INTENT(in   ) ::   SGN_IN(:)   ! sign used across the north fold boundary 
    17       INTEGER          , INTENT(in   ) ::   kextj       ! extra halo width at north fold 
    1818      ! 
    1919      INTEGER  ::    ji,  jj,  jk,  jl, jh,  jf   ! dummy loop indices 
Note: See TracChangeset for help on using the changeset viewer.