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

devel : towards conformity to F2008 standard

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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.