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

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

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

revision 1.1 by jmc, Sun Jul 10 00:58:11 2005 UTC revision 1.2 by jmc, Mon Jul 11 18:59:07 2005 UTC
# Line 7  CBOP Line 7  CBOP
7  C     !ROUTINE: DIAGNOSTICS_SCALE_FILL  C     !ROUTINE: DIAGNOSTICS_SCALE_FILL
8  C     !INTERFACE:  C     !INTERFACE:
9        SUBROUTINE DIAGNOSTICS_SCALE_FILL(        SUBROUTINE DIAGNOSTICS_SCALE_FILL(
10       I                inpFld, scaleFact, chardiag,       I               inpFld, scaleFact, power, chardiag,
11       I                kLev, nLevs, bibjFlg, biArg, bjArg, myThid)       I               kLev, nLevs, bibjFlg, biArg, bjArg, myThid )
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 field
16  C           using a scaling factor  C           using a scaling factor & square option (power=2)
17  C***********************************************************************  C***********************************************************************
18  C     !USES:  C     !USES:
19        IMPLICIT NONE        IMPLICIT NONE
# Line 30  C  Arguments Description Line 30  C  Arguments Description
30  C  ----------------------  C  ----------------------
31  C     inpFld    :: Field to increment diagnostics array  C     inpFld    :: Field to increment diagnostics array
32  C     scaleFact :: scaling factor  C     scaleFact :: scaling factor
33    C     power     :: option to fill-in with the field square (power=2)
34  C     chardiag  :: Character expression for diag to fill  C     chardiag  :: Character expression for diag to fill
35  C     kLev      :: Integer flag for vertical levels:  C     kLev      :: Integer flag for vertical levels:
36  C                  > 0 (any integer): WHICH single level to increment in qdiag.  C                  > 0 (any integer): WHICH single level to increment in qdiag.
# Line 57  C                        or there will b Line 58  C                        or there will b
58  C***********************************************************************  C***********************************************************************
59        _RL     inpFld(*)        _RL     inpFld(*)
60        _RL     scaleFact        _RL     scaleFact
61          INTEGER power
62        CHARACTER*8 chardiag        CHARACTER*8 chardiag
63        INTEGER kLev, nLevs, bibjFlg, biArg, bjArg        INTEGER kLev, nLevs, bibjFlg, biArg, bjArg
64        INTEGER myThid        INTEGER myThid
# Line 87  C we are trying to fill a valid diagnost Line 89  C we are trying to fill a valid diagnost
89             ndId = jdiag(m,n)             ndId = jdiag(m,n)
90  C-    diagnostic is valid & active, do the filling:  C-    diagnostic is valid & active, do the filling:
91             CALL DIAGNOSTICS_FILL_FIELD(             CALL DIAGNOSTICS_FILL_FIELD(
92       I                inpFld, inpFld, scaleFact, 0,       I              inpFld, inpFld, scaleFact, power, 0,
93       I                ndId, ipt, kLev, nLevs,       I              ndId, ipt, kLev, nLevs,
94       I                bibjFlg, biArg, bjArg, myThid )       I              bibjFlg, biArg, bjArg, myThid )
95           ENDIF           ENDIF
96          ENDIF          ENDIF
97         ENDDO         ENDDO
# Line 124  C     then add regions from other lists Line 126  C     then add regions from other lists
126             ENDDO             ENDDO
127  C-    diagnostics is valid and Active: Now do the filling  C-    diagnostics is valid and Active: Now do the filling
128             CALL DIAGSTATS_FILL(             CALL DIAGSTATS_FILL(
129       I                inpFld, inpFld, scaleFact, 0,       I              inpFld, inpFld, scaleFact, power, 0,
130       I                ndId, iSp, region2fill, kLev, nLevs,       I              ndId, iSp, region2fill, kLev, nLevs,
131       I                bibjFlg, biArg, bjArg, myThid )       I              bibjFlg, biArg, bjArg, myThid )
132           ENDIF           ENDIF
133          ENDIF          ENDIF
134         ENDDO         ENDDO
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22