Skip to content

Commit

Permalink
fix the P7b run to run reproducibility issue (#341)
Browse files Browse the repository at this point in the history
* fix the omp threading reproducibility issue

Co-authored-by: Jun Wang <[email protected]>
  • Loading branch information
junwang-noaa and junwang-noaa authored Jul 13, 2021
1 parent 926afee commit b94c286
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion io/FV3GFS_io.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1300,7 +1300,7 @@ subroutine sfc_prop_restart_read (Sfcprop, Atm_block, Model, fv_domain, warm_sta
compute_tsfc_zorl_for_colstart: if (.not. warm_start) then
if(Model%frac_grid) then ! 3-way composite
if (Model%me == Model%master ) call mpp_error(NOTE, 'gfs_driver::surface_props_input - computing composite tsfc and zorl')
!$omp parallel do default(shared) private(nb, ix)
!$omp parallel do default(shared) private(nb, ix, tem1, tem)
do nb = 1, Atm_block%nblks
do ix = 1, Atm_block%blksz(nb)
Sfcprop(nb)%tsfco(ix) = max(con_tice, Sfcprop(nb)%tsfco(ix)) ! this may break restart reproducibility
Expand Down

0 comments on commit b94c286

Please sign in to comment.