From d9e1fa168a73c111860a9a46f72d5be211b39382 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Tue, 24 Nov 2015 13:51:52 +0000
Subject: [PATCH] Juan 24/11/2015: replace /= TRUE <-> .NOT.
---
src/LIB/SURCOUCHE/src/mode_io.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_io.f90 b/src/LIB/SURCOUCHE/src/mode_io.f90
index aeddf6f1e..6fd8a58d8 100644
--- 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
--
GitLab