Ignore:
Timestamp:
Aug 14, 2025, 5:20:31 PM (24 hours ago)
Author:
emillour
Message:

Dynamics-physics interface:
Minor cleaning and prettyfying: use "is_master" when possible,
remove unecessary memory-hungry calls to check_buffer_r in omp_transfert,
and convert comments to English in transfert_para.
EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/phy_common/mod_phys_lmdz_omp_transfert.F90

    r3888 r3896  
    556556    REAL,INTENT(OUT),DIMENSION(:) :: VarOut
    557557
    558     CALL Check_buffer_r(size(VarOut))   
    559558    CALL gather_omp_rgen(VarIn,Varout,1)
    560559   
    … …  
    568567    REAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
    569568
    570     CALL Check_buffer_r(size(VarOut))   
    571569    CALL gather_omp_rgen(VarIn,Varout,Size(VarIn,2))
    572570       
    … …  
    580578    REAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
    581579   
    582     CALL Check_buffer_r(size(VarOut))   
    583580    CALL gather_omp_rgen(VarIn,Varout,Size(VarIn,2)*Size(VarIn,3))
    584581   
    … …  
    592589    REAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
    593590
    594     CALL Check_buffer_r(size(VarOut))       
    595591    CALL gather_omp_rgen(VarIn,Varout,Size(VarIn,2)*Size(VarIn,3)*Size(VarIn,4))
    596592   
Note: See TracChangeset for help on using the changeset viewer.