Merge pull request #114 from anton-seaice/ioerrchk3

typo in ice_pio
CICE-Consortium · Jan 16, 2024 · a2d2c13 · a2d2c13
2 parents a39b881 + 5268d5c
commit a2d2c13
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
@@ -76,7 +76,7 @@ subroutine ice_pio_init(mode, filename, File, clobber, cdf64, iotype)
    ice_pio_subsystem => shr_pio_getiosys(inst_name)
    pio_iotype =  shr_pio_getiotype(inst_name)
 
-   pio_seterrorhandling(ice_pio_subsystem, PIO_RETURN_ERROR)
+   call pio_seterrorhandling(ice_pio_subsystem, PIO_RETURN_ERROR)
 #else
 
 #ifdef GPTL