Changeset 4326 for LMDZ6/trunk

Timestamp:

Nov 7, 2022, 10:44:52 AM (23 months ago)

Author:

dcugnet

Message:

Modification to solve a gfortran specific bug ; this compiler wrongly claims:
Error: Ambiguous interfaces in generic interface 'fgetkey' for ‘fgetkeynam_s1’ at (1) and ‘fgetkey_sm’ at (2)
But they are not:

• FUNCTION fgetKeyNam_s1(tname, keyn, ky[, def_val, lerr]) RESULT(val) with val being a scalar string
• FUNCTION fgetKeym ( keyn, ky[, def_val, lerr]) RESULT(val) with val being a vector string

So no way to have a single generic interface => gGetKey_sm is renamed fGetKeys.

File:

• LMDZ6/trunk/libf/misc/readTracFiles_mod.f90 (modified) (4 diffs)

LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

@@ -12 +12 @@
   PUBLIC :: trac_type, setGeneration, indexUpdate               !--- TRACERS  DESCRIPTION ASSOCIATED TOOLS
   PUBLIC :: testTracersFiles, readTracersFiles                  !--- TRACERS FILES READING ROUTINES
-  PUBLIC :: getKey, fGetKey, setDirectKeys                      !--- TOOLS TO GET/SET KEYS FROM/TO  tracers & isotopes
+  PUBLIC :: getKey, fGetKey, fGetKeys, setDirectKeys            !--- TOOLS TO GET/SET KEYS FROM/TO  tracers & isotopes
   PUBLIC :: getKeysDBase,    setKeysDBase                       !--- TOOLS TO GET/SET THE DATABASE (tracers & isotopes)
 
@@ -100 +100 @@
   INTERFACE  old2newH2O;   MODULE PROCEDURE  old2newH2O_1,  old2newH2O_m;        END INTERFACE old2newH2O
   INTERFACE  new2oldH2O;   MODULE PROCEDURE  new2oldH2O_1,  new2oldH2O_m;        END INTERFACE new2oldH2O
-  INTERFACE fGetKey;       MODULE PROCEDURE fgetKeyIdx_s1, fgetKeyNam_s1, fgetKey_sm;        END INTERFACE fGetKey
+  INTERFACE fGetKey;       MODULE PROCEDURE fgetKeyIdx_s1, fgetKeyNam_s1;        END INTERFACE fGetKey
   INTERFACE tracersSubset; MODULE PROCEDURE trSubset_Indx, trSubset_Name, trSubset_gen0Name; END INTERFACE tracersSubset
   INTERFACE idxAncestor;   MODULE PROCEDURE idxAncestor_1, idxAncestor_m, idxAncestor_mt;    END INTERFACE idxAncestor
@@ -1410 +1410 @@
 END FUNCTION fgetKeyNam_s1
 !==============================================================================================================================
-FUNCTION fgetKey_sm(keyn, ky, def_val, lerr) RESULT(val)
+FUNCTION fgetKeys(keyn, ky, def_val, lerr) RESULT(val)
 CHARACTER(LEN=maxlen),        ALLOCATABLE :: val(:)
   CHARACTER(LEN=*),           INTENT(IN)  :: keyn
@@ -1421 +1421 @@
   val = [(fgetKeyIdx_s1(it, keyn, ky, def_val, ler(it)), it = 1, SIZE(ky))]
   IF(PRESENT(lerr)) lerr = ANY(ler)
-END FUNCTION fgetKey_sm
+END FUNCTION fgetKeys
 !==============================================================================================================================