From b1f9bb029eecb9231da0bfc007bbb51ab94fdede Mon Sep 17 00:00:00 2001 From: alperaltuntas Date: Fri, 22 Jun 2018 10:00:11 -0600 Subject: [PATCH] remove duplicate CS%N allocation --- src/parameterizations/vertical/MOM_CVMix_KPP.F90 | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/parameterizations/vertical/MOM_CVMix_KPP.F90 b/src/parameterizations/vertical/MOM_CVMix_KPP.F90 index d7ec49ab8c..f5393220b4 100644 --- a/src/parameterizations/vertical/MOM_CVMix_KPP.F90 +++ b/src/parameterizations/vertical/MOM_CVMix_KPP.F90 @@ -527,8 +527,6 @@ logical function KPP_init(paramFile, G, diag, Time, CS, passive, Waves) if (CS%id_Sigma > 0) CS%sigma(:,:,:) = 0. if (CS%id_Ws > 0) allocate( CS%Ws( SZI_(G), SZJ_(G), SZK_(G) ) ) if (CS%id_Ws > 0) CS%Ws(:,:,:) = 0. - if (CS%id_N > 0) allocate( CS%N( SZI_(G), SZJ_(G), SZK_(G)+1 ) ) - if (CS%id_N > 0) CS%N(:,:,:) = 0. if (CS%id_N2 > 0) allocate( CS%N2( SZI_(G), SZJ_(G), SZK_(G)+1 ) ) if (CS%id_N2 > 0) CS%N2(:,:,:) = 0. if (CS%id_Kt_KPP > 0) allocate( CS%Kt_KPP( SZI_(G), SZJ_(G), SZK_(G)+1 ) )