subroutine ice_aerosol::update_aerosol |
( |
integer (kind=int_kind),intent(in) |
nx_block, |
|
|
integer (kind=int_kind),intent(in) |
ny_block, |
|
|
real (kind=dbl_kind),intent(in) |
dt, |
|
|
integer (kind=int_kind),intent(in) |
icells, |
|
|
integer (kind=int_kind),dimension (nx_block*ny_block),intent(in) |
indxi, |
|
|
integer (kind=int_kind),dimension (nx_block*ny_block),intent(in) |
indxj, |
|
|
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) |
meltt, |
|
|
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) |
melts, |
|
|
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) |
meltb, |
|
|
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) |
congel, |
|
|
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) |
snoice, |
|
|
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) |
fsnow, |
|
|
real (kind=dbl_kind),dimension(nx_block,ny_block,ntrcr),intent(inout) |
trcrn, |
|
|
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) |
aice_old, |
|
|
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) |
vice_old, |
|
|
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) |
vsno_old, |
|
|
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) |
vicen, |
|
|
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) |
vsnon, |
|
|
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in) |
aicen, |
|
|
real (kind=dbl_kind),dimension(nx_block,ny_block,n_aeromx),intent(in) |
faero, |
|
|
real (kind=dbl_kind),dimension(nx_block,ny_block,n_aeromx),intent(inout) |
fsoot | |
|
) |
| | |