Skip to content

Commit

Permalink
Merge pull request mom-ocean#26 from gustavo-marques/read_restart
Browse files Browse the repository at this point in the history
Remove dependency on ocean_model_mod; write/read restart files following CESM convention
  • Loading branch information
alperaltuntas committed Sep 1, 2017
2 parents 5a9693f + f14d664 commit 64905d5
Show file tree
Hide file tree
Showing 2 changed files with 754 additions and 37 deletions.
12 changes: 0 additions & 12 deletions config_src/coupled_driver/ocean_model_MOM.F90
Original file line number Diff line number Diff line change
Expand Up @@ -76,7 +76,6 @@ module ocean_model_mod
public ice_ocn_bnd_type_chksum
public ocean_public_type_chksum
public ocean_model_data_get
public get_state_pointers

interface ocean_model_data_get
module procedure ocean_model_data1D_get
Expand Down Expand Up @@ -1080,15 +1079,4 @@ subroutine ocean_public_type_chksum(id, timestep, ocn)

end subroutine ocean_public_type_chksum

!> Returns pointers to objects within ocean_state_type
subroutine get_state_pointers(OS, grid, surf)
type(ocean_state_type), pointer :: OS !< Ocean state type
type(ocean_grid_type), optional, pointer :: grid !< Ocean grid
type(surface), optional, pointer :: surf !< Ocean surface state

if (present(grid)) grid => OS%grid
if (present(surf)) surf=> OS%state

end subroutine get_state_pointers

end module ocean_model_mod
Loading

0 comments on commit 64905d5

Please sign in to comment.