62 |
DO j=0,nRegions |
DO j=0,nRegions |
63 |
IF ( diagSt_region(j,listId).GE.1 ) THEN |
IF ( diagSt_region(j,listId).GE.1 ) THEN |
64 |
WRITE(nUnit,'(3A,I10,2(A,I4))') ' field : ', cdiag(ndId), |
WRITE(nUnit,'(3A,I10,2(A,I4))') ' field : ', cdiag(ndId), |
65 |
& ' ; Iter =', myIter,' ; region #', j, ' ; nb.Lev =', klev |
& ' ; Iter =',myIter,' ; region #',j, ' ; nb.Lev =',kdiag(ndId) |
66 |
c WRITE(nUnit,'(5A)') ' k |', |
c WRITE(nUnit,'(5A)') ' k |', |
67 |
c & ' -- Average -- |', ' -- Std.Dev -- |', |
c & ' -- Average -- |', ' -- Std.Dev -- |', |
68 |
c & ' -- min -- |', ' -- max -- |' |
c & ' -- min -- |', ' -- max -- |' |