Skip to content

Commit 2c06239

Browse files
committed
LSTDA: make observation indexing clmupdate_T independent
this is the same (TSKIN as first part of the state vector) for each state vector variant of LSTDA
1 parent 2b707f9 commit 2c06239

File tree

2 files changed

+2
-2
lines changed

2 files changed

+2
-2
lines changed

interface/framework/init_dim_obs_f_pdaf.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1015,7 +1015,7 @@ SUBROUTINE init_dim_obs_f_pdaf(step, dim_obs_f)
10151015
end do
10161016
end do
10171017

1018-
else if(clmupdate_T==1 .or. clmupdate_T==2 .or. clmupdate_T==3) then
1018+
else if(clmupdate_T/=0) then
10191019
#ifdef CLMFIVE
10201020
! patch loop
10211021
do g = begg,endg

interface/framework/init_dim_obs_pdaf.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1009,7 +1009,7 @@ SUBROUTINE init_dim_obs_pdaf(step, dim_obs_p)
10091009
end do
10101010
end do
10111011

1012-
else if(clmupdate_T==1 .or. clmupdate_T==2 .or. clmupdate_T==3) then
1012+
else if(clmupdate_T/=0) then
10131013
#ifdef CLMFIVE
10141014
! patch loop
10151015
do g = begg,endg

0 commit comments

Comments
 (0)