subroutine ice_init::set_state_var |
( |
integer (kind=int_kind),intent(in) |
nx_block, |
|
|
integer (kind=int_kind),intent(in) |
ny_block, |
|
|
logical (kind=log_kind),dimension (nx_block,ny_block),intent(in) |
tmask, |
|
|
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) |
ULON, |
|
|
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) |
ULAT, |
|
|
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) |
Tair, |
|
|
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) |
sst, |
|
|
real (kind=dbl_kind),dimension (nx_block,ny_block),intent(in) |
Tf, |
|
|
integer (kind=int_kind),dimension (ntrcr),intent(inout) |
trcr_depend, |
|
|
real (kind=dbl_kind),dimension (nx_block,ny_block,ncat),intent(out) |
aicen, |
|
|
real (kind=dbl_kind),dimension (nx_block,ny_block,ntrcr,ncat),intent(out) |
trcrn, |
|
|
real (kind=dbl_kind),dimension (nx_block,ny_block,ncat),intent(out) |
vicen, |
|
|
real (kind=dbl_kind),dimension (nx_block,ny_block,ncat),intent(out) |
vsnon, |
|
|
real (kind=dbl_kind),dimension (nx_block,ny_block,ntilyr),intent(out) |
eicen, |
|
|
real (kind=dbl_kind),dimension (nx_block,ny_block,ntslyr),intent(out) |
esnon | |
|
) |
| | |