Skip to content

Commit

Permalink
Diffusivity: Revert int_tide_CS to pointer
Browse files Browse the repository at this point in the history
The redefining of int_tide_CS control struct in set_diffusivity_init
caused errors in debug-mode for Intel compilers.  The issue appears to
be an internal function that expects a pointer rather than the type.

This patch reverts this back to a pointer.  We can revisit this if there
is a need to reduce reliance on pointers.
  • Loading branch information
marshallward committed Dec 19, 2024
1 parent f20a98c commit 5f4bbc2
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/parameterizations/vertical/MOM_set_diffusivity.F90
Original file line number Diff line number Diff line change
Expand Up @@ -2201,7 +2201,7 @@ subroutine set_diffusivity_init(Time, G, GV, US, param_file, diag, CS, int_tide_
type(diag_ctrl), target, intent(inout) :: diag !< A structure used to regulate diagnostic output.
type(set_diffusivity_CS), pointer :: CS !< pointer set to point to the module control
!! structure.
type(int_tide_CS), intent(in), target :: int_tide_CSp !< Internal tide control structure
type(int_tide_CS), pointer :: int_tide_CSp !< Internal tide control structure
integer, intent(out) :: halo_TS !< The halo size of tracer points that must be
!! valid for the calculations in set_diffusivity.
logical, intent(out) :: double_diffuse !< This indicates whether some version
Expand Down

0 comments on commit 5f4bbc2

Please sign in to comment.