Ignore:
Timestamp:
Mar 20, 2014, 10:57:19 AM (10 years ago)
Author:
Laurent Fairhead
Message:

Merged trunk changes r1920:1997 into testing branch

Location:
LMDZ5/branches/testing
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/testing

  • LMDZ5/branches/testing/libf/phylmd/mod_phys_lmdz_omp_transfert.F90

    r1910 r1999  
    2525                     bcast_omp_i,bcast_omp_i1,bcast_omp_i2,bcast_omp_i3,bcast_omp_i4, &
    2626                     bcast_omp_r,bcast_omp_r1,bcast_omp_r2,bcast_omp_r3,bcast_omp_r4, &
    27                      bcast_omp_l,bcast_omp_l1,bcast_omp_l2,bcast_omp_l3,bcast_omp_l4
     27                     bcast_omp_l,bcast_omp_l1,bcast_omp_l2,bcast_omp_l3,bcast_omp_l4
    2828  END INTERFACE
    2929
    … …  
    3131    MODULE PROCEDURE scatter_omp_i,scatter_omp_i1,scatter_omp_i2,scatter_omp_i3, &
    3232                     scatter_omp_r,scatter_omp_r1,scatter_omp_r2,scatter_omp_r3, &
    33                      scatter_omp_l,scatter_omp_l1,scatter_omp_l2,scatter_omp_l3
     33                     scatter_omp_l,scatter_omp_l1,scatter_omp_l2,scatter_omp_l3
    3434  END INTERFACE
    3535
    … …  
    3838    MODULE PROCEDURE gather_omp_i,gather_omp_i1,gather_omp_i2,gather_omp_i3, &
    3939                     gather_omp_r,gather_omp_r1,gather_omp_r2,gather_omp_r3, &
    40                      gather_omp_l,gather_omp_l1,gather_omp_l2,gather_omp_l3 
     40                     gather_omp_l,gather_omp_l1,gather_omp_l2,gather_omp_l3 
    4141  END INTERFACE
    4242 
    … …  
    740740  IMPLICIT NONE
    741741   
     742    INTEGER,INTENT(IN) :: Nb
    742743    INTEGER,DIMENSION(Nb),INTENT(INOUT) :: Var
    743744    INTEGER,DIMENSION(Nb),INTENT(INOUT) :: Buff
    744     INTEGER,INTENT(IN) :: Nb
    745745
    746746    INTEGER :: i
    … …  
    764764  IMPLICIT NONE
    765765   
     766    INTEGER,INTENT(IN) :: Nb
    766767    REAL,DIMENSION(Nb),INTENT(INOUT) :: Var
    767768    REAL,DIMENSION(Nb),INTENT(INOUT) :: Buff
    768     INTEGER,INTENT(IN) :: Nb
    769769
    770770    INTEGER :: i
    … …  
    787787  IMPLICIT NONE
    788788   
     789    INTEGER,INTENT(IN) :: Nb
    789790    LOGICAL,DIMENSION(Nb),INTENT(INOUT) :: Var
    790791    LOGICAL,DIMENSION(Nb),INTENT(INOUT) :: Buff
    791     INTEGER,INTENT(IN) :: Nb
    792792 
    793793    INTEGER :: i
Note: See TracChangeset for help on using the changeset viewer.