Changeset 2290 for trunk/LMDZ.COMMON/libf/phy_common
- Timestamp:
- Apr 17, 2020, 3:40:22 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/phy_common/ioipsl_getin_p_mod.F90
r1543 r2290 23 23 MODULE PROCEDURE getinrs_p, getinr1d_p, getinr2d_p, & 24 24 & getinis_p, getini1d_p, getini2d_p, & 25 & getincs_p, 25 & getincs_p, getinc1d_p, & 26 26 & getinls_p, getinl1d_p, getinl2d_p 27 27 END INTERFACE … … 47 47 CALL bcast(VarOut) 48 48 END SUBROUTINE getincs_p 49 50 SUBROUTINE getinc1d_p(VarIn,VarOut) 51 IMPLICIT NONE 52 CHARACTER(LEN=*),INTENT(IN) :: VarIn 53 CHARACTER(LEN=*),INTENT(INOUT) :: VarOut(:) 54 55 INTEGER :: i 56 57 !$OMP BARRIER 58 IF (is_mpi_root .AND. is_omp_root) THEN 59 CALL getin(VarIn,VarOut) 60 ENDIF 61 DO i=1,size(VarOut) 62 CALL bcast(VarOut(i)) 63 ENDDO 64 END SUBROUTINE getinc1d_p 49 65 50 66 !! -- Les entiers -- !!
Note: See TracChangeset
for help on using the changeset viewer.