Skip to content

Commit

Permalink
Fix merge mistake. mom-ocean#334
Browse files Browse the repository at this point in the history
Nicholas Hannah committed Nov 3, 2016
1 parent 2072bfe commit fdb4caf
Showing 1 changed file with 0 additions and 9 deletions.
9 changes: 0 additions & 9 deletions src/ALE/MOM_ALE.F90
Original file line number Diff line number Diff line change
@@ -1082,15 +1082,6 @@ subroutine ALE_initRegridding(GV, max_depth, param_file, mod, regridCS, dz )
call initialize_regridding( GV%ke, coordMode, interpScheme, regridCS, &
compressibility_fraction=compress_fraction )

if (coordinateMode(coordMode) == REGRIDDING_ZSTAR) then
call get_param(param_file, mod, "ZSTAR_RIGID_SURFACE_THRESHOLD", height_of_rigid_surface, &
"A threshold height used to detect the presence of a rigid-surface\n"//&
"depressing the upper-surface of the model, such as an ice-shelf.\n"//&
"This is a temporary work around for initialization under an ice-shelf.", &
units='m', default=-1.E30)
call set_regrid_params( regridCS, height_of_rigid_surface=height_of_rigid_surface*GV%m_to_H)
endif

call get_param(param_file, mod, "ALE_COORDINATE_CONFIG", string, &
"Determines how to specify the coordinate\n"//&
"resolution. Valid options are:\n"//&

0 comments on commit fdb4caf

Please sign in to comment.