Changeset 2290

Timestamp:

Apr 17, 2020, 3:40:22 PM (5 years ago)

Author:

jvatant

Message:

Add procedure for 1D-arrays of type character in getin_p
--JVO

File:

• trunk/LMDZ.COMMON/libf/phy_common/ioipsl_getin_p_mod.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/phy_common/ioipsl_getin_p_mod.F90

@@ -23 +23 @@
   MODULE PROCEDURE getinrs_p, getinr1d_p, getinr2d_p, &
  &                 getinis_p, getini1d_p, getini2d_p, &
- &                 getincs_p,                         &
+ &                 getincs_p, getinc1d_p,             &
  &                 getinls_p, getinl1d_p, getinl2d_p
 END INTERFACE
@@ -47 +47 @@
     CALL bcast(VarOut)
   END SUBROUTINE getincs_p
+
+  SUBROUTINE getinc1d_p(VarIn,VarOut)
+    IMPLICIT NONE    
+    CHARACTER(LEN=*),INTENT(IN) :: VarIn
+    CHARACTER(LEN=*),INTENT(INOUT) :: VarOut(:)    
+
+    INTEGER :: i
+
+!$OMP BARRIER
+    IF (is_mpi_root .AND. is_omp_root) THEN
+        CALL getin(VarIn,VarOut)
+    ENDIF
+    DO i=1,size(VarOut)
+      CALL bcast(VarOut(i))
+    ENDDO
+  END SUBROUTINE getinc1d_p
 
 !! -- Les entiers -- !!