pkg/autodiff/damp_adj.F

ac39ebdbf2 Jean*0001 #include "AUTODIFF_OPTIONS.h"
c5f8cc3f02 Gael*0002
ac39ebdbf2 Jean*0003 CBOP
c5f8cc3f02 Gael*0004 C     !ROUTINE: DAMP_ADJ
                0005 C     !INTERFACE:
                0006       SUBROUTINE DAMP_ADJ(
ac39ebdbf2 Jean*0007      I       NrIn, minRef, maxRef, timeDamp,
                0008      I       fieldRef, fieldDamp, myThid )
c5f8cc3f02 Gael*0009 C     !DESCRIPTION: \bv
                0010 C     *==========================================================*
                0011 C     | author: Gael Forget
                0012 C     *==========================================================*
ac39ebdbf2 Jean*0013 C     \ev
c5f8cc3f02 Gael*0014
                0015 C     !USES:
                0016       IMPLICIT NONE
                0017 C     === Global variables ===
                0018 #include "SIZE.h"
                0019 #include "EEPARAMS.h"
                0020 #include "PARAMS.h"
                0021
ac39ebdbf2 Jean*0022 C     !INPUT/OUTPUT PARAMETERS:
                0023 C     myThid :: my Thread Id number
c5f8cc3f02 Gael*0024       INTEGER NrIn, myThid
                0025       _RL minRef,maxRef,timeDamp
ac39ebdbf2 Jean*0026       _RL fieldRef(1-OLx:sNx+OLx,1-OLy:sNy+OLy,NrIn,nSx,nSy)
                0027       _RL fieldDamp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,NrIn,nSx,nSy)
                0028 CEOP
c5f8cc3f02 Gael*0029
                0030       RETURN
                0031       END