Typo in nmode0 in PIO for CESM_COUPLED

CICE-Consortium · Feb 28, 2024 · e7454f1 · e7454f1
1 parent 64177e3
commit e7454f1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)