Changeset 4047 for LMDZ6


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/misc/strings_mod.F90

    r4046 r4047  
    8888  LOGICAL,          INTENT(IN)    :: def
    8989  val = def; CALL getin(nam, val)
    90   IF(val/=def) WRITE(lunout,*)TRIM(nam)//' = '//TRIM(bool2str(val))
     90  IF(val.NEQV.def) WRITE(lunout,*)TRIM(nam)//' = '//TRIM(bool2str(val))
    9191END SUBROUTINE getin_l
    9292!==============================================================================================================================
Note: See TracChangeset for help on using the changeset viewer.