From a77d1143b6e848f541dbdcb129519ed70b80f3f5 Mon Sep 17 00:00:00 2001 From: Gustavo Marques Date: Tue, 13 Mar 2018 14:12:54 -0600 Subject: [PATCH] Fixed a bug in the deallocate call --- src/parameterizations/vertical/MOM_cvmix_conv.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/parameterizations/vertical/MOM_cvmix_conv.F90 b/src/parameterizations/vertical/MOM_cvmix_conv.F90 index 5fab297910..792f0deb1b 100644 --- a/src/parameterizations/vertical/MOM_cvmix_conv.F90 +++ b/src/parameterizations/vertical/MOM_cvmix_conv.F90 @@ -236,9 +236,9 @@ end subroutine calculate_cvmix_conv subroutine cvmix_conv_end(CS) type(cvmix_conv_cs), pointer :: CS ! Control structure - deallocate(CS%N2, CS%diag) - deallocate(CS%kd_conv_3d, CS%diag) - deallocate(CS%kv_conv_3d, CS%diag) + deallocate(CS%N2) + deallocate(CS%kd_conv_3d) + deallocate(CS%kv_conv_3d) deallocate(CS) end subroutine cvmix_conv_end