Changeset 4319

Timestamp:

Nov 2, 2022, 1:36:29 PM (2 years ago)

Author:

Sebastien Nguyen

Message:

corrected call to bcast in get_in from isotopes_mod.F90

File:

• LMDZ6/trunk/libf/phylmdiso/isotopes_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmdiso/isotopes_mod.F90

@@ -345 +345 @@
    LOGICAL :: lD
 !$OMP BARRIER
-   IF(.NOT.(is_mpi_root.AND.is_omp_root)) RETURN
-   val=def; CALL getin(nam,val); CALL bcast(val)
-   lD=.TRUE.; IF(PRESENT(lDisp)) lD=lDisp
-   IF(lD) CALL msg(TRIM(nam)//' = '//TRIM(val))
+   IF(is_mpi_root.AND.is_omp_root) THEN
+      val=def; CALL getin(nam,val)
+      lD=.TRUE.; IF(PRESENT(lDisp)) lD=lDisp
+      IF(lD) CALL msg(TRIM(nam)//' = '//TRIM(val))
+   END IF
+   CALL bcast(val)
 END SUBROUTINE getinp_s
 
@@ -362 +364 @@
    LOGICAL :: lD
 !$OMP BARRIER
-   IF(.NOT.(is_mpi_root.AND.is_omp_root)) RETURN
-   val=def; CALL getin(nam,val); CALL bcast(val)
-   lD=.TRUE.; IF(PRESENT(lDisp)) lD=lDisp
-   IF(lD) CALL msg(TRIM(nam)//' = '//TRIM(int2str(val)))
+   IF(is_mpi_root.AND.is_omp_root) THEN
+      val=def; CALL getin(nam,val)
+      lD=.TRUE.; IF(PRESENT(lDisp)) lD=lDisp
+      IF(lD) CALL msg(TRIM(nam)//' = '//TRIM(int2str(val)))
+   END IF
+   CALL bcast(val)
 END SUBROUTINE getinp_i
 
@@ -379 +383 @@
    LOGICAL :: lD
 !$OMP BARRIER
-   IF(.NOT.(is_mpi_root.AND.is_omp_root)) RETURN
-   val=def; CALL getin(nam,val); CALL bcast(val)
-   lD=.TRUE.; IF(PRESENT(lDisp)) lD=lDisp
-   IF(lD) CALL msg(TRIM(nam)//' = '//TRIM(real2str(val)))
+   IF(is_mpi_root.AND.is_omp_root) THEN
+      Val=def; CALL getin(nam,val)
+      lD=.TRUE.; IF(PRESENT(lDisp)) lD=lDisp
+      IF(lD) CALL msg(TRIM(nam)//' = '//TRIM(real2str(val)))
+   ENDIF
+   CALL bcast(val)
 END SUBROUTINE getinp_r
 
@@ -396 +402 @@
    LOGICAL :: lD
 !$OMP BARRIER
-   IF(.NOT.(is_mpi_root.AND.is_omp_root)) RETURN
-   val=def; CALL getin(nam,val); CALL bcast(val)
-   lD=.TRUE.; IF(PRESENT(lDisp)) lD=lDisp
-   IF(lD) CALL msg(TRIM(nam)//' = '//TRIM(bool2str(val)))
+   IF(is_mpi_root.AND.is_omp_root) THEN
+      val=def; CALL getin(nam,val)
+      lD=.TRUE.; IF(PRESENT(lDisp)) lD=lDisp
+      IF(lD) CALL msg(TRIM(nam)//' = '//TRIM(bool2str(val)))
+   END IF
+   CALL bcast(val)
 END SUBROUTINE getinp_l