Changeset 4047 for LMDZ6

Timestamp:

Dec 16, 2021, 9:58:38 AM (3 years ago)

Author:

dcugnet

Message:

Use version 5 of tracers_parser/ for readTracFiles_mod, strings_mod and stra_types:
fix in strings_mod:getin_l: replacing a "/=" operator with ".NEQV." as it should be for boolean comparisons.

File:

• LMDZ6/trunk/libf/misc/strings_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/misc/strings_mod.F90

@@ -88 +88 @@
   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
 !==============================================================================================================================