C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/bling/pkg/Attic/bling_set_control.F,v 1.2 2014/06/05 21:15:17 mmazloff dead $
C $Name:  $

#include "BLING_OPTIONS.h"

CBOP
      subroutine BLING_SET_CONTROL( myThid )

C     =================================================================
C     | subroutine bling_set_control
C     | o Not implemented yet
C     =================================================================

      implicit none
      
C     == GLobal variables ==
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "BLING_VARS.h"
#include "BLING_CTRL.h"
#ifdef ALLOW_CTRL
# include "CTRL_SIZE.h"
# include "ctrl.h"
# include "ctrl_dummy.h"
# include "optim.h"
#endif

C     == Routine arguments ==
      INTEGER myThid

#ifdef ALLOW_CTRL

C     == Local arguments ==
      INTEGER bi, bj
      INTEGER i, j
      INTEGER il
      LOGICAL doglobalread
      LOGICAL ladinit
      LOGICAL equal
      CHARACTER*( 80)   fnamegen2d
      _RL fac
c     == external ==
      INTEGER  ILNBLNK
      EXTERNAL ILNBLNK

CEOP

      doglobalread = .FALSE.
      ladinit      = .FALSE.

      equal = .TRUE.

      IF ( equal ) THEN
        fac = 1. _d 0
      ELSE
        fac = 0. _d 0
      ENDIF

#ifdef ALLOW_BLING_CONTROL

      DO bj=myByLo(myThid),myByHi(myThid)
       DO bi=myBxLo(myThid),myBxHi(myThid)
         DO j = 1, sNy
          DO i = 1, sNx
c            tmp3Dvar(i,j,bi,bj) = tmp3Dvar(i,j,bi,bj)*(1. _d 0 +xx_BLING(1))
          ENDDO
         ENDDO
       ENDDO
      ENDDO

c      _EXCH_XY_RL( tmp3Dvar, myThid )

c      tmp1Dvar       = tmp1Dvar       * ( 1. _d 0 + xx_BLING(2) )

#endif /* ALLOW_BLING_CONTROL */

#endif /* ALLOW_CTRL */


      RETURN
      END