subroutine transportmod::diffustransp::diffustransp_gw |
( |
type(bounds_type), intent(in) |
bounds, |
|
|
type(betr_status_type), intent(out) |
bstatus, |
|
|
integer, intent(in) |
lbj, |
|
|
integer, intent(in) |
ubj, |
|
|
integer, dimension(bounds%begc: ), intent(in) |
jtop, |
|
|
integer, intent(in) |
numfl, |
|
|
integer, dimension(:), intent(in) |
filter, |
|
|
integer, intent(in) |
ntrcs, |
|
|
real(r8), dimension(bounds%begc: , lbj: ,1: ), intent(in) |
trcin_mobile, |
|
|
real(r8), dimension(bounds%begc: , lbj: ), intent(in) |
Rfactor, |
|
|
real(r8), dimension(bounds%begc: , lbj: ), intent(in) |
hmconductance, |
|
|
real(r8), dimension(bounds%begc: ), intent(in) |
dtime, |
|
|
real(r8), dimension(bounds%begc: , lbj: ), intent(in) |
dz, |
|
|
real(r8), dimension(bounds%begc: , lbj: , 1: ), intent(in) |
source, |
|
|
real(r8), dimension(bounds%begc: , 1: , 1: ), intent(in) |
trc_concflx_air, |
|
|
real(r8), dimension(bounds%begc: ), intent(in) |
condc_toplay, |
|
|
integer, intent(in) |
topbc_type, |
|
|
real(r8), dimension(bounds%begc: , 1: , 1: ), intent(in) |
bot_flux, |
|
|
logical, dimension(bounds%begc: ), intent(in) |
update_col, |
|
|
real(r8), dimension(bounds%begc: , lbj: , 1: ), intent(inout) |
dtracer, |
|
|
integer, intent(in), optional |
botbc_type, |
|
|
real(r8), dimension(bounds%begc: ), intent(in), optional |
condc_botlay |
|
) |
| |
|
private |