Skip to content

Commit c35785d

Browse files
Fixes an array index in scream coupler F90 file
1 parent fc26235 commit c35785d

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

components/eamxx/src/mct_coupling/scream_cpl_indices.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -111,8 +111,8 @@ subroutine scream_set_cpl_indices (x2a, a2x)
111111
import_cpl_indices(15) = mct_avect_indexra(x2a,'Sf_ofrac')
112112
import_cpl_indices(16) = mct_avect_indexra(x2a,'Sf_lfrac')
113113
import_cpl_indices(17) = mct_avect_indexra(x2a,'Sf_ifrac')
114-
import_cpl_indices(19) = mct_avect_indexra(x2a,'Sl_fv')
115-
import_cpl_indices(18) = mct_avect_indexra(x2a,'Sl_ram1')
114+
import_cpl_indices(18) = mct_avect_indexra(x2a,'Sl_fv')
115+
import_cpl_indices(19) = mct_avect_indexra(x2a,'Sl_ram1')
116116

117117
! Vector components
118118
import_vector_components(11) = 0

0 commit comments

Comments
 (0)