Skip to content

Commit

Permalink
Makes OBC restart field rx_normal not required
Browse files Browse the repository at this point in the history
 - this is desired for OBC runs initialized from
   a parent model where this field would not be available.
  • Loading branch information
MJHarrison-GFDL committed Aug 22, 2019
1 parent 5635eaf commit 49797c8
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions src/core/MOM_open_boundary.F90
Original file line number Diff line number Diff line change
Expand Up @@ -3947,17 +3947,17 @@ subroutine open_boundary_register_restarts(HI, GV, OBC_CS,restart_CSp)
allocate(OBC_CS%rx_normal(HI%isdB:HI%iedB,HI%jsd:HI%jed,GV%ke))
OBC_CS%rx_normal(:,:,:) = 0.0
vd = var_desc("rx_normal","m s-1", "Normal Phase Speed for EW OBCs",'u','L')
call register_restart_field(OBC_CS%rx_normal, vd, .true., restart_CSp)
call register_restart_field(OBC_CS%rx_normal, vd, .false., restart_CSp)
allocate(OBC_CS%ry_normal(HI%isd:HI%ied,HI%jsdB:HI%jedB,GV%ke))
OBC_CS%ry_normal(:,:,:) = 0.0
vd = var_desc("ry_normal","m s-1", "Normal Phase Speed for NS OBCs",'v','L')
call register_restart_field(OBC_CS%ry_normal, vd, .true., restart_CSp)
call register_restart_field(OBC_CS%ry_normal, vd, .false., restart_CSp)
endif
if (OBC_CS%oblique_BCs_exist_globally) then
allocate(OBC_CS%cff_normal(HI%IsdB:HI%IedB,HI%jsdB:HI%jedB,GV%ke))
OBC_CS%cff_normal(:,:,:) = 0.0
vd = var_desc("cff_normal","m s-1", "denominator for oblique OBCs",'q','L')
call register_restart_field(OBC_CS%cff_normal, vd, .true., restart_CSp)
call register_restart_field(OBC_CS%cff_normal, vd, .false., restart_CSp)
endif

end subroutine open_boundary_register_restarts
Expand Down

0 comments on commit 49797c8

Please sign in to comment.