diff --git a/components/ww3/src/cpl/wav_comp_mct.F90 b/components/ww3/src/cpl/wav_comp_mct.F90 index 911c0b98108b..1397ed9cfaef 100644 --- a/components/ww3/src/cpl/wav_comp_mct.F90 +++ b/components/ww3/src/cpl/wav_comp_mct.F90 @@ -854,27 +854,6 @@ SUBROUTINE WAV_INIT_MCT( EClock, cdata, x2w_w, w2x_w, NLFilename ) ! add call to gptl timer - ! send initial state to driver - !do jsea=1, nseal - ! w2x_w%rattr(index_w2x_Sw_ustokes_wavenumber_1,jsea) = 0.0 - ! w2x_w%rattr(index_w2x_Sw_vstokes_wavenumber_1,jsea) = 0.0 - - ! w2x_w%rattr(index_w2x_Sw_ustokes_wavenumber_2,jsea) = 0.0 - ! w2x_w%rattr(index_w2x_Sw_vstokes_wavenumber_2,jsea) = 0.0 - - ! w2x_w%rattr(index_w2x_Sw_ustokes_wavenumber_3,jsea) = 0.0 - ! w2x_w%rattr(index_w2x_Sw_vstokes_wavenumber_3,jsea) = 0.0 - - ! w2x_w%rattr(index_w2x_Sw_ustokes_wavenumber_4,jsea) = 0.0 - ! w2x_w%rattr(index_w2x_Sw_vstokes_wavenumber_4,jsea) = 0.0 - - ! w2x_w%rattr(index_w2x_Sw_ustokes_wavenumber_5,jsea) = 0.0 - ! w2x_w%rattr(index_w2x_Sw_vstokes_wavenumber_5,jsea) = 0.0 - - ! w2x_w%rattr(index_w2x_Sw_ustokes_wavenumber_6,jsea) = 0.0 - ! w2x_w%rattr(index_w2x_Sw_vstokes_wavenumber_6,jsea) = 0.0 - !enddo - ! end redirection of share output to wav log if ( iaproc .eq. napout ) then