Fixed a bug in the deallocate call

NOAA-GFDL · Mar 13, 2018 · a77d114 · a77d114
1 parent f12702c
commit a77d114
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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