Changeset 1615 in lmdz_wrf for trunk

Timestamp:

Sep 3, 2017, 12:28:45 AM (8 years ago)

Author:

lfita

Message:

Adding

• `Index1DArrayI': Function to provide the first index of a given value inside a 1D integer array

File:

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

trunk/tools/module_generic.f90

@@ -6 +6 @@
 ! ErrWarnMsg: Function to print error/warning message
 ! index_list_coordsI: Function to provide the index of a given coordinate within a list of integer coordinates
+! Index1DArrayI: Function to provide the first index of a given value inside a 1D integer array
 ! Index1DArrayR: Function to provide the first index of a given value inside a 1D real array
 ! Index1DArrayR_K: Function to provide the first index of a given value inside a 1D real(r_k) array
@@ -104 +105 @@
 
 END FUNCTION Nstrings
+
+  INTEGER FUNCTION Index1DArrayI(array1D, d1, val)
+! Function to provide the first index of a given value inside a 1D integer array
+
+    IMPLICIT NONE
+
+    INTEGER, INTENT(in)                                  :: d1
+    INTEGER, INTENT(in)                                  :: val
+    INTEGER, DIMENSION(d1), INTENT(in)                   :: array1D
+
+! Local
+    INTEGER                                              :: i
+
+    fname = 'Index1DArrayI'
+
+    Index1DArrayI = -1
+
+    DO i=1,d1
+      IF (array1d(i) == val) THEN
+        Index1DArrayI = i
+        EXIT
+      END IF
+    END DO
+
+  END FUNCTION Index1DArrayI
 
   INTEGER FUNCTION Index1DArrayR(array1D, d1, val)