Ignore:
Timestamp:
Mar 14, 2019, 3:07:39 PM (6 years ago)
Author:
Laurent Fairhead
Message:

Needed when running in sequential mode and correcting en overinitialisation
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/cpl_mod.F90

    r3465 r3467  
    12741274      ENDDO
    12751275     
     1276#ifdef CPP_MPI
    12761277      CALL MPI_ALLREDUCE(calving, calving_glo, nb_zone_calving, MPI_REAL_LMDZ, MPI_SUM, COMM_LMDZ_PHY, error)
     1278#endif
    12771279     
    12781280      tab_flds(:,:,ids_calvin) = 0
Note: See TracChangeset for help on using the changeset viewer.