Changeset 4328 for LMDZ6/trunk/libf/phylmd

Timestamp:

Nov 8, 2022, 3:49:23 PM (3 years ago)

Author:

dcugnet

Message:

• rewrite few routines from "readTracFiles_mod" to avoid crashes with gfortran, in particular "setGeneration" and "addKey".
• make "addKey" routine public and replace "addKey_m" and "addKey_mm" with callings to "addKey_1" in loops to avoid a gfortran-specific crash
• rewrite the "getKey" functions family so that when "tname" is not specified, result is as expected, even for tracers lists with repeated tracers (use index instead of name search).

File:

• LMDZ6/trunk/libf/phylmd/infotrac_phy.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/infotrac_phy.F90

@@ -251 +251 @@
      IF(readTracersFiles(type_trac,  fType,  lRepr)) CALL abort_gcm(modname, 'problem with tracers file(s)',1)
    ELSE
-     IF(testTracersFiles(modname, type_trac, fType)) CALL abort_gcm(modname, 'problem with tracers file(s)',1)
+     CALL msg('No tracers description file(s) reading needed: already done in the dynamics', modname)
+     IF(testTracersFiles(modname, type_trac, fType, .FALSE.)) CALL abort_gcm(modname, 'problem with tracers file(s)',1)
    END IF
 !##############################################################################################################################