var/da/da_radar/da_radzicevar_dryice_tl.inc

   1
   2   subroutine da_radzicevar_dryice_tl(zdshv,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 tl linear for dry snow
   7    !----------------------------------------------------------------------
   8     real :: zdshv
   9     real :: para_dryice_dqwx
  10     real :: pxkhv
  11     real :: rhoair,dsnow_coef,zmm_ref,dsnow,qsn
  12     real :: pdfsrs,pdfrrs,pdfrhot,pdfrhoq
  13     real :: dqsn,dqra,dtmk,dqvp
  14
  15     zdshv=para_dryice_dqwx*pxkhv*rhoair*dsnow_coef*dqsn         &
  16          +para_dryice_dqwx*pxkhv*dsnow*pdfrhot*dtmk             &
  17          +para_dryice_dqwx*pxkhv*dsnow*pdfrhoq*dqvp             &
  18          -para_dryice_dqwx*pxkhv*pdfrrs*qsn*dqra                &
  19          -para_dryice_dqwx*pxkhv*pdfsrs*qsn*dqsn
  20
  21   end subroutine da_radzicevar_dryice_tl