! +-======-+ 
!  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 display greyscale white
set clab on
set clopts -1 -1 .13
set xlopts 1 4 .2
set ylopts 1 4 .2
set x 1
set clab on

set lev 1000 10
set zlog off

* Water Vapor
* -----------
*vpage 1 1 2 2
*set gxout shaded
*black
*set cint 0.05
*set rbrange 0 0.6
*d fcldz&1
*cbarn
*set gxout contour
*black
*set cint  0.05
*set ccolor 1
*d fcldz&1
*draw ylab Linear (P)
*draw title Cloud Fraction (0-1)

vpage 1 1 2 2
set gxout shaded
black
set clevs 2 15
set ccols 0 14 15
d fcldz&1*100
set gxout contour
set ccolor 1
black
set ccolor 1
set clevs 2 5 10 15 20 25 30 35 40 45 50 55 60 80 100
d fcldz&1*100
draw ylab Linear (P)
draw title Cloud Fraction (%)

set lev 1000 50
set zlog on

* Cloud Fraction
* --------------
vpage 2 1 2 2
set ylevs 1000 850 700 600 500 400 300 200 150 100 70 50
set gxout shaded
black
set clevs 2 15
set ccols 0 14 15
d fcldz&1*100
set gxout contour
set ccolor 1
black
set ccolor 1
set clevs 2 5 10 15 20 25 30 35 40 45 50 55 60 80 100
d fcldz&1*100
*set cint 0.05
*set rbrange 0 0.6
*d fcldz&1
*cbarn
*set gxout contour
*black
*set cint  0.05
*set ccolor 1
*d fcldz&1
draw ylab Log (P)
draw title Cloud Fraction (%)

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.moist3.&1
set display color white
set clab off
c