reinit
*THIS PROGRAM DISPLAY SOIL MOISTURE CONTOUR MAP and DISTRICT DATA IN LANDSCAPE MODE
*&0 is w20,w100,s20,s100
*&1= 1 or 4 (cint)
*&2= 20 or 100
*&3= Winter or Spring
*&4= 2,...,73 is a number of 10 days periods. 1 37 and 73 is the end of December
*&5= NAME OF THE MONTH for TITLE
*&6=date 8, 18 or 28
*&7= year 87 or 88
open  grd.&0.ctl
open st.&0.ctl
open mask.ctl
set display color white
c
*enable print prb.&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 rbcols auto
*set ccolor rainbow 
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 PLANT AVAILABLE SOIL MOISTURE (CM)\&3 cereal crops; Upper &2 cm of soil; &5 &6, 19&7
*************************************
*maskout ocean points
define ocean=mask.3(t=1)
set gxout fgrid
set fgvals 1 0
d ocean

*print
*disable print
***************END********************         
*          0  1  2     3   4    5   6 7
*exec mp w100 5 100 Winter 11 April 8 87
*exec mp w100 5 100 Winter 12 April 18 87
*exec mp w100 5 100 Winter 13 April 28 87
*exec mp w100 5 100 Winter 14 May 8 87
*exec mp w100 5 100 Winter 15 May 18 87
*exec mp w100 5 100 Winter 16 May 28 87
*exec mp w100 5 100 Winter 17 June 8 87
*exec mp w100 5 100 Winter 18 June 18 87
*exec mp w100 5 100 Winter 19 June 28 87
*exec mp w100 5 100 Winter 20 July 8 87
*exec mp w100 5 100 Winter 21 July 18 87
*exec mp w100 5 100 Winter 22 July 28 87
*exec mp w100 5 100 Winter 23 August 8 87
*exec mp w100 5 100 Winter 24 August 18 87
*exec mp w100 5 100 Winter 25 August 28 87
*exec mp w100 5 100 Winter 26 September 8 87
*exec mp w100 5 100 Winter 27 September 18 87
*exec mp w100 5 100 Winter 28 September 28 87
*exec mp w100 5 100 Winter 29 October 8 87
*exec mp w100 5 100 Winter 30 October 18 87
*exec mp w100 5 100 Winter 31 October 28 87

*exec mp w100 5 100 Winter 47 April 8 88
*exec mp w100 5 100 Winter 48 April 18 88
*exec mp w100 5 100 Winter 49 April 28 88
*exec mp w100 5 100 Winter 50 May 8 88
*exec mp w100 5 100 Winter 51 May 18 88
*exec mp w100 5 100 Winter 52 May 28 88
*exec mp w100 5 100 Winter 53 June 8 88
*exec mp w100 5 100 Winter 54 June 18 88
*exec mp w100 5 100 Winter 55 June 28 88
*exec mp w100 5 100 Winter 56 July 8 88
*exec mp w100 5 100 Winter 57 July 18 88
*exec mp w100 5 100 Winter 58 July 28 88
*exec mp w100 5 100 Winter 59 August 8 88
*exec mp w100 5 100 Winter 60 August 18 88
*exec mp w100 5 100 Winter 61 August 28 88
*exec mp w100 5 100 Winter 62 September 8 88
*exec mp w100 5 100 Winter 63 September 18 88
*exec mp w100 5 100 Winter 64 September 28 88
*exec mp w100 5 100 Winter 65 October 8 88
*exec mp w100 5 100 Winter 66 October 18 88
*exec mp w100 5 100 Winter 67 October 28 88

*exec mp w20 1 20 Winter 11 April 8 87
*exec mp w20 1 20 Winter 12 April 18 87
*exec mp w20 1 20 Winter 13 April 28 87
*exec mp w20 1 20 Winter 14 May 8 87
*exec mp w20 1 20 Winter 15 May 18 87
*exec mp w20 1 20 Winter 16 May 28 87
*exec mp w20 1 20 Winter 17 June 8 87
*exec mp w20 1 20 Winter 18 June 18 87
*exec mp w20 1 20 Winter 19 June 28 87
*exec mp w20 1 20 Winter 20 July 8 87
*exec mp w20 1 20 Winter 21 July 18 87
*exec mp w20 1 20 Winter 22 July 28 87
*exec mp w20 1 20 Winter 23 August 8 87
*exec mp w20 1 20 Winter 24 August 18 87
*exec mp w20 1 20 Winter 25 August 28 87
*exec mp w20 1 20 Winter 26 September 8 87
*exec mp w20 1 20 Winter 27 September 18 87
*exec mp w20 1 20 Winter 28 September 28 87
*exec mp w20 1 20 Winter 29 October 8 87
*exec mp w20 1 20 Winter 30 October 18 87
*exec mp w20 1 20 Winter 31 October 28 87

