Changeset 5154 for TOOLS

Timestamp:

09/15/20 16:30:51 (4 years ago)

Author:

omamce

Message:

O.M. : cut a too long line in inerpol.f90. Foru use with gcc10

File:

• TOOLS/MOSAIX/src/MOSAIX/interpol.f90 (modified) (1 diff)

TOOLS/MOSAIX/src/MOSAIX/interpol.f90

@@ -22 +22 @@
    CHARACTER (LEN=20) :: nchar, type_src, type_dst
    LOGICAL :: l_mask_src = .TRUE. , l_mask_dst = .TRUE., l_use_area = .FALSE.
-   LOGICAL :: l_src_is2D = .FALSE., l_src_is1D = .FALSE., l_src_is0D = .FALSE., l_dst_is2D = .FALSE. , l_dst_is1D = .FALSE., l_dst_is0D = .FALSE.
+   LOGICAL :: l_src_is2D = .FALSE., l_src_is1D = .FALSE., l_src_is0D = .FALSE., l_dst_is2D = .FALSE.
+   LOGICAL :: l_dst_is1D = .FALSE., l_dst_is0D = .FALSE.
    !
    REAL (kind=rl), PARAMETER :: rpi = ACOS ( -1.0_rl)