From 1a530ec749028c7abbab44b3c83b9f9d9475ad60 Mon Sep 17 00:00:00 2001
From: Anton Steketee <79179784+anton-seaice@users.noreply.github.com>
Date: Thu, 29 Feb 2024 08:17:00 +1100
Subject: [PATCH] Typo in nmode0 in PIO for CESM_COUPLED (#938)

For CESMCOUPLED, the pio_iotype is set though CMEPS. For completeness, we also need to check the ioformat set through CMEPS. ioformat is used to set the nmode0. nmode0 and clobber combine to set the nmode flag for pio_createfile / pio_openfile operations. Due a typo nmode0 was not being set for netcdf4 iotypes (before this change).
---
 cicecore/cicedyn/infrastructure/io/io_pio2/ice_pio.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cicecore/cicedyn/infrastructure/io/io_pio2/ice_pio.F90 b/cicecore/cicedyn/infrastructure/io/io_pio2/ice_pio.F90
index 565e7adbb..9028fa9b7 100644
--- a/cicecore/cicedyn/infrastructure/io/io_pio2/ice_pio.F90
+++ b/cicecore/cicedyn/infrastructure/io/io_pio2/ice_pio.F90
@@ -83,7 +83,7 @@ subroutine ice_pio_init(mode, filename, File, clobber, fformat, &
    if ((pio_iotype==PIO_IOTYPE_NETCDF).or.(pio_iotype==PIO_IOTYPE_PNETCDF)) then
       nmode0 = shr_pio_getioformat(inst_name)
    else
-      nmode=0
+      nmode0 = 0
    endif
 
    call pio_seterrorhandling(ice_pio_subsystem, PIO_RETURN_ERROR)