*exec mp w20 1 20 Winter 47 April 8 88
*exec mp w20 1 20 Winter 48 April 18 88
*exec mp w20 1 20 Winter 49 April 28 88
*exec mp w20 1 20 Winter 50 May 8 88
*exec mp w20 1 20 Winter 51 May 18 88
*exec mp w20 1 20 Winter 52 May 28 88
*exec mp w20 1 20 Winter 53 June 8 88
*exec mp w20 1 20 Winter 54 June 18 88
*exec mp w20 1 20 Winter 55 June 28 88
*exec mp w20 1 20 Winter 56 July 8 88
*exec mp w20 1 20 Winter 57 July 18 88
*exec mp w20 1 20 Winter 58 July 28 88
*exec mp w20 1 20 Winter 59 August 8 88
*exec mp w20 1 20 Winter 60 August 18 88
*exec mp w20 1 20 Winter 61 August 28 88
*exec mp w20 1 20 Winter 62 September 8 88
*exec mp w20 1 20 Winter 63 September 18 88
*exec mp w20 1 20 Winter 64 September 28 88
*exec mp w20 1 20 Winter 65 October 8 88
*exec mp w20 1 20 Winter 66 October 18 88
*exec mp w20 1 20 Winter 67 October 28 88

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

*exec mp s100 5 100 Spring 47 April 8 88
*exec mp s100 5 100 Spring 48 April 18 88
*exec mp s100 5 100 Spring 49 April 28 88
*exec mp s100 5 100 Spring 50 May 8 88
*exec mp s100 5 100 Spring 51 May 18 88
*exec mp s100 5 100 Spring 52 May 28 88
*exec mp s100 5 100 Spring 53 June 8 88
*exec mp s100 5 100 Spring 54 June 18 88
*exec mp s100 5 100 Spring 55 June 28 88
*exec mp s100 5 100 Spring 56 July 8 88
*exec mp s100 5 100 Spring 57 July 18 88
*exec mp s100 5 100 Spring 58 July 28 88
*exec mp s100 5 100 Spring 59 August 8 88
*exec mp s100 5 100 Spring 60 August 18 88
*exec mp s100 5 100 Spring 61 August 28 88
*exec mp s100 5 100 Spring 62 September 8 88
*exec mp s100 5 100 Spring 63 September 18 88
*exec mp s100 5 100 Spring 64 September 28 88

*exec mp s20 1 20 Spring 11 April 8 87
*exec mp s20 1 20 Spring 12 April 18 87
*exec mp s20 1 20 Spring 13 April 28 87
*exec mp s20 1 20 Spring 14 May 8 87
*exec mp s20 1 20 Spring 15 May 18 87
*exec mp s20 1 20 Spring 16 May 28 87
*exec mp s20 1 20 Spring 17 June 8 87
*exec mp s20 1 20 Spring 18 June 18 87
*exec mp s20 1 20 Spring 19 June 28 87
*exec mp s20 1 20 Spring 20 July 8 87
*exec mp s20 1 20 Spring 21 July 18 87
*exec mp s20 1 20 Spring 22 July 28 87
*exec mp s20 1 20 Spring 23 August 8 87
*exec mp s20 1 20 Spring 24 August 18 87
*exec mp s20 1 20 Spring 25 August 28 87
*exec mp s20 1 20 Spring 26 September 8 87
*exec mp s20 1 20 Spring 27 September 18 87
*exec mp s20 1 20 Spring 28 September 28 87
*exec mp s20 1 20 Spring 29 October 8 87
*exec mp s20 1 20 Spring 30 October 18 87
*exec mp s20 1 20 Spring 31 October 28 87

*exec mp s20 1 20 Spring 47 April 8 88
*exec mp s20 1 20 Spring 48 April 18 88
*exec mp s20 1 20 Spring 49 April 28 88
*exec mp s20 1 20 Spring 50 May 8 88
*exec mp s20 1 20 Spring 51 May 18 88
*exec mp s20 1 20 Spring 52 May 28 88
*exec mp s20 1 20 Spring 53 June 8 88
*exec mp s20 1 20 Spring 54 June 18 88
*exec mp s20 1 20 Spring 55 June 28 88
*exec mp s20 1 20 Spring 56 July 8 88
*exec mp s20 1 20 Spring 57 July 18 88
*exec mp s20 1 20 Spring 58 July 28 88
*exec mp s20 1 20 Spring 59 August 8 88
*exec mp s20 1 20 Spring 60 August 18 88
*exec mp s20 1 20 Spring 61 August 28 88
*exec mp s20 1 20 Spring 62 September 8 88
*exec mp s20 1 20 Spring 63 September 18 88
*exec mp s20 1 20 Spring 64 September 28 88
*exec mp s20 1 20 Spring 65 October 8 88