/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_fill.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_fill.F

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

revision 1.13 by jmc, Mon Jul 31 16:26:32 2006 UTC revision 1.14 by jmc, Thu Sep 3 20:46:12 2009 UTC
# Line 12  C     !INTERFACE: Line 12  C     !INTERFACE:
12    
13  C     !DESCRIPTION:  C     !DESCRIPTION:
14  C***********************************************************************  C***********************************************************************
15  C   Wrapper routine to increment the diagnostics arrays with a field  C   Wrapper routine to increment the diagnostics arrays with a RL field
16  C***********************************************************************  C***********************************************************************
17  C     !USES:  C     !USES:
18        IMPLICIT NONE        IMPLICIT NONE
# Line 61  CEOP Line 61  CEOP
61    
62  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
63  C     ndId      :: diagnostic Id number (in available diagnostics list)  C     ndId      :: diagnostic Id number (in available diagnostics list)
 C ===============  
64        INTEGER m, n, j, k, l, bi, bj        INTEGER m, n, j, k, l, bi, bj
65        INTEGER ndId, ipt, iSp        INTEGER ndId, ipt, iSp
66        INTEGER region2fill(0:nRegions)        INTEGER region2fill(0:nRegions)
67          INTEGER arrType
68        _RL     scaleFact        _RL     scaleFact
69          _RL     dummyRL(1)
70          _RS     dummyRS(1)
71    C ===============
72    
73          arrType = 0
74        scaleFact = 1. _d 0        scaleFact = 1. _d 0
75        IF ( bibjFlg.EQ.0 ) THEN        IF ( bibjFlg.EQ.0 ) THEN
76          bi = myBxLo(myThid)          bi = myBxLo(myThid)
# Line 87  C we are trying to fill a valid diagnost Line 91  C we are trying to fill a valid diagnost
91             ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId)             ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId)
92  C-    diagnostic is valid & active, do the filling:  C-    diagnostic is valid & active, do the filling:
93             CALL DIAGNOSTICS_FILL_FIELD(             CALL DIAGNOSTICS_FILL_FIELD(
94       I              inpFld, inpFld, scaleFact, 1, 0,       I              inpFld, dummyRL, dummyRS, dummyRS,
95         I              scaleFact, 1, arrType, 0,
96       I              ndId, ipt, kLev, nLevs,       I              ndId, ipt, kLev, nLevs,
97       I              bibjFlg, biArg, bjArg, myThid )       I              bibjFlg, biArg, bjArg, myThid )
98           ENDIF           ENDIF
# Line 124  C     then add regions from other lists Line 129  C     then add regions from other lists
129             ENDDO             ENDDO
130  C-    diagnostics is valid and Active: Now do the filling  C-    diagnostics is valid and Active: Now do the filling
131             CALL DIAGSTATS_FILL(             CALL DIAGSTATS_FILL(
132       I              inpFld, inpFld, scaleFact, 1, 0,       I              inpFld, dummyRL,
133    #ifndef REAL4_IS_SLOW
134         I              dummyRS, dummyRS,
135    #endif
136         I              scaleFact, 1, arrType, 0,
137       I              ndId, iSp, region2fill, kLev, nLevs,       I              ndId, iSp, region2fill, kLev, nLevs,
138       I              bibjFlg, biArg, bjArg, myThid )       I              bibjFlg, biArg, bjArg, myThid )
139           ENDIF           ENDIF
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22