var/da/da_radar/da_radzicevar_dryice_adj.inc

   1
   2   subroutine da_radzicevar_dryice_adj(para_dryice_dqwx,pxkhv,dqsn,dqra,dtmk,dqvp, &
   3                              rhoair,dsnow_coef,zmm_ref,dsnow,qsn,pdfsrs,  &
   4                              pdfrrs,pdfrhot,pdfrhoq)
   5    !----------------------------------------------------------------------
   6    ! purpose: calculate the adj associated with the contributino from dry snow
   7    !----------------------------------------------------------------------
   8     implicit none
   9     real :: para_dryice_dqwx
  10     real :: pxkhv
  11     real :: dqsn,dqra,dtmk,dqvp
  12     real :: rhoair,dsnow_coef,zmm_ref,dsnow,qsn
  13     real :: pdfsrs,pdfrrs,pdfrhot,pdfrhoq
  14
  15     dqsn=dqsn+para_dryice_dqwx*pxkhv*rhoair*dsnow_coef*zmm_ref &
  16              -para_dryice_dqwx*pxkhv*pdfsrs*qsn*zmm_ref
  17     dqra=dqra-para_dryice_dqwx*pxkhv*pdfrrs*qsn*zmm_ref
  18     dtmk=dtmk+para_dryice_dqwx*pxkhv*dsnow*pdfrhot*zmm_ref
  19     dqvp=dqvp+para_dryice_dqwx*pxkhv*dsnow*pdfrhoq*zmm_ref
  20
  21   end subroutine da_radzicevar_dryice_adj