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

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

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

Revision 1.4 - (hide annotations) (download)
Fri Jul 25 16:34:43 2008 UTC (15 years, 9 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint62, checkpoint62c, checkpoint62b, checkpoint62a, checkpoint62d, checkpoint61f, checkpoint61g, checkpoint61d, checkpoint61e, checkpoint61b, checkpoint61c, checkpoint61a, checkpoint61n, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint61q, checkpoint61z, checkpoint61x, checkpoint61y
Changes since 1.3: +13 -6 lines 
fix declarations (= the major part of those S/R)
1 jmc 1.4 C $Header: /u/gcmpack/MITgcm/pkg/autodiff/zero_adj.F,v 1.3 2008/06/11 18:29:11 gforget Exp $
2 jmc 1.2 C $Name: $
3 gforget 1.1
4     #include "CPP_OPTIONS.h"
5    
6 gforget 1.3 C !ROUTINE: ZERO_ADJ_LOC
7 gforget 1.1 C !INTERFACE:
8 gforget 1.3 SUBROUTINE ZERO_ADJ_LOC(
9     I NrIn,myThid,FieldFwd)
10 gforget 1.1 C !DESCRIPTION: \bv
11     C *==========================================================*
12 gforget 1.3 C | o zero out a local (no nsx,nsy dims.) adjoint field
13 gforget 1.1 C | ... nothing happens in forward mode
14     C | author: Gael Forget
15     C *==========================================================*
16    
17 jmc 1.4 C !USES:
18     IMPLICIT NONE
19     C === Global variables ===
20 gforget 1.1 #include "SIZE.h"
21     #include "EEPARAMS.h"
22     #include "PARAMS.h"
23    
24     C == Routine arguments ==
25     C myThid - Thread number for this instance of the routine.
26 jmc 1.4 INTEGER NrIn, myThid
27 gforget 1.3 _RL FieldFwd(1-Olx:sNx+Olx,1-Oly:sNy+Oly,NrIn)
28 gforget 1.1
29 jmc 1.4 RETURN
30     END
31 gforget 1.1
32    
33 gforget 1.3 C !ROUTINE: ZERO_ADJ
34 gforget 1.1 C !INTERFACE:
35 gforget 1.3 SUBROUTINE ZERO_ADJ(
36     I NrIn,myThid,FieldFwd)
37 gforget 1.1 C !DESCRIPTION: \bv
38     C *==========================================================*
39 gforget 1.3 C | o zero out a full (incl. nsx,nsy dims.) adjoint field
40 gforget 1.1 C | ... nothing happens in forward mode
41     C | author: Gael Forget
42     C *==========================================================*
43    
44 jmc 1.4 C !USES:
45     IMPLICIT NONE
46     C === Global variables ===
47 gforget 1.1 #include "SIZE.h"
48     #include "EEPARAMS.h"
49     #include "PARAMS.h"
50    
51     C == Routine arguments ==
52     C myThid - Thread number for this instance of the routine.
53 jmc 1.4 INTEGER NrIn, myThid
54 gforget 1.3 _RL FieldFwd(1-Olx:sNx+Olx,1-Oly:sNy+Oly,NrIn,nSx,nSy)
55 gforget 1.1
56 jmc 1.4 RETURN
57     END
  ViewVC Help
Powered by ViewVC 1.1.22