Skip to content

Commit afe9e14

Browse files
authored
Merge pull request #133 from victorkemp/rotated-coordinates-sol5
fixed rotated coordinate system bug
2 parents e768138 + 4f2383b commit afe9e14

1 file changed

Lines changed: 1 addition & 0 deletions

File tree

Source/LK9/L92/ELMDIS.f90

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -172,6 +172,7 @@ SUBROUTINE ELMDIS
172172
CALL MATMULT_FFF ( T0G, DUM1, NROWA, NCOLA, NCOLB, DUM2 )
173173
CALL MATPUT ( DUM2, 6*MELGP, 1, PROW, PCOL, NROW, NCOL, UEB )
174174
ENDDO
175+
I2 = I2 + NUM_COMPS
175176
ELSE ! If global is basic, get UEB terms directly from UEG
176177
CALL GET_GRID_NUM_COMPS ( AGRID(I), NUM_COMPS, SUBR_NAME )
177178
DO J=1,NUM_COMPS

0 commit comments

Comments
 (0)