!-------------------------------------- LICENCE BEGIN ------------------------------------
!Environment Canada - Atmospheric Science and Technology License/Disclaimer, 
!                     version 3; Last Modified: May 7, 2008.
!This is free but copyrighted software; you can use/redistribute/modify it under the terms 
!of the Environment Canada - Atmospheric Science and Technology License/Disclaimer 
!version 3 or (at your option) any later version that should be found at: 
!http://collaboration.cmc.ec.gc.ca/science/rpn.comm/license.html 
!
!This software is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; 
!without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 
!See the above mentioned License/Disclaimer for more details.
!You should have received a copy of the License/Disclaimer along with this software; 
!if not, you can write to: EC-RPN COMM Group, 2121 TransCanada, suite 500, Dorval (Quebec), 
!CANADA, H9P 1J3; or send e-mail to service.rpn@ec.gc.ca
!-------------------------------------- LICENCE END --------------------------------------
***s/r set_rhs - initialization of the VMM common for right-hand side of
*               equations
*
#define SPY_VMM_CREATE spy_vmm_create
#include "model_macros_f.h"
*

      subroutine set_rhs 1
*
      implicit none
*
*author
*     Gravel/Roch   - rpn - august 1993
*
*revision
* v2_00 - Desgagne/Lee   - initial MPI version (from setrhs v1_03)
* v2_21 - J. P. Toviessi - rename some model output variable
*
*object
*     See above id.
*	
*arguments
*	none
*
*implicits
#include "glb_ld.cdk"
#include "lun.cdk"
#include "rhsc.cdk"
*
*modules
      integer vmmcre
      external vmmcre
**
      character*80 attri_S
*
*     ---------------------------------------------------------------
*
      integer i
*     integer pnerr
*
       if (Lun_out.gt.0) write(Lun_out,1000)
*
*       names and keys commons initialization
*
      COMMON_INIT(rhsc,-100)
*
*C       1.    Create right hand sides of the equations
*              ----------------------------------------
*
*	Assign the names of the variables
* 
      VMM_NAM(ru   )= 'MRU'
      VMM_NAM(rv   )= 'MRV'
      VMM_NAM(rw   )= 'MRW'
      VMM_NAM(rcn  )= 'RCN'
      VMM_NAM(rth  )= 'RTH'
      VMM_NAM(rvv  )= 'RVV'
*
      VMM_NAM(rd   )= 'MRRD'
      VMM_NAM(r1   )= 'MR1'
      VMM_NAM(r3   )= 'MR3'
      VMM_NAM(r3p  )= 'MR3P'
      VMM_NAM(rhell)= 'RHLL'
      VMM_NAM(rheln)= 'RHLN'
*
      VMM_NAM(ruw1 )= 'RUW1'
      VMM_NAM(ruw2 )= 'RUW2'
      VMM_NAM(rvw1 )= 'RVW1'
      VMM_NAM(rvw2 )= 'RVW2'
*
*       Set the attributes of the variables
*
      attri_S='SAVE=Y,CL=5,W=5,INIT=R'
*
      VMM_CREATE(ru   , LARRAY3D, 1, attri_S)
      VMM_CREATE(rv   , LARRAY3D, 1, attri_S)
      VMM_CREATE(rw   , LARRAY3D, 1, attri_S)
      VMM_CREATE(rcn  , LARRAY3D, 1, attri_S)
      VMM_CREATE(rth  , LARRAY3D, 1, attri_S)
      VMM_CREATE(rvv  , LARRAY3D, 1, attri_S)
*
      VMM_CREATE(rd   , LARRAY3D, 1, attri_S)
      VMM_CREATE(r1   , LARRAY3D, 1, attri_S)
      VMM_CREATE(r3   , LARRAY3D, 1, attri_S)
      VMM_CREATE(r3p  , LARRAY3D, 1, attri_S)
      VMM_CREATE(rhell, LARRAY3D, 1, attri_S)
      VMM_CREATE(rheln, LARRAY3D, 1, attri_S)
*
      VMM_CREATE(ruw1 , LARRAY3D, 1, attri_S)
      VMM_CREATE(ruw2 , LARRAY3D, 1, attri_S)
      VMM_CREATE(rvw1 , LARRAY3D, 1, attri_S)
      VMM_CREATE(rvw2 , LARRAY3D, 1, attri_S)
*
 1000 format(
     +/,'INITIALIZATION OF RIGHT-HAND SIDE COMDECK (S/R SET_RHS)',
     +/,'=======================================================')
*
*     ---------------------------------------------------------------
*
      return
      end