c-----------------------------------------------------------------
      SUBROUTINE TMAXMIN
      INCLUDE 'comblk.h' 
C THIS SECTION OF CODE FINDS THE MAX AND MIN TEMPERATURES AND THEIR  
C (I,J,K) LOCATIONS, PRINTS THEM TO THE STANDARD OUT, AND WRITES
C THEM TO FILE UNIT=43.  THE 10 DEGREES C IS ADDED BACK TO THESE
C TEMPERATURES BEFORE PRINTING.  THIS SUBROUTINE IS CALLED FROM
C MAIN WITH THE COMMAND:   CALL TMAXMIN 
C
      TMAX=-9999.0
      TMIN=9999.0
C
      DO 4489 K=1,KBM1
      DO 4489 J=1,JM
      DO 4489 I=1,IM
      IF(FSM(I,J).LT.0.01) GO TO 4489
	IF(T(I,J,K).GE.TMAX) THEN
	   TMAX=T(I,J,K)
	   IMAX=I
	   JMAX=J
	   KMAX=K
        ENDIF
        IF(T(I,J,K).LE.TMIN) THEN
	   TMIN=T(I,J,K)
	   IMIN=I
	   JMIN=J
	   KMIN=K
        ENDIF
 4489 CONTINUE
C 
      TMAX=TMAX+10.0
      TMIN=TMIN+10.0  
C WRITE TO STANDART OUT 
      WRITE(6,4490) TIME,TMAX,IMAX,JMAX,KMAX
 4490 FORMAT(10X,'TIME = ',F10.3,' TMAX = ',F10.3,
     1' IMAX = ',I3,' JMAX = ',I3,' KMAX = ',I3) 
      WRITE(6,4491) TIME,TMIN,IMIN,JMIN,KMIN
 4491 FORMAT(10X,'TIME = ',F10.3,' TMIN = ',F10.3,
     1' IMIN = ',I3,' JMIN = ',I3,' KMIN = ',I3) 
C 
C WRITE TO FILE UNIT=43 FOR PLOTTING 
      WRITE(43,4492) TIME,TMAX,TMIN
 4492 FORMAT(3(F12.4)) 
C
      RETURN
      END 
C--------------------------------------------------------------------