Changeset 4416

Timestamp:

Feb 3, 2023, 4:43:37 PM (2 years ago)

Author:

dcugnet

Message:

Fix variable typo for isotopes

File:

• LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90

@@ -16570 +16570 @@
       found = phyetat0iso_get3(xt_ancien,   "XTANCIEN",  "QANCIEN",   0.)
       found = phyetat0iso_get3(xtl_ancien,  "XTLANCIEN", "QLANCIEN",  0.)
-      found = phyetat0iso_get3(xts_ancien,  "XTASNCIEN", "QSANCIEN",  0.)
+      found = phyetat0iso_get3(xts_ancien,  "XTSANCIEN", "QSANCIEN",  0.)
       found = phyetat0iso_get2(xtrun_off_lic_0, "XTRUNOFFLIC0", "RUNOFFLIC0", 0.)
       found = phyetat0iso_get3(wake_deltaxt,  "WAKE_DELTAXT", "Delta hum. wake/env",  0.)