SUBROUTINE WQZERO3 C C M. MORTON 29 APR 1999 C INITIALIZES THE LIMITATION AND D.O. COMPONENT ANALYSIS ARRAYS: C CHANGE RECORD C USE GLOBAL DO LL=2,LA DO K=1,KC C C ZERO THE DIURNAL DO VARIABLES: C XLIMIC(LL,K) = 0.0 XLIMID(LL,K) = 0.0 XLIMIG(LL,K) = 0.0 XLIMIM(LL,K) = 0.0 XLIMVM(LL,K) = 0.0 XLIMDM(LL,K) = 0.0 XLIMNC(LL,K) = 0.0 XLIMND(LL,K) = 0.0 XLIMNG(LL,K) = 0.0 XLIMNM(LL,K) = 0.0 XLIMPC(LL,K) = 0.0 XLIMPD(LL,K) = 0.0 XLIMPG(LL,K) = 0.0 XLIMPM(LL,K) = 0.0 XLIMTC(LL,K) = 0.0 XLIMTD(LL,K) = 0.0 XLIMTG(LL,K) = 0.0 XLIMTM(LL,K) = 0.0 XDOSAT(LL,K) = 0.0 XDODEF(LL,K) = 0.0 XDOPSL(LL,K) = 0.0 XDOSOD(LL,K) = 0.0 XDOKAR(LL,K) = 0.0 XDODOC(LL,K) = 0.0 XDONIT(LL,K) = 0.0 XDOCOD(LL,K) = 0.0 XDOPPB(LL,K) = 0.0 XDORRB(LL,K) = 0.0 XDOPPM(LL,K) = 0.0 XDORRM(LL,K) = 0.0 XDOTRN(LL,K) = 0.0 XDOALL(LL,K) = 0.0 XDODZ(LL,K) = 0.0 ! X-species do i=1,NXSP XLIMIX(LL,K,i) = 0.0 XLIMNX(LL,K,i) = 0.0 XLIMPX(LL,K,i) = 0.0 XLIMTX(LL,K,i) = 0.0 enddo ENDDO ENDDO TIMESUM3 = 0.0 NLIM = 0 RETURN END