Skip to content

Commit

Permalink
added error message and exit if user goes down in resolution
Browse files Browse the repository at this point in the history
  • Loading branch information
Loren committed Jun 20, 2024
1 parent d6aacb1 commit 35e135c
Showing 1 changed file with 8 additions and 1 deletion.
9 changes: 8 additions & 1 deletion src/Physics/Checkpointing.F90
Original file line number Diff line number Diff line change
Expand Up @@ -685,8 +685,15 @@ Subroutine Read_Checkpoint(fields, abterms,iteration,read_pars)
Call chktmp2%deconstruct('p1a')
Call chktmp2%deconstruct('p1b')
Deallocate(radius_old_loc)
Else ! Rayleigh doesn't currently support degrading radial resolution--exit now
If (my_rank .eq. 0) Then
Call stdout%print('ERROR: Rayleigh currently does not support degrading radial resolution.')
Call stdout%print('Now exiting')
Call stdout%partial_flush()
Endif
Call pfi%exit()
Stop
Endif

Else ! n_r_old_loc = n_r_loc
! no interpolation is needed, we just copy the checkpoint into fields and abterms
fields(irmax:irmin,:,:,1:numfields) = chktmp%p1b(irmax_old:irmax_old+n_r_loc-1,:,:,1:numfields)
Expand Down

0 comments on commit 35e135c

Please sign in to comment.