Changeset 2818


Ignore:
Timestamp:
Mar 8, 2017, 3:29:37 PM (8 years ago)
Author:
Laurent Fairhead
Message:

Bug corrected to get same restarts when using ok_conserv_q=y and different
parallel domain sectionning

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/cv3_routines.F90

    r2761 r2818  
    281281                    wghti, tnk, thnk, qnk, qsnk, unk, vnk, &
    282282                    cpnk, hnk, nk, icb, icbmax, iflag, gznk, plcl)
     283
     284  USE mod_phys_lmdz_transfert_para, ONLY : bcast
    283285  IMPLICIT NONE
    284286
    … …  
    349351    END IF
    350352    PRINT *, ' ok_new_feed: ', ok_new_feed
    351     first = .FALSE.
    352353!$OMP END MASTER
     354    call bcast(ok_new_feed)
     355    first = .FALSE.   
    353356  END IF
    354357!jyg>
Note: See TracChangeset for help on using the changeset viewer.