Skip to content

Commit

Permalink
Add implementation for CICE to read the mom supergrid file directly, …
Browse files Browse the repository at this point in the history
…and use this as the grid file.
  • Loading branch information
anton-seaice committed Dec 5, 2024
1 parent 3ba4042 commit f96ebd4
Show file tree
Hide file tree
Showing 5 changed files with 960 additions and 122 deletions.
7 changes: 5 additions & 2 deletions cicecore/cicedyn/general/ice_init.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1948,6 +1948,7 @@ subroutine input_data
write(nu_diag,*) ' '
write(nu_diag,*) ' Grid, Discretization'
write(nu_diag,*) '--------------------------------'
write(nu_diag,1030) ' grid_format = ',trim(grid_format)
tmpstr2 = ' '
if (trim(grid_type) == 'rectangular') tmpstr2 = ' : internally defined, rectangular grid'
if (trim(grid_type) == 'regional') tmpstr2 = ' : user-defined, regional grid'
Expand Down Expand Up @@ -2692,14 +2693,16 @@ subroutine input_data
kmt_type /= 'channel_onenorth' .and. &
kmt_type /= 'wall' .and. &
kmt_type /= 'default' .and. &
kmt_type /= 'boxislands') then
kmt_type /= 'boxislands'.and. &
kmt_type /= 'none' ) then
if (my_task == master_task) write(nu_diag,*) subname//' ERROR: unknown kmt_type=',trim(kmt_type)
abort_list = trim(abort_list)//":27"
endif

if (grid_type /= 'column' .and. &
grid_type /= 'rectangular' .and. &
kmt_type /= 'file') then
kmt_type /= 'file' .and. &
kmt_type /= 'none') then
if (my_task == master_task) write(nu_diag,*) subname//' ERROR: need kmt file, kmt_type=',trim(kmt_type)
abort_list = trim(abort_list)//":28"
endif
Expand Down
Loading

0 comments on commit f96ebd4

Please sign in to comment.