Skip to content

Commit

Permalink
Final-final GFS v16 updates / restart reproducibility bugfixes (NOAA-…
Browse files Browse the repository at this point in the history
…EMC#212)

* updates the submodule pointer for ccpp-physics for the final-final (!) GFS v16 physics updates
* fixes a bug in io/FV3GFS_io.F90 to obtain restart reproducibility for uncoupled and coupled runs - contributed by @SMoorthi-emc

Co-authored-by: Shrinivas.Moorthi <Shrinivas.Moorthi@noaa.gov>
  • Loading branch information
climbfuji and SMoorthi-emc committed Dec 14, 2020
1 parent babf6dc commit 3aad398
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 5 deletions.
2 changes: 1 addition & 1 deletion ccpp/physics
8 changes: 4 additions & 4 deletions io/FV3GFS_io.F90
Original file line number Diff line number Diff line change
Expand Up @@ -962,11 +962,11 @@ subroutine sfc_prop_restart_read (Sfcprop, Atm_block, Model, fv_domain)
endif
#endif
!--- register the 3D fields
if (Model%frac_grid) then
! if (Model%frac_grid) then
sfc_name3(0) = 'tiice'
var3_p => sfc_var3ice(:,:,:)
id_restart = register_restart_field(Sfc_restart, fn_srf, sfc_name3(0), var3_p, domain=fv_domain, mandatory=.false.)
end if
! end if

do num = 1,nvar_s3
var3_p => sfc_var3(:,:,:,num)
Expand Down Expand Up @@ -1994,11 +1994,11 @@ subroutine sfc_prop_restart_write (Sfcprop, Atm_block, Model, fv_domain, timesta
#endif

!--- register the 3D fields
if (Model%frac_grid) then
! if (Model%frac_grid) then
sfc_name3(0) = 'tiice'
var3_p => sfc_var3ice(:,:,:)
id_restart = register_restart_field(Sfc_restart, fn_srf, sfc_name3(0), var3_p, domain=fv_domain)
endif
! endif

do num = 1,nvar3
var3_p => sfc_var3(:,:,:,num)
Expand Down

0 comments on commit 3aad398

Please sign in to comment.