SUBROUTINE CH_MODBGSTD 1
*
#if defined (DOC)
*-------------------------------------------------------------------
*
***s/r CH_MODBGSTD - Apply longitude variation to species background 
*                    std. dev. scaling field DAMPLIBG by applying 
*                    proportionality to the sqrt(mixing ratio).    
*
*
*Author  : Y.J. Rochon, ARQX/MSC Feb 2006
*
*          NOT COMPLETED
*
*Revisions:
*
*    -------------------
*
*    Purpose:  Apply longitude variation to species background 
*              std. dev. scaling field DAMPLIBG by applying 
*              proportionality to the sqrt(mixing ratio).
*
*    Arguments
*
*     Input:
*
*     Output:
*
*        DAMPLIBG : Modified std. dev. scaling field
*
*Comments
*
*------------------------------------------------------------------
#endif
      IMPLICIT NONE
*implicits
*
*     Global variables
*
#include "pardim.cdk"
#include "comdim.cdk"
#include "comlun.cdk"
#include "comstate.cdk"
#include "comchem.cdk"
*
      integer J1,J,JI,JJ,JK,JN
      character*4 nomv
      real*8  zmean,zlocal
C
      RETURN     ! Routine TBC
C
      if (NGEXIST(NGTR(1)).EQ.0.OR.NCMTASSI.EQ.0) RETURN
C
      DO J1=1,NCMTMAX
         IF (NGEXIST(NGTR(J1)).EQ.0) EXIT
         J=NGTR(J1)
         nomv=CGCMT(J1)
C
C        Retrieve BG field for 'nomv'
C
         do jj=1,nj
         do jk=1,nflev
C
C           Determine mean zonal values at provided lat and level
C
            zmean=1.0
C
            do ji=1,ni
C
C              Determine local seven point mean
C
               zlocal=1.0
C
C              Apply scaling factor
C
C              DAMPLIBG(JI,JK+(J1-1+4)*NFLEV,JJ)=
C     &           DAMPLIBG(JI,JK+(J1-1+4)*NFLEV,JJ)*sqrt(zlocal/zmean)
            end do
         end do
         end do
      END DO
c
      return
      end