Skip to content

Commit c7673ab

Browse files
committed
bugfix: setting clm_varsize
1 parent e380983 commit c7673ab

2 files changed

Lines changed: 2 additions & 2 deletions

File tree

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

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -152,7 +152,7 @@ subroutine define_clm_statevec(mype)
152152

153153
! Set `clm_varsize`, even though it is currently not used
154154
! for `clmupdate_swc.eq.1`
155-
clm_varsize = clm_statevecsize
155+
clm_varsize = cc
156156
clm_statevecsize = cc
157157

158158
IF (allocated(state_pdaf2clm_c_p)) deallocate(state_pdaf2clm_c_p)

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

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -152,7 +152,7 @@ subroutine define_clm_statevec(mype)
152152

153153
! Set `clm_varsize`, even though it is currently not used
154154
! for `clmupdate_swc.eq.1`
155-
clm_varsize = clm_statevecsize
155+
clm_varsize = cc
156156
clm_statevecsize = cc
157157

158158
IF (allocated(state_pdaf2clm_c_p)) deallocate(state_pdaf2clm_c_p)

0 commit comments

Comments
 (0)