From 92c4f4d7ce0bb4bdd46137af69a969015d63e452 Mon Sep 17 00:00:00 2001 From: anton-seaice Date: Fri, 3 May 2024 11:15:04 +1000 Subject: [PATCH] change .eq. to == syntacx for consistency --- cicecore/cicedyn/infrastructure/ice_domain.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/cicecore/cicedyn/infrastructure/ice_domain.F90 b/cicecore/cicedyn/infrastructure/ice_domain.F90 index 8ca03f17b..47a0f00ed 100644 --- a/cicecore/cicedyn/infrastructure/ice_domain.F90 +++ b/cicecore/cicedyn/infrastructure/ice_domain.F90 @@ -224,9 +224,9 @@ subroutine init_domain_blocks call broadcast_scalar(ny_global, master_task) ! Set nprocs if not set in namelist - if (nprocs .eq. -1) then + if (nprocs == -1) then nprocs = get_num_procs() - else if (nprocs .ne. get_num_procs()) then + 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__) endif