Changeset 4068 for LMDZ6/trunk/libf/dyn3d_common

Timestamp:

Jan 29, 2022, 7:22:11 PM (3 years ago)

Author:

dcugnet

Message:

FIx for last version: function version of strReduce crashes with gfortran (but not for ifort) => back to subroutine version.

File:

• LMDZ6/trunk/libf/dyn3d_common/infotrac.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d_common/infotrac.F90

@@ -3 +3 @@
 MODULE infotrac
 
-   USE       strings_mod, ONLY: msg, find, strIdx,  strFind, strParse, dispTable,  int2str,  reduceExpr, &
-                          cat, fmsg, test, strTail, strHead, strStack, strReducef, bool2str, maxlen, testFile
+   USE       strings_mod, ONLY: msg, find, strIdx,  strFind, strParse, dispTable, int2str,  reduceExpr,  &
+                          cat, fmsg, test, strTail, strHead, strStack, strReduce, bool2str, maxlen, testFile
    USE readTracFiles_mod, ONLY: trac_type, readTracersFiles, addPhase,  phases_sep,  nphases, ancestor,  &
                                 isot_type, readIsotopesFile, delPhase,   old_phases, getKey_init, tran0, &
@@ -823 +823 @@
    ALLOCATE(i%keys(i%niso))
    mask = t%type=='tracer' .AND. delPhase(t%gen0Name)=='H2O' .AND. t%phase == 'g' .AND. t%iGeneration==1
-   i%keys(:)%name = strReducef(strTail(PACK(delPhase(t%name), MASK = mask), '_'))
+   str = strTail(PACK(delPhase(t%name), MASK=mask), '_')
+   CALL strReduce(str)
+   i%keys(:)%name = str
 
    !--- Full isotopes list, with isotopes tagging tracers (if any) following the previous list
-   i%ntiso = ntiso; ALLOCATE(i%trac(i%ntiso))
+   i%ntiso = ntiso
+   ALLOCATE(i%trac(i%ntiso))
    mask = t%type=='tag'    .AND. delPhase(t%gen0Name)=='H2O' .AND. t%phase == 'g' .AND. t%iGeneration==2
-   i%trac(:) = [i%keys(:)%name, strReducef(PACK(delPhase(t%name), MASK = mask))]
+   str = PACK(delPhase(t%name), MASK=mask)
+   CALL strReduce(str)
+   i%trac(:) = [i%keys(:)%name, str]
 
    !--- Tagging zones names list