Ignore:
Timestamp:
08/05/14 16:00:09 (10 years ago)
Author:
ymipsl
Message:

Synchronize trunk and Saturn branch.
Merge modification from trunk branch to Saturn branch.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/transfert_omp.f90

    r221 r267  
    9595  IMPLICIT NONE 
    9696    CHARACTER(LEN=*),INTENT(INOUT) :: Var 
    97      
    98     CALL bcast_omp_cgen(Var,len(Var),buffer_c) 
    99      
     97    INTEGER :: lenvar 
     98    lenvar=len(Var) 
     99    CALL bcast_omp_i(lenvar) 
     100    CALL bcast_omp_cgen(Var,lenvar,buffer_c)     
    100101  END SUBROUTINE bcast_omp_c 
    101102 
Note: See TracChangeset for help on using the changeset viewer.