Changeset 238


Ignore:
Timestamp:
07/17/14 18:15:58 (10 years ago)
Author:
dubos
Message:

Bugfixed bcast_omp for strings, affecting getin

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/transfert_omp.f90

    r186 r238  
    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.