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

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

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

revision 1.2 by jmc, Wed Aug 14 01:00:12 2013 UTC revision 1.3 by jmc, Sun Jul 23 00:38:52 2017 UTC
# Line 69  C     ndId      :: diagnostic Id number Line 69  C     ndId      :: diagnostic Id number
69        INTEGER m, n, j, k, l, bi, bj        INTEGER m, n, j, k, l, bi, bj
70        INTEGER ndId, ipt, iSp        INTEGER ndId, ipt, iSp
71        INTEGER region2fill(0:nRegions)        INTEGER region2fill(0:nRegions)
72        INTEGER arrType        INTEGER arrType, wFac
73        _RL     dummyRL(1)        _RL     dummyRL(1)
74        _RS     dummyRS(1)        _RS     dummyRS(1)
75  C ===============  C ===============
# Line 97  C we are trying to fill a valid diagnost Line 97  C we are trying to fill a valid diagnost
97          IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN          IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN
98           ipt = idiag(m,n)           ipt = idiag(m,n)
99           IF ( ndiag(ipt,bi,bj).GE.0 ) THEN           IF ( ndiag(ipt,bi,bj).GE.0 ) THEN
100             ndId = jdiag(m,n)             ndId = ABS(jdiag(m,n))
101               wFac = MIN( jdiag(m,n), 0 )
102             ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId)             ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId)
103  C-    diagnostic is valid & active, do the filling:  C-    diagnostic is valid & active, do the filling:
104             CALL DIAGNOSTICS_FILL_FIELD(             CALL DIAGNOSTICS_FILL_FIELD(
105       I              dummyRL, dummyRL, inpFld, dummyRS,       I              dummyRL, dummyRL, inpFld, dummyRS,
106       I              scaleFact, power, arrType, 0,       I              scaleFact, power, arrType, wFac,
107       I              ndId, ipt, kLev, nLevs,       I              ndId, ipt, kLev, nLevs,
108       I              bibjFlg, biArg, bjArg, myThid )       I              bibjFlg, biArg, bjArg, myThid )
109           ENDIF           ENDIF
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22