/[MITgcm]/MITgcm/pkg/autodiff/damp_adj.F
ViewVC logotype

Diff of /MITgcm/pkg/autodiff/damp_adj.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by gforget, Sat Apr 17 20:47:24 2010 UTC revision 1.2 by jmc, Sun Aug 12 18:49:09 2012 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "AUTODIFF_OPTIONS.h"
5    
6    CBOP
7  C     !ROUTINE: DAMP_ADJ  C     !ROUTINE: DAMP_ADJ
8  C     !INTERFACE:  C     !INTERFACE:
9        SUBROUTINE DAMP_ADJ(        SUBROUTINE DAMP_ADJ(
10       I    NrIn,minRef,maxRef,timeDamp,       I       NrIn, minRef, maxRef, timeDamp,
11       I    fieldRef,fieldDamp,myThid)       I       fieldRef, fieldDamp, myThid )
12  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
13  C     *==========================================================*  C     *==========================================================*
14  C     | author: Gael Forget  C     | author: Gael Forget
15  C     *==========================================================*  C     *==========================================================*
16    C     \ev
17    
18  C     !USES:  C     !USES:
19        IMPLICIT NONE        IMPLICIT NONE
# Line 19  C     === Global variables === Line 21  C     === Global variables ===
21  #include "SIZE.h"  #include "SIZE.h"
22  #include "EEPARAMS.h"  #include "EEPARAMS.h"
23  #include "PARAMS.h"  #include "PARAMS.h"
 #include "GRID.h"  
24    
25  C     == Routine arguments ==  C     !INPUT/OUTPUT PARAMETERS:
26  C     myThid - Thread number for this instance of the routine.  C     myThid :: my Thread Id number
27        INTEGER NrIn, myThid        INTEGER NrIn, myThid
       _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)  
28        _RL minRef,maxRef,timeDamp        _RL minRef,maxRef,timeDamp
29        integer bi,bj,i,j,k        _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    
33        RETURN        RETURN
34        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22