From 76df711e38285eed28c21aec4adc4c1cf0faca7b Mon Sep 17 00:00:00 2001 From: Jim Edwards Date: Tue, 2 May 2017 08:25:35 -0600 Subject: [PATCH] nag compiler needs a width --- src/components/data_comps/docn/docn_comp_mod.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/components/data_comps/docn/docn_comp_mod.F90 b/src/components/data_comps/docn/docn_comp_mod.F90 index b2d37ce2c354..58119151b93f 100644 --- a/src/components/data_comps/docn/docn_comp_mod.F90 +++ b/src/components/data_comps/docn/docn_comp_mod.F90 @@ -302,9 +302,9 @@ subroutine docn_comp_init( EClock, cdata, x2o, o2x, NLFilename ) if (ocn_mode(1:9) == 'SST_AQUAP') then ! First determine the prescribed aquaplanet option if (len_trim(ocn_mode) == 10) then - read(ocn_mode(10:10),'(i)') aquap_option + read(ocn_mode(10:10),'(i1)') aquap_option else if (len_trim(ocn_mode) == 11) then - read(ocn_mode(10:11),'(i)') aquap_option + read(ocn_mode(10:11),'(i2)') aquap_option end if ! Now remove the index from the ocn_mode value, to have a generic setting ! for use below