From 3cef8e5306ba999f9e955afd9b7bce7b7fe19169 Mon Sep 17 00:00:00 2001 From: anton-climate Date: Tue, 20 Feb 2024 15:07:46 +1100 Subject: [PATCH] Compare _format variables to the correct default (now 'cdf1') when confirming PIO settings --- cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90 b/cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90 index b8749b5cd..efadabbda 100644 --- a/cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90 +++ b/cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90 @@ -651,11 +651,11 @@ subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc) isPresent=isPresent, isSet=isSet, rc=rc) if (chkerr(rc,__LINE__,u_FILE_u)) return if (isPresent .and. isSet) then - if (trim(history_format)/='cdf2' .and. mastertask) then + if (trim(history_format)/='cdf1' .and. mastertask) then write(nu_diag,*) trim(subname)//history_format//'WARNING: history_format from cice_namelist ignored' write(nu_diag,*) trim(subname)//'WARNING: using '//trim(cvalue)//' from ICE_modelio' endif - if (trim(restart_format)/='cdf2' .and. mastertask) then + if (trim(restart_format)/='cdf1' .and. mastertask) then write(nu_diag,*) trim(subname)//restart_format//'WARNING: restart_format from cice_namelist ignored' write(nu_diag,*) trim(subname)//'WARNING: using '//trim(cvalue)//' from ICE_modelio' endif