Missing logic vertical viscosity diagnostics in inp_param.F

[arango]

The logic for processing the Dout(M3vvis) switch is missing in inp_par.F to process vertical viscosity diagnostics. We need to add the following code around line 2767:

           ELSE IF (TRIM(KeyWord).eq.'Dout(M3vvis)') THEN
             IF (M3vvis.le.0) THEN
               IF (Master) WRITE (out,280) 'M3vvis'
               exit_flag=5
               RETURN
             END IF
             Npts=load_l(Nval, Cval, Ngrids, Ldiag)
             DO ng=1,Ngrids
               Dout(idDu3d(M3vvis),ng)=Ldiag(ng)
               Dout(idDv3d(M3vvis),ng)=Ldiag(ng)
             END DO

Many thanks to Greg Gerbi for ​reporting this problem.