blob: ff8fd89afc60db0a86965fc5ce690cafe498c9c5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
subroutine pltflux
c******************************************************************************
c This subroutine controls the decisions that are made around the
c plots of flux curves
c******************************************************************************
implicit real*8 (a-h,o-z)
include 'Atmos.com'
include 'Linex.com'
include 'Pstuff.com'
c call up the flux plot
if (plotopt == 0) return
10 choice = 'y'
plotroutine = 'term_land_flux'
lscreen = 12
call makeplot (lscreen)
c make a hardcopy, write to a postscript file, or replot?
array = 'WHAT TO DO NEXT ([n]/h/f/r)? '
lscreen = 12
nchars = 33
call getasci (nchars,lscreen)
choice = chinfo(1:1)
if (choice=='n' .or. nchars<=0) then
return
elseif (choice == 'h') then
plotroutine = 'hard_land_flux'
call makeplot (lscreen)
elseif (choice == 'r') then
go to 10
elseif (choice == 'f') then
plotroutine = 'file_land_flux'
call makeplot (lscreen)
endif
return
end
|
