Parent Directory | Revision Log | Revision Graph | Patch
revision 1.10 by edhill, Tue Dec 7 22:14:35 2004 UTC | revision 1.11 by dimitri, Tue Dec 7 22:43:05 2004 UTC | |
---|---|---|
# | Line 62 c == end of interface == | Line 62 c == end of interface == |
62 | do i = imin,imax | do i = imin,imax |
63 | c | c |
64 | c Heat flux. | c Heat flux. |
65 | if ( ABS(hflux(i,j,bi,bj)) .GT. 1000. .AND. | if ( ABS(hflux(i,j,bi,bj)) .GT. 1100. .AND. |
66 | & hFacC(i,j,1,bi,bj) .NE. 0. ) then | & hFacC(i,j,1,bi,bj) .NE. 0. ) then |
67 | print *, 'EXF WARNING: hflux out of range for i,j= ', | print *, 'EXF WARNING: hflux out of range for i,j= ', |
68 | & i, j, hflux(i,j,bi,bj) | & i, j, hflux(i,j,bi,bj) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |