Allocate hbl

NCAR · Jul 27, 2023 · cf29f1b · cf29f1b
1 parent 53ccbc3
commit cf29f1b
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/tracer/MOM_neutral_diffusion.F90 b/src/tracer/MOM_neutral_diffusion.F90
@@ -267,6 +267,7 @@ logical function neutral_diffusion_init(Time, G, GV, US, param_file, diag, EOS,
   endif
 
   if (CS%interior_only) then
+    allocate(CS%hbl(SZI_(G),SZJ_(G)), source=0.)
     call extract_diabatic_member(diabatic_CSp, KPP_CSp=CS%KPP_CSp)
     call extract_diabatic_member(diabatic_CSp, energetic_PBL_CSp=CS%energetic_PBL_CSp)
     if ( .not. ASSOCIATED(CS%energetic_PBL_CSp) .and. .not. ASSOCIATED(CS%KPP_CSp) ) then