Skip to content

Commit 184f9be

Browse files
jjokellajjokella
committed
bugfix: LST-DA missing end do 
1 parent a9606e7 commit 184f9be

2 files changed

Lines changed: 2 additions & 0 deletions

File tree

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

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -385,6 +385,7 @@ subroutine define_clm_statevec(mype)
385385
state_pdaf2clm_p_p(cc+(1+nlevgrnd)*clm_varsize) = p !TV
386386
state_pdaf2clm_c_p(cc+(1+nlevgrnd)*clm_varsize) = patch%column(p) !TV
387387
state_pdaf2clm_j_p(cc+(1+nlevgrnd)*clm_varsize) = 1
388+
end do
388389

389390
endif
390391

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

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -385,6 +385,7 @@ subroutine define_clm_statevec(mype)
385385
state_pdaf2clm_p_p(cc+(1+nlevgrnd)*clm_varsize) = p !TV
386386
state_pdaf2clm_c_p(cc+(1+nlevgrnd)*clm_varsize) = patch%column(p) !TV
387387
state_pdaf2clm_j_p(cc+(1+nlevgrnd)*clm_varsize) = 1
388+
end do
388389

389390
endif
390391

0 commit comments

Comments
 (0)