Juan 24/11/2015: replace /= TRUE <-> .NOT.
authorJuan Escobar <juan.escobar@aero.obs-mip.fr>
Tue, 24 Nov 2015 13:51:52 +0000 (13:51 +0000)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Thu, 19 May 2016 14:44:49 +0000 (16:44 +0200)
src/LIB/SURCOUCHE/src/mode_io.f90

index aeddf6f..6fd8a58 100644 (file)
@@ -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