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

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

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

revision 1.5 by jmc, Tue Feb 5 15:13:01 2008 UTC revision 1.6 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           using a scaling factor & square option (power=2)  C           using a scaling factor & square option (power=2)
17  C           and using a fraction-weight (assumed to be the counter-mate  C           and using a RL fraction-weight (assumed to be the
18  C           of the current diagnostics)  C           counter-mate of the current diagnostics)
19  C   Note: 1) fraction-weight has to correspond to the diagnostics  C   Note: 1) fraction-weight has to correspond to the diagnostics
20  C            counter-mate (filled independently with a call to  C            counter-mate (filled independently with a call to
21  C             DIAGNOSTICS_FILL)  C             DIAGNOSTICS_FILL)
# Line 75  CEOP Line 75  CEOP
75    
76  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
77  C     ndId      :: diagnostic Id number (in available diagnostics list)  C     ndId      :: diagnostic Id number (in available diagnostics list)
 C ===============  
78        INTEGER m, n, j, k, l, bi, bj        INTEGER m, n, j, k, l, bi, bj
79        INTEGER ndId, ipt, iSp        INTEGER ndId, ipt, iSp
80        INTEGER region2fill(0:nRegions)        INTEGER region2fill(0:nRegions)
81        INTEGER mate, nLevFract        INTEGER mate, nLevFract
82        CHARACTER*10 gcode        CHARACTER*10 gcode
83        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
84          INTEGER arrType
85          _RS     dummyRS(1)
86    C ===============
87    
88          arrType = 0
89        IF ( bibjFlg.EQ.0 ) THEN        IF ( bibjFlg.EQ.0 ) THEN
90          bi = myBxLo(myThid)          bi = myBxLo(myThid)
91          bj = myByLo(myThid)          bj = myByLo(myThid)
# Line 118  C-    set the nb of levels of fraction-w Line 121  C-    set the nb of levels of fraction-w
121             nLevFract = MIN(nLevs,kdiag(mate))             nLevFract = MIN(nLevs,kdiag(mate))
122  C-    diagnostic is valid & active, has a counter-mate, do the filling:  C-    diagnostic is valid & active, has a counter-mate, do the filling:
123             CALL DIAGNOSTICS_FILL_FIELD(             CALL DIAGNOSTICS_FILL_FIELD(
124       I              inpFld, fractFld, scaleFact, power, nLevFract,       I              inpFld, fractFld, dummyRS, dummyRS,
125         I              scaleFact, power, arrType, nLevFract,
126       I              ndId, ipt, kLev, nLevs,       I              ndId, ipt, kLev, nLevs,
127       I              bibjFlg, biArg, bjArg, myThid )       I              bibjFlg, biArg, bjArg, myThid )
128           ENDIF           ENDIF
# Line 172  C     then add regions from other lists Line 176  C     then add regions from other lists
176             ENDDO             ENDDO
177  C-    diagnostics is valid and Active, has a counter mate: Now do the filling  C-    diagnostics is valid and Active, has a counter mate: Now do the filling
178             CALL DIAGSTATS_FILL(             CALL DIAGSTATS_FILL(
179       I              inpFld, fractFld, scaleFact, power, nLevFract,       I              inpFld, fractFld,
180    #ifndef REAL4_IS_SLOW
181         I              dummyRS, dummyRS,
182    #endif
183         I              scaleFact, power, arrType, nLevFract,
184       I              ndId, iSp, region2fill, kLev, nLevs,       I              ndId, iSp, region2fill, kLev, nLevs,
185       I              bibjFlg, biArg, bjArg, myThid )       I              bibjFlg, biArg, bjArg, myThid )
186           ENDIF           ENDIF
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22