include file: ARGWVS2 2
c* argument list for source term diagnostic arrays for implsch             ARGWVS2.2      
c stl to hold increments from spectral tail calculations                   ARGWVS2.3      
c other arrays source terms as standard notation                           ARGWVS2.4      
c len_s2 (source diagnostics) =1 or nang*nfre*niblo as required            ARGWVS2.5      
c                                                                          ARGWVS2.6      
c THIS set for one block only - pass from WAMODEL to implsch               ARGWVS2.7      
c                                                                          ARGWVS2.8      
     & sin2, snl2, sds2, sbf2, stl2, len_s2,                               ARGWVS2.9      
c                                                                          ARGWVS2.10