pkg/autodiff/damp_adj.F

C $Header: /u/gcmpack/MITgcm/pkg/autodiff/damp_adj.F,v 1.1 2010/04/17 20:47:24 gforget Exp $
C $Name:  $

#include "AUTODIFF_OPTIONS.h"

CBOP
C     !ROUTINE: DAMP_ADJ
C     !INTERFACE:
      SUBROUTINE DAMP_ADJ(
     I       NrIn, minRef, maxRef, timeDamp,
     I       fieldRef, fieldDamp, myThid )
C     !DESCRIPTION: \bv
C     *==========================================================*
C     | author: Gael Forget
C     *==========================================================*
C     \ev

C     !USES:
      IMPLICIT NONE
C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

C     !INPUT/OUTPUT PARAMETERS:
C     myThid :: my Thread Id number
      INTEGER NrIn, myThid
      _RL minRef,maxRef,timeDamp
      _RL fieldRef(1-OLx:sNx+OLx,1-OLy:sNy+OLy,NrIn,nSx,nSy)
      _RL fieldDamp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,NrIn,nSx,nSy)
CEOP

      RETURN
      END
1	jmc	1.2	C $Header: /u/gcmpack/MITgcm/pkg/autodiff/damp_adj.F,v 1.1 2010/04/17 20:47:24 gforget Exp $
2	gforget	1.1	C $Name: $
3
4	jmc	1.2	#include "AUTODIFF_OPTIONS.h"
5	gforget	1.1
6	jmc	1.2	CBOP
7	gforget	1.1	C !ROUTINE: DAMP_ADJ
8			C !INTERFACE:
9			SUBROUTINE DAMP_ADJ(
10	jmc	1.2	I NrIn, minRef, maxRef, timeDamp,
11			I fieldRef, fieldDamp, myThid )
12	gforget	1.1	C !DESCRIPTION: \bv
13			C ==========================================================
14			C \| author: Gael Forget
15			C ==========================================================
16	jmc	1.2	C \ev
17	gforget	1.1
18			C !USES:
19			IMPLICIT NONE
20			C === Global variables ===
21			#include "SIZE.h"
22			#include "EEPARAMS.h"
23			#include "PARAMS.h"
24
25	jmc	1.2	C !INPUT/OUTPUT PARAMETERS:
26			C myThid :: my Thread Id number
27	gforget	1.1	INTEGER NrIn, myThid
28			_RL minRef,maxRef,timeDamp
29	jmc	1.2	_RL fieldRef(1-OLx:sNx+OLx,1-OLy:sNy+OLy,NrIn,nSx,nSy)
30			_RL fieldDamp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,NrIn,nSx,nSy)
31			CEOP
32	gforget	1.1
33			RETURN
34			END