From 9216f6ade5702dbf7822a37ce0cd82ca08a49c76 Mon Sep 17 00:00:00 2001 From: Nick Szapiro Date: Thu, 20 Jun 2024 21:04:07 +0000 Subject: [PATCH] Restore cicecore/cicedyn/general/ice_forcing.F90 to CICE-Consortium/main --- cicecore/cicedyn/general/ice_forcing.F90 | 3 +++ 1 file changed, 3 insertions(+) diff --git a/cicecore/cicedyn/general/ice_forcing.F90 b/cicecore/cicedyn/general/ice_forcing.F90 index b977f54aa..241bf8b5d 100755 --- a/cicecore/cicedyn/general/ice_forcing.F90 +++ b/cicecore/cicedyn/general/ice_forcing.F90 @@ -2276,6 +2276,9 @@ subroutine JRA55_files(yr) enddo if (.not.exists) then + write(nu_diag,*) subname,' atm_data_dir = ',trim(atm_data_dir) + write(nu_diag,*) subname,' atm_data_type_prefix = ',trim(atm_data_type_prefix) + write(nu_diag,*) subname,' atm_data_version = ',trim(atm_data_version) call abort_ice(error_message=subname//' could not find forcing file') endif