include file: TYPWVPD 1
c       local diagnostic arrays passed through argument list               TYPWVPD.2      
c THIS set for full grid - pass down to WAMODEL                            TYPWVPD.3      
c                                                                          TYPWVPD.4      
       real sadv (len_pd)                                                  TYPWVPD.5      
c                                                                          TYPWVPD.6