Parent Directory | Revision Log | Revision Graph | Patch
revision 1.5 by edhill, Wed Jul 6 14:58:11 2005 UTC | revision 1.6 by jmc, Sun Jul 10 00:52:12 2005 UTC | |
---|---|---|
# | Line 86 C ----------------------------- | Line 86 C ----------------------------- |
86 | I ndId, mate, iSp, iSm, myThid ) | I ndId, mate, iSp, iSm, myThid ) |
87 | ||
88 | C- Check for empty Diag (= not filled or using empty mask) | C- Check for empty Diag (= not filled or using empty mask) |
89 | IF ( statGlob(0,0,j).EQ.0. ) THEN | IF ( tmp_Glob(0,0).EQ.0. ) THEN |
90 | _BEGIN_MASTER( myThid ) | _BEGIN_MASTER( myThid ) |
91 | WRITE(msgBuf,'(A,I10,A,I3)') | WRITE(msgBuf,'(A,I10,A,I3)') |
92 | & '- WARNING - from DIAGSTATS_OUTPUT at iter=', myIter, | & '- WARNING - from DIAGSTATS_OUTPUT at iter=', myIter, |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |