var/da/da_radar/da_radzicevar_rain_adj.inc

   1   subroutine da_radzicevar_rain_adj(para_rain,dqra,dqsn,dqgr,dtmk,dqvp,rhoair,  &
   2                       prain_coef,zmm_ref,pdfrrs,pdfsrs,pdfgrg,    &
   3                       pdfrhot,pdfrhoq,pdfrrg,qra,prain)
   4    !----------------------------------------------------------------------
   5    ! purpose: calculate the adj associated with the contribution from rainwater
   6    !----------------------------------------------------------------------
   7     implicit none
   8     real :: para_rain
   9     real :: dqra,dqsn,dqgr,dtmk,dqvp
  10     real :: rhoair,prain_coef,zmm_ref
  11     real :: pdfrrs,pdfsrs,pdfgrg,pdfrhot,pdfrhoq,pdfrrg
  12     real :: qra,prain
  13
  14     dqra=dqra+para_rain*rhoair*prain_coef*zmm_ref &
  15              -para_rain*(pdfrrs+pdfrrg)*qra*zmm_ref
  16     dqsn=dqsn-para_rain*pdfsrs*qra*zmm_ref
  17     dqgr=dqgr-para_rain*pdfgrg*qra*zmm_ref
  18     dtmk=dtmk+para_rain*prain*pdfrhot*zmm_ref
  19     dqvp=dqvp+para_rain*prain*pdfrhoq*zmm_ref
  20
  21   end subroutine da_radzicevar_rain_adj