Juan 24/11/2015: replace /= TRUE <-> .NOT.

d9e1fa16 · ESCOBAR MUNOZ Juan · WAUTELET Philippe · 5f923a93 · d9e1fa16
Commit d9e1fa16 authored 9 years ago by ESCOBAR MUNOZ Juan Committed by WAUTELET Philippe 8 years ago
--- a/src/LIB/SURCOUCHE/src/mode_io.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io.f90
@@ -591,7 +591,7 @@ CONTAINS
       ELSE
          TZFD%NB_PROCIO = 1
       ENDIF
-       IF( GPARALLELIO /= .TRUE. ) THEN
+       IF( .NOT. GPARALLELIO ) THEN
         TZFD%NB_PROCIO = 1
       ENDIF
       TZFD%COMM = NMNH_COMM_WORLD
@@ -797,7 +797,7 @@ CONTAINS
       !
       ! close LFI file in the different PROC
       !
-       IF( GPARALLELIO /= .TRUE. ) THEN
+       IF( .NOT. GPARALLELIO ) THEN
         TZFD%NB_PROCIO = 1
       ENDIF
       IF (TZFD%NB_PROCIO .GT. 1 ) THEN