blob: 5332f452894e9f8daa0e3bedb61ecc6ba05146b4 (
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 .eq. 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.eq.'n' .or. nchars.le.0) then
return
elseif (choice .eq. 'h') then
plotroutine = 'hard_land_flux'
call makeplot (lscreen)
elseif (choice .eq. 'r') then
go to 10
elseif (choice .eq. 'f') then
plotroutine = 'file_land_flux'
call makeplot (lscreen)
endif
return
end
|
