Changeset 10525 for NEMO/trunk/src/OCE/LBC/lbc_nfd_ext_generic.h90

Timestamp:

2019-01-16T11:12:04+01:00 (5 years ago)

Author:

smasson

Message:

trunk: again, compilation bugfix in lbc_nfd_ext_generic.h90 (line too long 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...)
+      INTEGER          , INTENT(in   ) ::   kextj       ! extra halo width at north fold, declared before its use in ARRAY_TYPE
       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