reinit
*THIS PROGRAM DISPLAY SOIL MOISTURE COLOR MAPS IN LANDSCAPE MODE
*&0 is w20,w50,w100,s20,s50,s100
*&1= 1,2 or 4 (cint)
*&2= 20,50 or 100
*&3= Winter or Spring
*&4= 1,...,37 is a number of 10 days periods. 1 and 37 is the end of December
*&5= NAME OF THE MONTH for TITLE
*&6= 8,18, or 28 date of observation

open  grd.&0.ctl
open st.&0.ctl
open mask.ctl
set display color white
c
*enable print pr.&0.&4
set mpdset hires
set grads off
set lon 20 140
set lat 34 70
set t &4
set cthick 2
set dignum 1
d &0.2

************************
set gxout contour
set ccolor 4
set cstyle 1
set cthick 6
set cint &1

set cterp on
set csmooth on
set clab forced
d &0


draw title MULTI-YEAR AVERAGE OF PLANT AVAILABLE SOIL MOISTURE (CM)\&3 cereal crops; Upper &2 cm of soil; &5 &6
*************************************
*maskout ocean points
define ocean=mask.3(t=1)
set gxout fgrid
set fgvals 1 0
d ocean

*print
*disable print
***************END********************
**************************************


*exec mp w100 5 100 Winter 4 January 28 
*exec mp w100 5 100 Winter 5 February 8
*exec mp w100 5 100 Winter 6 February 18
*exec mp w100 5 100 Winter 7 February 28            
*exec mp w100 5 100 Winter 8 March 8
*exec mp w100 5 100 Winter 9 March 18
*exec mp w100 5 100 Winter 10 March 28            
*exec mp w100 5 100 Winter 11 April 8
*exec mp w100 5 100 Winter 12 April 18
*exec mp w100 5 100 Winter 13 April 28
*exec mp w100 5 100 Winter 14 May 8
*exec mp w100 5 100 Winter 15 May 18
*exec mp w100 5 100 Winter 16 May 28
*exec mp w100 5 100 Winter 17 June 8
*exec mp w100 5 100 Winter 18 June 18
*exec mp w100 5 100 Winter 19 June 28
*exec mp w100 5 100 Winter 20 July 8
*exec mp w100 5 100 Winter 21 July 18
*exec mp w100 5 100 Winter 22 July 28
*exec mp w100 5 100 Winter 23 August 8
*exec mp w100 5 100 Winter 24 August 18
*exec mp w100 5 100 Winter 25 August 28
*exec mp w100 5 100 Winter 26 September 8
*exec mp w100 5 100 Winter 27 September 18
*exec mp w100 5 100 Winter 28 September 28
*exec mp w100 5 100 Winter 29 October 8
*exec mp w100 5 100 Winter 30 October 18
*exec mp w100 5 100 Winter 31 October 28
*exec mp w100 5 100 Winter 32 November 8
*exec mp w100 5 100 Winter 33 November 18
*exec mp w100 5 100 Winter 34 November 8
*exec mp w100 5 100 Winter 37 December 28

*exec mp w50 2.5 50 Winter 4 January 28 
*exec mp w50 2.5 50 Winter 5 February 8
*exec mp w50 2.5 50 Winter 6 February 18
*exec mp w50 2.5 50 Winter 7 February 28            
*exec mp w50 2.5 50 Winter 8 March 8
*exec mp w50 2.5 50 Winter 9 March 18
*exec mp w50 2.5 50 Winter 10 March 28     
*exec mp w50 2.5 50 Winter 11 April 8 
*exec mp w50 2.5 50 Winter 12 April 18 
*exec mp w50 2.5 50 Winter 13 April 28 
*exec mp w50 2.5 50 Winter 14 May 8 
*exec mp w50 2.5 50 Winter 15 May 18 
*exec mp w50 2.5 50 Winter 16 May 28 
*exec mp w50 2.5 50 Winter 17 June 8 
*exec mp w50 2.5 50 Winter 18 June 18 
*exec mp w50 2.5 50 Winter 19 June 28 
*exec mp w50 2.5 50 Winter 50 July 8 
*exec mp w50 2.5 50 Winter 21 July 18 
*exec mp w50 2.5 50 Winter 22 July 28 
*exec mp w50 2.5 50 Winter 23 August 8 
*exec mp w50 2.5 50 Winter 24 August 18 
*exec mp w50 2.5 50 Winter 25 August 28 
*exec mp w50 2.5 50 Winter 26 September 8 
*exec mp w50 2.5 50 Winter 27 September 18 
*exec mp w50 2.5 50 Winter 28 September 28 
*exec mp w50 2.5 50 Winter 29 October 8 
*exec mp w50 2.5 50 Winter 30 October 18 
*exec mp w50 2.5 50 Winter 31 October 28 
*exec mp w50 2.5 50 Winter 32 November 8
*exec mp w50 2.5 50 Winter 33 November 18
*exec mp w50 2.5 50 Winter 34 November 28
*exec mp w50 2.5 50 Winter 37 December 28

