Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.11 by jmc, Mon Jul 11 18:59:07 2005 UTC | revision 1.12 by jmc, Mon Jun 5 18:17:22 2006 UTC | |
|---|---|---|
| # | Line 84 C we are trying to fill a valid diagnost | Line 84 C we are trying to fill a valid diagnost |
| 84 | ipt = idiag(m,n) | ipt = idiag(m,n) |
| 85 | IF ( ndiag(ipt,bi,bj).GE.0 ) THEN | IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
| 86 | ndId = jdiag(m,n) | ndId = jdiag(m,n) |
| 87 | ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) | |
| 88 | C- diagnostic is valid & active, do the filling: | C- diagnostic is valid & active, do the filling: |
| 89 | CALL DIAGNOSTICS_FILL_FIELD( | CALL DIAGNOSTICS_FILL_FIELD( |
| 90 | I inpFld, inpFld, scaleFact, 1, 0, | I inpFld, inpFld, scaleFact, 1, 0, |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |