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.

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

Bug fix for missing allocation of CD variables #19

Merged
merged 2 commits into from
Nov 17, 2021
Merged
Changes from 1 commit
Commits
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
4 changes: 4 additions & 0 deletions cicecore/cicedynB/general/ice_flux.F90
Original file line number Diff line number Diff line change
Expand Up @@ -619,6 +619,10 @@ subroutine alloc_flux
strintxE (nx_block,ny_block,max_blocks), & ! divergence of internal ice stress, x at E points (N/m^2)
strintyE (nx_block,ny_block,max_blocks), & ! divergence of internal ice stress, y at E points (N/m^2)
iceemask (nx_block,ny_block,max_blocks), & ! ice extent mask (E-cell)
fmE (nx_block,ny_block,max_blocks), & ! Coriolis param. * mass in U-cell (kg/s)
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

The comments for fmE and fmN are incorrect (not in U-cell), right?

TbE (nx_block,ny_block,max_blocks), & ! factor for seabed stress (landfast ice)
fmN (nx_block,ny_block,max_blocks), & ! Coriolis param. * mass in U-cell (kg/s)
TbN (nx_block,ny_block,max_blocks), & ! factor for seabed stress (landfast ice)
stat=ierr)
if (ierr/=0) call abort_ice('(alloc_flux): Out of memory')

Expand Down