Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Refactor boxslotcyl advection test to use icepack parameters #358

Merged
merged 4 commits into from
Aug 30, 2019
Merged

Refactor boxslotcyl advection test to use icepack parameters #358

Changes from 1 commit
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
b80fe06
Refactor boxslotcyl initialization to use icepack parameters
phil-blain Aug 29, 2019
330b328
Fix documentation typo
phil-blain Aug 29, 2019
b67990e
Correct use statement rename syntax
phil-blain Aug 29, 2019
227cae5
Change days_to_s to secday
phil-blain Aug 30, 2019
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Next Next commit
Refactor boxslotcyl initialization to use icepack parameters
  • Loading branch information
@phil-blain
phil-blain committed Aug 29, 2019
commit b80fe06cb06a9bee098c31d3d4653967350f8220
7 changes: 2 additions & 5 deletions cicecore/cicedynB/general/ice_init.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1927,9 +1927,10 @@ subroutine boxslotcyl_data_vel(i, j, &
iglob, jglob, &
uvel, vvel)

use ice_constants, only: c1, c4, c2, c12, p5, cm_to_m
use ice_constants, only: c2, c12, p5, cm_to_m
use ice_domain_size, only: nx_global, ny_global
use ice_grid, only: dxrect
use icepack_parameters, only: secday => days_to_s, pi

integer (kind=int_kind), intent(in) :: &
i, j, & ! local indices
Expand All @@ -1946,10 +1947,6 @@ subroutine boxslotcyl_data_vel(i, j, &
max_vel , & ! max velocity
domain_length , & ! physical domain length
period ! rotational period

real (kind=dbl_kind), parameter :: &
pi = c4*atan(c1), & ! pi
days_to_s = 86400._dbl_kind

character(len=*), parameter :: subname = '(boxslotcyl_data_vel)'

Expand Down