Skip to content

Commit 421056d

Browse files
committed
bugfix: remove loop-name col
Error message: ``` eclm/enkf_clm_mod_5.F90(264): error #6401: The attributes of this name conflict with those made accessible by a USE statement. [COL] ```
1 parent a3e8c02 commit 421056d

File tree

2 files changed

+4
-4
lines changed

2 files changed

+4
-4
lines changed

bldsva/intf_DA/pdaf/model/clm5_0/enkf_clm_mod_5.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -256,14 +256,14 @@ subroutine define_clm_statevec(mype)
256256
do cc=1,clm_statevecsize
257257

258258
lay: do i=1,nlevsoi
259-
col: do c=clm_begc,clm_endc
259+
do c=clm_begc,clm_endc
260260
if (state_clm2pdaf_p(c,i) == cc) then
261261
! Set column index and then exit loop
262262
state_pdaf2clm_c_p(cc) = c
263263
state_pdaf2clm_j_p(cc) = i
264264
exit lay
265265
end if
266-
end do col
266+
end do
267267
end do lay
268268

269269
#ifdef PDAF_DEBUG

bldsva/intf_DA/pdaf/model/eclm/enkf_clm_mod_5.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -256,14 +256,14 @@ subroutine define_clm_statevec(mype)
256256
do cc=1,clm_statevecsize
257257

258258
lay: do i=1,nlevsoi
259-
col: do c=clm_begc,clm_endc
259+
do c=clm_begc,clm_endc
260260
if (state_clm2pdaf_p(c,i) == cc) then
261261
! Set column index and then exit loop
262262
state_pdaf2clm_c_p(cc) = c
263263
state_pdaf2clm_j_p(cc) = i
264264
exit lay
265265
end if
266-
end do col
266+
end do
267267
end do lay
268268

269269
#ifdef PDAF_DEBUG

0 commit comments

Comments
 (0)