  uwnd0,  vwnd0,   pres0,   pres0_int,  coldT0,    &
                  dtime,  dtemp0,  dqvap0,  duwnd0,     dvwnd0,    &
                  rain0,  snow0,   kbot,    ql0,        qi0,       &
                  qa0,    mc0,     Dl0,     Di0,        Da0  )

input
    is, js     Starting indices for window
               [integer]

    Time       Time used for diagnostics 
               [time_type]

    temp0      Temperature [deg k] at full model levels,
               [real, dimension(:,:,nlev)]

    qvap0  