Changeset 9383 for branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

Timestamp:

2018-03-08T10:22:55+01:00 (6 years ago)

Author:

andmirek

Message:

#2050 fixes and changes

File:

• branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90 (modified) (9 diffs)

branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

@@ -90 +90 @@
    INTERFACE mpp_bcast
       MODULE PROCEDURE mpp_bcast_i1, mpp_bcast_da, mpp_bcast_ch, mpp_bcast_ia, mpp_bcast_l, &
-     &                 mpp_bcast_d, mpp_bcast_d2a, mpp_bcast_d3a
+     &                 mpp_bcast_d, mpp_bcast_d2a, mpp_bcast_d3a, mpp_bcast_lv
    END INTERFACE
    INTERFACE mpp_min
@@ -1853 +1853 @@
       INTEGER, INTENT(INOUT) :: ival  ! value to broadcast 
       INTEGER :: ierror ! mpi error
+
       CALL MPI_BCAST(ival, 1, MPI_INTEGER4, 0, mpi_comm_opa, ierror)
+
    END SUBROUTINE mpp_bcast_i1
 
@@ -1867 +1869 @@
       INTEGER, INTENT(IN)  :: lng          ! length of dval 
       INTEGER              :: ierror       ! mpi error
+
       CALL MPI_BCAST(dvalv, lng, mpi_double_precision, 0, mpi_comm_opa, ierror) 
+
    END SUBROUTINE mpp_bcast_da
 
@@ -1884 +1888 @@
       INTEGER              :: itotal          ! local variable
       itotal = nx*ny
+
       CALL MPI_BCAST(dvala, itotal, mpi_double_precision, 0, mpi_comm_opa, ierror) 
+
    END SUBROUTINE mpp_bcast_d2a
 
@@ -1898 +1904 @@
       INTEGER, INTENT(IN)  :: nx, ny, nz          ! size of dvala 
       INTEGER              :: ierror          ! mpi error
+
       CALL MPI_BCAST(dvala, nx*ny*nz, mpi_double_precision, 0, mpi_comm_opa, ierror) 
+
    END SUBROUTINE mpp_bcast_d3a
 
@@ -1911 +1919 @@
       REAL(wp), INTENT(INOUT) :: dval        ! real 1D array 
       INTEGER              :: ierror       ! mpi error
+
       CALL MPI_BCAST(dval, 1, mpi_double_precision, 0, mpi_comm_opa, ierror) 
+
    END SUBROUTINE mpp_bcast_d
 
@@ -1922 +1932 @@
       !i!              processor 0 - lwm = .true.. NETCDF related call
       !!--------------------------------------------------------------------------
-      CHARACTER(len=lng), INTENT(IN) :: cstring      ! string 1D array 
+      CHARACTER(len=lng), INTENT(INOUT) :: cstring      ! string 1D array 
       INTEGER, INTENT(IN)            :: lng          ! length of cstring 
       INTEGER                        :: ierror       ! mpi error
+
       CALL MPI_BCAST(cstring, lng, MPI_CHARACTER, 0, mpi_comm_opa, ierror)
+
    END SUBROUTINE mpp_bcast_ch
 
@@ -1932 +1944 @@
       INTEGER, INTENT (IN)                :: lng
       INTEGER                             :: ierror       ! mpi error
+
       CALL MPI_BCAST(ivalv, lng, MPI_INTEGER4, 0, mpi_comm_opa, ierror)
+
    END SUBROUTINE mpp_bcast_ia
 
@@ -1938 +1952 @@
       LOGICAL, INTENT(INOUT) :: lval  ! value to broadcast 
       INTEGER             :: ierror       ! mpi error
+
       CALL MPI_BCAST(lval, 1, MPI_LOGICAL, 0, mpi_comm_opa, ierror)
+
    END SUBROUTINE mpp_bcast_l
+
+   SUBROUTINE mpp_bcast_lv(ldval, inln)
+      LOGICAL, DIMENSION(inln), INTENT(INOUT) :: ldval  ! value to broadcast 
+      INTEGER,                  INTENT(IN)    :: inln
+      INTEGER                                 :: ierror       ! mpi error
+
+      CALL MPI_BCAST(ldval, inln, MPI_LOGICAL, 0, mpi_comm_opa, ierror)
+
+   END SUBROUTINE mpp_bcast_lv
 
    SUBROUTINE mpp_bcast_d2d(dval, ni, nj)