Parent Directory | Revision Log | Revision Graph | Patch
revision 1.1 by jmc, Sat May 30 21:18:59 2009 UTC | revision 1.2 by jmc, Sun Jun 28 01:00:23 2009 UTC | |
---|---|---|
# | Line 117 C this source tile Id "soT" | Line 117 C this source tile Id "soT" |
117 | sNb = oNb | sNb = oNb |
118 | DO j=1,sizeBj | DO j=1,sizeBj |
119 | DO i=1,sizeBi | DO i=1,sizeBi |
120 | IF ( W2_myTileList(i).EQ.soT ) THEN | IF ( W2_myTileList(i,j).EQ.soT ) THEN |
121 | sBi = i | sBi = i |
122 | sBj = j | sBj = j |
123 | ENDIF | ENDIF |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |