Changeset 1808 for trunk/LMDZ.TITAN/libf/muphytitan/strings.F90

Timestamp:

Oct 23, 2017, 10:08:56 PM (7 years ago)

Author:

jvatant

Message:

Minor modifs :
+ correct a bug for ifort compiling in muphy
+ added some outputs for chemistry
JVO

File:

• trunk/LMDZ.TITAN/libf/muphytitan/strings.F90 (modified) (1 diff)

trunk/LMDZ.TITAN/libf/muphytitan/strings.F90

@@ -854 +854 @@
     !! If the size of the output string vector (i.e. the character length of the string elements within the
     !! vector) is too small, words can be truncated.
-    OBJECT(words), INTENT(in)                                :: this
+    OBJECT(words), INTENT(in)                                      :: this
       !! A words object reference
-    CHARACTER(len=*), INTENT(out), ALLOCATABLE, DIMENSION(:) :: ret
+    CHARACTER(len=st_slen), INTENT(out), ALLOCATABLE, DIMENSION(:) :: ret
       !! An allocatable vector of assumed length string with the words of __this__
     LOGICAL             :: ok