Ignore:
Timestamp:
05/18/20 14:08:19 (4 years ago)
Author:
dubos
Message:

devel : towards conformity to F2008 standard

Location:
codes/icosagcm/devel/src/parallel
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/parallel/transfert_mpi.f90

    r868 r1026  
    21592159    IMPLICIT NONE 
    21602160     
     2161    INTEGER,INTENT(IN) :: nb 
    21612162    INTEGER,DIMENSION(nb),INTENT(INOUT) :: Var 
    2162     INTEGER,INTENT(IN) :: nb 
    21632163 
    21642164    IF (.NOT. using_mpi) RETURN 
    … …  
    21762176    IMPLICIT NONE 
    21772177     
     2178    INTEGER,INTENT(IN) :: nb 
    21782179    REAL,DIMENSION(nb),INTENT(INOUT) :: Var 
    2179     INTEGER,INTENT(IN) :: nb 
    21802180 
    21812181    IF (.NOT. using_mpi) RETURN 
    … …  
    21932193    IMPLICIT NONE 
    21942194     
     2195    INTEGER,INTENT(IN) :: nb 
    21952196    LOGICAL,DIMENSION(nb),INTENT(INOUT) :: Var 
    2196     INTEGER,INTENT(IN) :: nb 
    21972197 
    21982198    IF (.NOT. using_mpi) RETURN 

  • codes/icosagcm/devel/src/parallel/transfert_omp.f90

    r533 r1026  
    804804  SUBROUTINE bcast_omp_cgen(Var,Nb,Buff) 
    805805  IMPLICIT NONE 
    806      
     806    INTEGER,INTENT(IN) :: Nb 
    807807    CHARACTER(LEN=*),INTENT(INOUT) :: Var 
    808808    CHARACTER(LEN=*),INTENT(INOUT) :: Buff 
    809     INTEGER,INTENT(IN) :: Nb 
    810809     
    811810    INTEGER :: i 
    … …  
    824823 
    825824 
    826        
     825 
    827826  SUBROUTINE bcast_omp_igen(Var,Nb,Buff) 
    828827  IMPLICIT NONE 
    829      
     828    INTEGER,INTENT(IN) :: Nb 
    830829    INTEGER,DIMENSION(Nb),INTENT(INOUT) :: Var 
    831830    INTEGER,DIMENSION(Nb),INTENT(INOUT) :: Buff 
    832     INTEGER,INTENT(IN) :: Nb 
    833831 
    834832    INTEGER :: i 
    … …  
    851849  SUBROUTINE bcast_omp_rgen(Var,Nb,Buff) 
    852850  IMPLICIT NONE 
    853      
     851    INTEGER,INTENT(IN) :: Nb 
    854852    REAL,DIMENSION(Nb),INTENT(INOUT) :: Var 
    855853    REAL,DIMENSION(Nb),INTENT(INOUT) :: Buff 
    856     INTEGER,INTENT(IN) :: Nb 
    857854 
    858855    INTEGER :: i 
    … …  
    874871  SUBROUTINE bcast_omp_lgen(Var,Nb,Buff) 
    875872  IMPLICIT NONE 
    876      
     873    INTEGER,INTENT(IN) :: Nb 
    877874    LOGICAL,DIMENSION(Nb),INTENT(INOUT) :: Var 
    878875    LOGICAL,DIMENSION(Nb),INTENT(INOUT) :: Buff 
    879     INTEGER,INTENT(IN) :: Nb 
    880876   
    881877    INTEGER :: i 
Note: See TracChangeset for help on using the changeset viewer.