*IDENT WMCtraceromit
*DECLARE TRACER
*D TRACER.1275,TRACER.1294
C <wmc 2002/04/24>
C Omit calculation of the se diags (I hope they are diags...)
C which seem to cause problems sometimes in the 32-bit runs
!     IF(NERGY.EQ.1) THEN                                                  TRACER.1275
!       DO M=1,NT                                                          ORH1F305.1800
!       DO K=1,KM                                                          ORH1F305.1801
!        FX=CST(J)*DYT(J)*DZ(K)/C2DTTS                                     TRACER.1278
!       DO I=2,IMTM1                                                       ORH7F404.18
!         TTDTOT(1,M)=TTDTOT(1,M)+(TA(I,K,M)   -TB(I,K,M)   )*FX*DXT(I)    ORH1F305.1811
!         TVAR(M)    =TVAR(M)    +(TA(I,K,M)**2-TB(I,K,M)**2)*FX*DXT(I)    ORH1F305.1812
!       ENDDO ! over I                                                     ORH7F404.19
!      ENDDO ! over K                                                      ORH1F305.1815
!      ENDDO ! over M                                                      ORH1F305.1816
!     ENDIF                                                                TRACER.1294
C </wmc>