Fix logical error

NorESMhub · Apr 28, 2021 · efc5fae · efc5fae
1 parent 5200d7a
commit efc5fae
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/SourceMods.noresm2/src.drv/cime_comp_mod.F90 b/SourceMods.noresm2/src.drv/cime_comp_mod.F90
@@ -615,7 +615,7 @@ subroutine cime_pre_init1(esmf_log_option)
     call mpi_comm_size(global_comm,mppwidth,ierr)
     call getenv("MEMBER_PES",envtmp)  !! need be set in env_mach_specific.xml
     read(envtmp,*,iostat=ierr)npes    !! if MEMBER_PES not set, npes is 0
-    if (mppwidth.ge.2*npes) then      !! if npes is 0, then the NorCPM setup will be skipped
+    if (npes.gt.0 .and. mppwidth.ge.2*npes) then      !! if npes is 0, then the NorCPM setup will be skipped
      call mpi_comm_rank(global_comm,myid,ierr)
      !--- check that mppwidth is multiple of pes needed for single member ---
      if (mod(mppwidth,npes).ne.0) then