--- trunk/Sources/dyn3d/caldyn0.f	2015/07/24 18:14:04	163
+++ trunk/Sources/dyn3d/caldyn0.f	2016/09/01 10:30:53	207
@@ -16,6 +16,7 @@
     use covcont_m, only: covcont
     USE dimens_m, ONLY: iim, jjm, llm
     USE disvert_m, ONLY: ap, bp
+    use enercin_m, only: enercin
     use flumass_m, only: flumass
     use massbar_m, only: massbar
     use massbarxy_m, only: massbarxy