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

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

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

Revision 1.1 - (hide annotations) (download)
Sat Apr 17 20:47:24 2010 UTC (14 years, 1 month ago) by gforget
Branch: MAIN
CVS Tags: checkpoint63p, checkpoint63q, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63g, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint63, checkpoint62g, checkpoint62f, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint62s, checkpoint62r, checkpoint62q, checkpoint62p, checkpoint62w, checkpoint62v, checkpoint62u, checkpoint62t, checkpoint62z, checkpoint62y, checkpoint62x 
like zero_adj, but less agressively, the damp_adj code
allows for attenuation of a specific adjoint variable.
This sort of code can be useful to accomodate instable parts
of the ajoint (e.g. from gmredi, kpp, or seaice).
1 gforget 1.1 C $Header: /u/gcmpack/MITgcm/pkg/autodiff/damp_adj.F,v 1.4 2010/04/17 00:00:00 gforget Exp $
2     C $Name: $
3    
4     #include "CPP_OPTIONS.h"
5    
6     C !ROUTINE: DAMP_ADJ
7     C !INTERFACE:
8     SUBROUTINE DAMP_ADJ(
9     I NrIn,minRef,maxRef,timeDamp,
10     I fieldRef,fieldDamp,myThid)
11     C !DESCRIPTION: \bv
12     C *==========================================================*
13     C | author: Gael Forget
14     C *==========================================================*
15    
16     C !USES:
17     IMPLICIT NONE
18     C === Global variables ===
19     #include "SIZE.h"
20     #include "EEPARAMS.h"
21     #include "PARAMS.h"
22     #include "GRID.h"
23    
24     C == Routine arguments ==
25     C myThid - Thread number for this instance of the routine.
26     INTEGER NrIn, myThid
27     _RL fieldRef(1-Olx:sNx+Olx,1-Oly:sNy+Oly,NrIn,nSx,nSy)
28     _RL fieldDamp(1-Olx:sNx+Olx,1-Oly:sNy+Oly,NrIn,nSx,nSy)
29     _RL minRef,maxRef,timeDamp
30     integer bi,bj,i,j,k
31    
32     RETURN
33     END
  ViewVC Help
Powered by ViewVC 1.1.22