Restore cicecore/cicedyn/general/ice_forcing.F90 to CICE-Consortium/main

NOAA-EMC · Jun 20, 2024 · 9216f6a · 9216f6a
1 parent ccfc77b
commit 9216f6a
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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