1 |
|
|
subroutine call_blowing_snow_sublim_sedim(ngrid,nlay,dtime,temp,q,qbs,pplay,paprs, & |
2 |
|
|
dtemp_bs,dq_bs,dqbs_bs,bsfl,precip_bs) |
3 |
|
|
|
4 |
|
|
implicit none |
5 |
|
|
|
6 |
|
|
!INPUT |
7 |
|
|
!===== |
8 |
|
|
|
9 |
|
|
integer, intent(in) :: ngrid,nlay |
10 |
|
|
real, intent(in) :: dtime |
11 |
|
|
real, intent(in), dimension(ngrid,nlay) :: temp |
12 |
|
|
real, intent(in), dimension(ngrid,nlay) :: q |
13 |
|
|
real, intent(in), dimension(ngrid,nlay) :: qbs |
14 |
|
|
real, intent(in), dimension(ngrid,nlay) :: pplay |
15 |
|
|
real, intent(in), dimension(ngrid,nlay+1) :: paprs |
16 |
|
|
|
17 |
|
|
|
18 |
|
|
! OUTPUT |
19 |
|
|
!======== |
20 |
|
|
|
21 |
|
|
|
22 |
|
|
real, intent(out), dimension(ngrid,nlay) :: dtemp_bs |
23 |
|
|
real, intent(out), dimension(ngrid,nlay) :: dq_bs |
24 |
|
|
real, intent(out), dimension(ngrid,nlay) :: dqbs_bs |
25 |
|
|
real, intent(out), dimension(ngrid,nlay+1) :: bsfl |
26 |
|
|
real, intent(out), dimension(ngrid) :: precip_bs |
27 |
|
|
|
28 |
|
|
|
29 |
|
|
|
30 |
|
|
|
31 |
|
|
call blowing_snow_sublim_sedim(ngrid,nlay,dtime,temp,q,qbs,pplay,paprs, & |
32 |
|
|
dtemp_bs,dq_bs,dqbs_bs,bsfl,precip_bs) |
33 |
|
|
|
34 |
|
|
|
35 |
|
|
|
36 |
|
|
|
37 |
|
|
|
38 |
|
|
end subroutine call_blowing_snow_sublim_sedim |