[MITgcm-support] Where comput momKE in diagnostics (source code)?

[Brainf]

I want find where comput momKE (Kinetic Energy in momentum Eq.) or other variable's computing source code in diagnostics?

Manule 6.19.4.2 Diagnostic Description doesn't say it.
and i only can find 

#ifdef ALLOW_DIAGNOSTICS
      IF ( useDiagnostics ) THEN
        CALL DIAGNOSTICS_FILL(KE,     'momKE   ',k,1,2,bi,bj,myThid)

in pkg/mom_fluxform/mom_fluxform.F

It isn't what i want,Who knows its detail source code?

Best regards. 

Brainf
brainf at 163.com
2006-08-09