From 35e135c2a746d242623f0e4bcd1c5a7d03dde1dd Mon Sep 17 00:00:00 2001 From: Loren Date: Wed, 19 Jun 2024 20:14:07 -0700 Subject: [PATCH] added error message and exit if user goes down in resolution --- src/Physics/Checkpointing.F90 | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/src/Physics/Checkpointing.F90 b/src/Physics/Checkpointing.F90 index ab1d4af8..c88615b7 100755 --- a/src/Physics/Checkpointing.F90 +++ b/src/Physics/Checkpointing.F90 @@ -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)