! +-======-+ 
!  Copyright (c) 2003-2018 United States Government as represented by 
!  the Admistrator of the National Aeronautics and Space Administration.  
!  All Rights Reserved.
!  
!  THIS OPEN  SOURCE  AGREEMENT  ("AGREEMENT") DEFINES  THE  RIGHTS  OF USE,
!  REPRODUCTION,  DISTRIBUTION,  MODIFICATION AND REDISTRIBUTION OF CERTAIN 
!  COMPUTER SOFTWARE ORIGINALLY RELEASED BY THE UNITED STATES GOVERNMENT AS 
!  REPRESENTED BY THE GOVERNMENT AGENCY LISTED BELOW ("GOVERNMENT AGENCY").  
!  THE UNITED STATES GOVERNMENT, AS REPRESENTED BY GOVERNMENT AGENCY, IS AN 
!  INTENDED  THIRD-PARTY  BENEFICIARY  OF  ALL  SUBSEQUENT DISTRIBUTIONS OR 
!  REDISTRIBUTIONS  OF THE  SUBJECT  SOFTWARE.  ANYONE WHO USES, REPRODUCES, 
!  DISTRIBUTES, MODIFIES  OR REDISTRIBUTES THE SUBJECT SOFTWARE, AS DEFINED 
!  HEREIN, OR ANY PART THEREOF,  IS,  BY THAT ACTION, ACCEPTING IN FULL THE 
!  RESPONSIBILITIES AND OBLIGATIONS CONTAINED IN THIS AGREEMENT.
!  
!  Government Agency: National Aeronautics and Space Administration
!  Government Agency Original Software Designation: GSC-15354-1
!  Government Agency Original Software Title:  GEOS-5 GCM Modeling Software
!  User Registration Requested.  Please Visit http://opensource.gsfc.nasa.gov
!  Government Agency Point of Contact for Original Software:  
!  			Dale Hithon, SRA Assistant, (301) 286-2691
!  
! +-======-+ 

set lev 1000 100
set zlog off

* Water Vapor
* -----------
vpage 1 1 2 2
set gxout shaded
black
set cint 1
set rbrange 1 16
d qvz&1*1000
cbarn
set gxout contour
black
set cint  1
set ccolor 1
d qvz&1*1000
draw title Water Vapor (g/kg)

* Suspended Ice
* -------------
vpage 2 1 2 2
set gxout shaded
black
set cint 5
set rbrange 0 50
d qiz&1*1e6
cbarn
set gxout contour
black
set cint  5
set ccolor 1
d qiz&1*1e6
draw title Suspended Ice (mg/kg)

* Suspended Liquid
* ----------------
vpage 1 2 2 2
set gxout shaded
black
set cint 15
set rbrange 0 120
d qlz&1*1e6
cbarn
set gxout contour
black
set cint  15
set ccolor 1
d qlz&1*1e6
draw title Suspended Liquid (mg/kg)


* Raindrops
* ------------
vpage 2 2 2 2
set gxout shaded
black
*set cint 1
*set rbrange 1 16
*d qrz&1*1e6
cbarn
*draw title Raindrops


set vpage off
set strsiz .13
set string 1 c 6

xlabel 1 5.5 8.3
draw string 5.5 8.1 (&1)

myprint -name &2/&0.moist1.&1
c

* Effective Radius Ice
* --------------------
set lev 1000 10
vpage 1 1 2 2
set gxout shaded
black
set cint 2
set rbrange 0 30
d ricez&1*1e6
cbarn
set gxout contour
black
set cint  2
set ccolor 1
d ricez&1*1e6
draw title Effective Radius for Suspended Ice (x10`a-6`n m)

* Effective Radius Liquid
* -----------------------
vpage 2 1 2 2
set gxout shaded
black
set cint 1
set rbrange 0 10
d rliqz&1*1e6
cbarn
set gxout contour
black
set cint  1
set ccolor 1
d rliqz&1*1e6
draw title Effective Radius for Suspended Liquid (x10`a-6`n m)


set vpage off
set strsiz .13
set string 1 c 6

xlabel 1 5.5 8.3
draw string 5.5 8.1 (&1)

myprint -name &2/&0.moist_reff.&1
set lev 1000 100
c