[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

20001204: SFMAP

This archive contains answers to questions sent to Unidata support through mid-2025. Note that the archive is no longer being updated. We provide the archive for reference; many of the answers presented here remain technically correct, even if somewhat outdated. For the most up-to-date information on the use of NSF Unidata software and data services, please consult the Software Documentation first.

  • Subject: 20001204: SFMAP
  • Date: Mon, 04 Dec 2000 11:12:52 -0700
------- Forwarded Message

>To: address@hidden
>From: "Larry D. Oolman" <address@hidden>
>Subject: GEMPAK sfmap fix
>Organization: UCAR/Unidata
>Keywords: 200012041658.eB4GwNo22090

I discoverd a small bug in sfmap.  If you specifying a station list
and an area in AREA, the software goes through the lll loop twice.
The title plotting and GEPLOT are in this loop.  It appears that the
font may be reset by GEPLOT and the default font, rather than the
desired font, may be used the second time through the loop.  I can't
replicate the problem every time.  Moving the END DO further up the seems
to fix the problem.  I didn't bother to fix the indentation.

Larry Oolman
Department of Atmospheric Science
University of Wyoming
address@hidden
http://www-das.uwyo.edu

*** sfmap.f.dist        Mon Jun 19 14:03:41 2000
--- sfmap.f     Sat Dec  2 21:20:27 2000
***************
*** 379,384 ****
--- 379,385 ----
                             END IF
                         END IF
                     END DO
+                END DO
  C
  C*                 Draw color bar for first color-coded parameter.
  C
***************
*** 438,444 ****
  C*                 Flush the graphics buffer.
  C
                     CALL GEPLOT  ( iret )
!                END DO
                 itime = itime + 1
                 IF  ( itime .gt. ntime ) proces = .false.
             END IF
--- 439,445 ----
  C*                 Flush the graphics buffer.
  C
                     CALL GEPLOT  ( iret )
! C              END DO
                 itime = itime + 1
                 IF  ( itime .gt. ntime ) proces = .false.
             END IF





------- End of Forwarded Message