*exec mp w20 1 20 Winter 4 January 28 
*exec mp w20 1 20 Winter 5 February 8
*exec mp w20 1 20 Winter 6 February 18
*exec mp w20 1 20 Winter 7 February 28            
*exec mp w20 1 20 Winter 8 March 8
*exec mp w20 1 20 Winter 9 March 18
*exec mp w20 1 20 Winter 10 March 28     
*exec mp w20 1 20 Winter 11 April 8 
*exec mp w20 1 20 Winter 12 April 18 
*exec mp w20 1 20 Winter 13 April 28 
*exec mp w20 1 20 Winter 14 May 8 
*exec mp w20 1 20 Winter 15 May 18 
*exec mp w20 1 20 Winter 16 May 28 
*exec mp w20 1 20 Winter 17 June 8 
*exec mp w20 1 20 Winter 18 June 18 
*exec mp w20 1 20 Winter 19 June 28 
*exec mp w20 1 20 Winter 20 July 8 
*exec mp w20 1 20 Winter 21 July 18 
*exec mp w20 1 20 Winter 22 July 28 
*exec mp w20 1 20 Winter 23 August 8 
*exec mp w20 1 20 Winter 24 August 18 
*exec mp w20 1 20 Winter 25 August 28 
*exec mp w20 1 20 Winter 26 September 8 
*exec mp w20 1 20 Winter 27 September 18 
*exec mp w20 1 20 Winter 28 September 28 
*exec mp w20 1 20 Winter 29 October 8 
*exec mp w20 1 20 Winter 30 October 18 
*exec mp w20 1 20 Winter 31 October 28 
*exec mp w20 1 20 Winter 32 November 8
*exec mp w20 1 20 Winter 33 November 18
*exec mp w20 1 20 Winter 34 November 8
*exec mp w20 1 20 Winter 37 December 28


*exec mp s100 5 100 Spring 8 March 8
*exec mp s100 5 100 Spring 9 March 18
*exec mp s100 5 100 Spring 10 March 28
*exec mp s100 5 100 Spring 11 April 8 
*exec mp s100 5 100 Spring 12 April 18 
*exec mp s100 5 100 Spring 13 April 28 
*exec mp s100 5 100 Spring 14 May 8 
*exec mp s100 5 100 Spring 15 May 18 
*exec mp s100 5 100 Spring 16 May 28 
*exec mp s100 5 100 Spring 17 June 8 
*exec mp s100 5 100 Spring 18 June 18 
*exec mp s100 5 100 Spring 19 June 28 
*exec mp s100 5 100 Spring 20 July 8 
*exec mp s100 5 100 Spring 21 July 18 
*exec mp s100 5 100 Spring 22 July 28 
*exec mp s100 5 100 Spring 23 August 8 
*exec mp s100 5 100 Spring 24 August 18 
*exec mp s100 5 100 Spring 25 August 28 
*exec mp s100 5 100 Spring 26 September 8 
*exec mp s100 5 100 Spring 27 September 18 
*exec mp s100 5 100 Spring 28 September 28 

*exec mp s50 2.5 50 Spring 8 March 8
*exec mp s50 2.5 50 Spring 9 March 18
*exec mp s50 2.5 50 Spring 10 March 28
*exec mp s50 2.5 50 Spring 11 April 8 
*exec mp s50 2.5 50 Spring 12 April 18 
*exec mp s50 2.5 50 Spring 13 April 28 
*exec mp s50 2.5 50 Spring 14 May 8 
*exec mp s50 2.5 50 Spring 15 May 18 
*exec mp s50 2.5 50 Spring 16 May 28 
*exec mp s50 2.5 50 Spring 17 June 8 
*exec mp s50 2.5 50 Spring 18 June 18 
*exec mp s50 2.5 50 Spring 19 June 28 
*exec mp s50 2.5 50 Spring 50 July 8 
*exec mp s50 2.5 50 Spring 21 July 18 
*exec mp s50 2.5 50 Spring 22 July 28 
*exec mp s50 2.5 50 Spring 23 August 8 
*exec mp s50 2.5 50 Spring 24 August 18 
*exec mp s50 2.5 50 Spring 25 August 28 
*exec mp s50 2.5 50 Spring 26 September 8 
*exec mp s50 2.5 50 Spring 27 September 18 
*exec mp s50 2.5 50 Spring 28 September 28 

*exec mp s20 1 20 Spring 8 March 8
*exec mp s20 1 20 Spring 9 March 18
*exec mp s20 1 20 Spring 10 March 28
*exec mp s20 1 20 Spring 11 April 8 
*exec mp s20 1 20 Spring 12 April 18 
*exec mp s20 1 20 Spring 13 April 28 
*exec mp s20 1 20 Spring 14 May 8 
*exec mp s20 1 20 Spring 15 May 18 
*exec mp s20 1 20 Spring 16 May 28 
*exec mp s20 1 20 Spring 17 June 8 
*exec mp s20 1 20 Spring 18 June 18 
*exec mp s20 1 20 Spring 19 June 28 
*exec mp s20 1 20 Spring 20 July 8 
*exec mp s20 1 20 Spring 21 July 18 
*exec mp s20 1 20 Spring 22 July 28 
*exec mp s20 1 20 Spring 23 August 8 
*exec mp s20 1 20 Spring 24 August 18 
*exec mp s20 1 20 Spring 25 August 28 
*exec mp s20 1 20 Spring 26 September 8 
*exec mp s20 1 20 Spring 27 September 18 
*exec mp s20 1 20 Spring 28 September 28