Changeset 5508


Ignore:
Timestamp:
Jan 28, 2025, 4:14:16 PM (2 days ago)
Author:
dcugnet
Message:

Fix to compute correctly iH2O (SN).

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

    r5481 r5508  
    13131313
    13141314  !=== SELECT WATER ISOTOPES CLASS OR, IF UNFOUND, THE FIRST ISOTOPES CLASS
    1315   IF(isoSelect('H2O', .TRUE.)) THEN; iH2O = ixIso; ELSE; lerr = isoSelect(1, .TRUE.); END IF
     1315  IF(.NOT.isoSelect('H2O', .TRUE.)) THEN; iH2O = ixIso; ELSE; lerr = isoSelect(1, .TRUE.); END IF
    13161316
    13171317CONTAINS
Note: See TracChangeset for help on using the changeset viewer.