From 4dde6037bb65e7301948d9008283c9d36b3602b0 Mon Sep 17 00:00:00 2001 From: Gustavo Marques Date: Wed, 4 Apr 2018 15:19:53 -0600 Subject: [PATCH] Avoided a possible seg. fault in set_diffusivity_end --- src/parameterizations/vertical/MOM_set_diffusivity.F90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/parameterizations/vertical/MOM_set_diffusivity.F90 b/src/parameterizations/vertical/MOM_set_diffusivity.F90 index 08c438bf24..eb12eb23d6 100644 --- a/src/parameterizations/vertical/MOM_set_diffusivity.F90 +++ b/src/parameterizations/vertical/MOM_set_diffusivity.F90 @@ -2957,6 +2957,8 @@ end subroutine set_diffusivity_init subroutine set_diffusivity_end(CS) type(set_diffusivity_CS), pointer :: CS !< Control structure for this module + if (.not.associated(CS)) return + call bkgnd_mixing_end(CS%bkgnd_mixing_csp) if (CS%user_change_diff) &