remove duplicate CS%N allocation

NOAA-GFDL · Jun 22, 2018 · b1f9bb0 · b1f9bb0
1 parent d0f4672
commit b1f9bb0
Showing 1 changed file with 0 additions and 2 deletions.
diff --git 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 ) )