/[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.10 by jmc, Sun Jul 10 00:57:18 2005 UTC revision 1.11 by jmc, Mon Jul 11 18:59:07 2005 UTC
# Line 7  CBOP Line 7  CBOP
7  C     !ROUTINE: DIAGNOSTICS_FILL  C     !ROUTINE: DIAGNOSTICS_FILL
8  C     !INTERFACE:  C     !INTERFACE:
9        SUBROUTINE DIAGNOSTICS_FILL(        SUBROUTINE DIAGNOSTICS_FILL(
10       I                inpFld, chardiag,       I               inpFld, 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***********************************************************************
# Line 86  C we are trying to fill a valid diagnost Line 86  C we are trying to fill a valid diagnost
86             ndId = jdiag(m,n)             ndId = jdiag(m,n)
87  C-    diagnostic is valid & active, do the filling:  C-    diagnostic is valid & active, do the filling:
88             CALL DIAGNOSTICS_FILL_FIELD(             CALL DIAGNOSTICS_FILL_FIELD(
89       I                inpFld, inpFld, scaleFact, 0,       I              inpFld, inpFld, scaleFact, 1, 0,
90       I                ndId, ipt, kLev, nLevs,       I              ndId, ipt, kLev, nLevs,
91       I                bibjFlg, biArg, bjArg, myThid )       I              bibjFlg, biArg, bjArg, myThid )
92           ENDIF           ENDIF
93          ENDIF          ENDIF
94         ENDDO         ENDDO
# Line 123  C     then add regions from other lists Line 123  C     then add regions from other lists
123             ENDDO             ENDDO
124  C-    diagnostics is valid and Active: Now do the filling  C-    diagnostics is valid and Active: Now do the filling
125             CALL DIAGSTATS_FILL(             CALL DIAGSTATS_FILL(
126       I                inpFld, inpFld, scaleFact, 0,       I              inpFld, inpFld, scaleFact, 1, 0,
127       I                ndId, iSp, region2fill, kLev, nLevs,       I              ndId, iSp, region2fill, kLev, nLevs,
128       I                bibjFlg, biArg, bjArg, myThid )       I              bibjFlg, biArg, bjArg, myThid )
129           ENDIF           ENDIF
130          ENDIF          ENDIF
131         ENDDO         ENDDO
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22