Skip to content

Commit

Permalink
add debug output in lnd_handle_resume
Browse files Browse the repository at this point in the history
because of error

```
forrtl: severe (408): fort: (3): Subscript #1 of the array LND_RESUME
has value 0 which is less than the lower bound of 1
```
  • Loading branch information
jjokella committed Jul 25, 2024
1 parent c8f9f07 commit d9e43a9
Showing 1 changed file with 4 additions and 0 deletions.
4 changes: 4 additions & 0 deletions src/clm5/cpl/lnd_comp_mct.F90
Original file line number Diff line number Diff line change
Expand Up @@ -710,6 +710,7 @@ subroutine lnd_handle_resume( infodata )
use seq_comm_mct , only : num_inst_lnd
use clm_varctl , only : iulog
use clm_varctl , only : inst_index
use spmdMod , only: iam
implicit none
! !ARGUMENTS:
type(seq_infodata_type), intent(IN) :: infodata ! CESM driver level info data
Expand All @@ -720,6 +721,9 @@ subroutine lnd_handle_resume( infodata )

call seq_infodata_GetData(infodata, lnd_resume=lnd_resume )
! If lnd_resume is blank, restart file wasn't modified

write(iulog,"(a,i10,i10,i10)") 'eCLM(lnd_comp_mct): iam, inst_index, num_inst_lnd ', iam, inst_index, num_inst_lnd

if ( len_trim(lnd_resume(min(num_inst_lnd,inst_index))) == 0 )then
resume_from_data_assim = .false.
! Otherwise restart was modified and we are resuming from data assimulation
Expand Down

0 comments on commit d9e43a9

Please sign in to comment.