From 56304b7bde088337dc167ca7534065853ce83be5 Mon Sep 17 00:00:00 2001 From: anton-seaice Date: Mon, 6 May 2024 14:44:24 +1000 Subject: [PATCH] Review feedback --- cicecore/cicedyn/infrastructure/ice_domain.F90 | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/cicecore/cicedyn/infrastructure/ice_domain.F90 b/cicecore/cicedyn/infrastructure/ice_domain.F90 index db8b9d9f6..df112eb50 100644 --- a/cicecore/cicedyn/infrastructure/ice_domain.F90 +++ b/cicecore/cicedyn/infrastructure/ice_domain.F90 @@ -227,11 +227,11 @@ subroutine init_domain_blocks #ifdef CESMCOUPLED nprocs = get_num_procs() #else - if (nprocs == -1) then + if (nprocs < 0) then nprocs = get_num_procs() else if (nprocs /= get_num_procs()) then write(nu_diag,*) subname,' ERROR: nprocs, get_num_procs = ',nprocs,get_num_procs() - call abort_ice(subname//' ERROR: Input nprocs not same as system request', file=__FILE__, line=__LINE__) + call abort_ice(subname//' ERROR: Input nprocs not same as system (e.g MPI) request', file=__FILE__, line=__LINE__) endif #endif @@ -247,7 +247,6 @@ subroutine init_domain_blocks endif endif - !---------------------------------------------------------------------- ! ! perform some basic checks on domain