Changeset 2331 in lmdz_wrf

Timestamp:

Feb 12, 2019, 2:40:16 PM (6 years ago)

Author:

lfita

Message:

Adding:

• `vectorI_S': Function to transform a vector of integers to a string of characters
• `vectorR_S': Function to transform a vector of reals to a string of characters

File:

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

trunk/tools/module_generic.f90

@@ -18 +18 @@
 ! RangeR_K: Function to provide a range of d1 from 'iniv' to 'endv', of real(r_k) values in a vector
 ! stoprun: Subroutine to stop running and print a message
+! vectorI_S: Function to transform a vector of integers to a string of characters
+! vectorR_S: Function to transform a vector of reals to a string of characters
 ! xzones_homogenization: Subroutine to homogenize 2D contiguous zones along x-axis. Zones might be 
 !   contiguous, but with different number assigned !
@@ -642 +644 @@
   END SUBROUTINE yzones_homogenization
 
+  CHARACTER(len=1000) FUNCTION vectorI_S(d1, vector)
+  ! Function to transform a vector of integers to a string of characters
+
+    IMPLICIT NONE
+
+    INTEGER, INTENT(in)                                  :: d1
+    INTEGER, DIMENSION(d1), INTENT(in)                   :: vector
+
+! Local
+    INTEGER                                              :: iv
+    CHARACTER(len=50)                                    :: IS
+
+!!!!!!! Variables
+! d1: length of the vector
+! vector: values to transform
+
+    fname = 'vectorI_S'
+
+    vectorI_S = ''
+    DO iv=1, d1
+      WRITE(IS, '(I50)')vector(iv)
+      IF (iv == 1) THEN
+        vectorI_S = TRIM(IS)
+      ELSE
+        vectorI_S = TRIM(vectorI_S) // ', ' // TRIM(IS)
+      END IF
+    END DO    
+
+  END FUNCTION vectorI_S
+
+  CHARACTER(len=1000) FUNCTION vectorR_S(d1, vector)
+  ! Function to transform a vector of reals to a string of characters
+
+    IMPLICIT NONE
+
+    INTEGER, INTENT(in)                                  :: d1
+    REAL, DIMENSION(d1), INTENT(in)                      :: vector
+
+! Local
+    INTEGER                                              :: iv
+    CHARACTER(len=50)                                    :: RS
+
+!!!!!!! Variables
+! d1: length of the vector
+! vector: values to transform
+
+    fname = 'vectorR_S'
+
+    vectorR_S = ''
+    DO iv=1, d1
+      WRITE(RS, '(F50.25)')vector(iv)
+      IF (iv == 1) THEN
+        vectorR_S = TRIM(RS)
+      ELSE
+        vectorR_S = TRIM(vectorR_S) // ', ' // TRIM(RS)
+      END IF
+    END DO    
+
+  END FUNCTION vectorR_S
+
 END MODULE module_generic