Final-final GFS v16 updates / restart reproducibility bugfixes (NCAR#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>
hannahcbarnes · Dec 14, 2020 · 3aad398 · 3aad398
1 parent babf6dc
commit 3aad398
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/ccpp/physics b/ccpp/physics
diff --git a/io/FV3GFS_io.F90 b/io/FV3GFS_io.F90
@@ -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)
@@ -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)
+1 −1		physics/GFS_debug.F90
+1 −0		physics/GFS_surface_composites.F90