Merge pull request #1453 from jedwards4b/nag_aquap_fix

nag compiler needs a width
E3SM-Project · May 2, 2017 · 15297cd · 15297cd
2 parents ce52822 + 76df711
commit 15297cd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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