diff --git a/docn/ocn_comp_nuopc.F90 b/docn/ocn_comp_nuopc.F90 index d155c30fb..b132c3a8d 100644 --- a/docn/ocn_comp_nuopc.F90 +++ b/docn/ocn_comp_nuopc.F90 @@ -239,7 +239,7 @@ subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc) call shr_mpi_bcast(sst_constant_value , mpicom, 'sst_constant_value') ! Special logic for prescribed aquaplanet - if (datamode(1:9) == 'sst_aquap') then + if (datamode(1:9) == 'sst_aquap' .and. trim(datamode) /= 'sst_aquap_constant') then ! First determine the prescribed aquaplanet option if (len_trim(datamode) == 10) then read(datamode(10:10),'(i1)') aquap_option diff --git a/streams/dshr_strdata_mod.F90 b/streams/dshr_strdata_mod.F90 index 0f7dfa063..b49033186 100644 --- a/streams/dshr_strdata_mod.F90 +++ b/streams/dshr_strdata_mod.F90 @@ -522,6 +522,8 @@ subroutine shr_strdata_init(sdat, model_clock, stream_name, rc) sdat%pstrm(ns)%field_stream = ESMF_FieldCreate(stream_mesh, & ESMF_TYPEKIND_r8, meshloc=ESMF_MESHLOC_ELEMENT, rc=rc) if (chkerr(rc,__LINE__,u_FILE_u)) return + call ESMF_FieldFill(sdat%pstrm(ns)%field_stream, dataFillScheme="const", const1=1.0_r8, rc=rc) + if (chkerr(rc,__LINE__,u_FILE_u)) return end if endif