Index: LMDZ6/trunk/libf/misc/strings_mod.F90
===================================================================
--- LMDZ6/trunk/libf/misc/strings_mod.F90	(revision 4046)
+++ LMDZ6/trunk/libf/misc/strings_mod.F90	(revision 4047)
@@ -88,5 +88,5 @@
   LOGICAL,          INTENT(IN)    :: def
   val = def; CALL getin(nam, val)
-  IF(val/=def) WRITE(lunout,*)TRIM(nam)//' = '//TRIM(bool2str(val))
+  IF(val.NEQV.def) WRITE(lunout,*)TRIM(nam)//' = '//TRIM(bool2str(val))
 END SUBROUTINE getin_l
 !==============================================================================================================================