Changeset 1619 in lmdz_wrf

Timestamp:

Sep 7, 2017, 2:50:38 PM (8 years ago)

Author:

lfita

Message:

Adding:

• `split: Subroutine which provides the values from a string [String] which has been split by a given character [charv] a given number of values [Nvalues] is expected

File:

• trunk/tools/module_generic.f90 (modified) (2 diffs)

trunk/tools/module_generic.f90

@@ -10 +10 @@
 ! Index1DArrayR_K: Function to provide the first index of a given value inside a 1D real(r_k) array
 ! Index2DArrayR: Function to provide the first index of a given value inside a 2D real array
+! mat2DPosition: Function to provide the i, j indices of a given value inside a 2D matrix
 ! Nstrings: Function to repeat a number of times a given string
 ! RangeI: Function to provide a range of d1 values from 'iniv' to 'endv', of integer values in a vector
 ! RangeR: Function to provide a range of d1 values from 'iniv' to 'endv', of real values in a vector
 ! RangeR_K: Function to provide a range of d1 from 'iniv' to 'endv', of real(r_k) values in a vector
+! split: Subroutine which provides the values from a string [String] which has been split by a given 
+!   character [charv] a given number of values [Nvalues] is expected
 ! vectorR_KS: Function to transform a vector of reals to a string of characters
 
@@ -283 +286 @@
   END FUNCTION RangeR_K
 
+  SUBROUTINE split(String,charv,Nvalues,values)
+! Subroutine which provides the values from a string [String] which has been split by a given 
+!   character [charv] a given number of values [Nvalues] is expected
+
+    IMPLICIT NONE
+
+    CHARACTER(LEN=1000), INTENT(IN)                        :: String
+    CHARACTER(LEN=1), INTENT(IN)                           :: charv
+    INTEGER, INTENT(IN)                                    :: Nvalues
+    CHARACTER(LEN=200), INTENT(OUT), DIMENSION(Nvalues)    :: values
+
+! Local
+    INTEGER                                                :: i, ibeg, iend, Lstring
+    CHARACTER(LEN=3)                                       :: numS
+    CHARACTER(LEN=1000)                                    :: newString
+
+!!!!!!! Variables
+! String: String to split
+! charv: Character to use
+! Nvalues: number of values
+! values: vector with the given values (up to 200 characters)
+
+    fname = 'split'
+
+    newString = String
+    ibeg = 1
+    Lstring = LEN_TRIM(String)
+
+    DO i=1,Nvalues-1
+      iend = INDEX(newString(ibeg:Lstring), charv)
+
+      IF (iend == 0) THEN
+        WRITE (numS,"(I3)")Nvalues - 1
+        msg = "String '" // TRIM(String) // "' does not have " // TRIM(numS) // " '" // charv // "' !!"
+        CALL ErrMsg(msg, fname, -1)
+      END IF
+
+      values(i) = newString(ibeg:ibeg+iend-2)
+      ibeg = ibeg+iend
+    END DO
+    values(Nvalues) = newString(ibeg:Lstring)
+
+  END SUBROUTINE split
 
 SUBROUTINE ErrMsg(msg, funcn, errN)