Skip to content

Commit

Permalink
Bugfix: uninitialized variable G%first_direction
Browse files Browse the repository at this point in the history
- Reported by @nicjhan in issue mom-ocean/MOM6#149.
- Following the use of G%first_direction in MOM6, I
  add a get_param() for the SIS2 parameter FIRST_DIRECTION.
- This does change all the SIS_parameter_doc.all files.
- No answer changes.
  • Loading branch information
adcroft committed Apr 28, 2015
1 parent 500fdd4 commit eb1d222
Showing 1 changed file with 6 additions and 0 deletions.
6 changes: 6 additions & 0 deletions ice_grid_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -295,6 +295,12 @@ subroutine set_ice_grid(G, param_file, ice_domain, NCat_dflt)
default=1.0)
G%kg_m2_to_H = 1.0 / G%H_to_kg_m2
G%H_subroundoff = 1e-30*G%kg_m2_to_H
call get_param(param_file, mod_nm, "FIRST_DIRECTION", G%first_direction, &
"An integer that indicates which direction goes first \n"//&
"in parts of the code that use directionally split \n"//&
"updates, with even numbers (or 0) used for x- first \n"//&
"and odd numbers used for y-first.", default=0)


!--- first determine the if the grid file is using the correct format
if (.not.(field_exist(grid_file, 'ocn_mosaic_file') .or. &
Expand Down

0 comments on commit eb1d222

Please sign in to comment.