sfc_cice_run()

subroutine sfc_cice::sfc_cice_run	(	integer, intent(in)	im,
		logical, intent(in)	cplflx,
		real(kind=kind_phys), intent(in)	hvap,
		real(kind=kind_phys), intent(in)	cp,
		real(kind=kind_phys), intent(in)	rvrdm1,
		real(kind=kind_phys), intent(in)	rd,
		real (kind=kind_phys), dimension(:), intent(in)	t1,
		real (kind=kind_phys), dimension(:), intent(in)	q1,
		real (kind=kind_phys), dimension(:), intent(in)	cm,
		real (kind=kind_phys), dimension(:), intent(in)	ch,
		real (kind=kind_phys), dimension(:), intent(in)	prsl1,
		real (kind=kind_phys), dimension(:), intent(in)	wind,
		logical, dimension(:), intent(in)	flag_cice,
		logical, dimension(:), intent(in)	flag_iter,
		real (kind=kind_phys), dimension(:), intent(in)	dqsfc,
		real (kind=kind_phys), dimension(:), intent(in)	dtsfc,
		real (kind=kind_phys), dimension(:), intent(in)	dusfc,
		real (kind=kind_phys), dimension(:), intent(in)	dvsfc,
		real (kind=kind_phys), dimension(:), intent(in)	snowd,
		real (kind=kind_phys), dimension(:), intent(inout)	qsurf,
		real (kind=kind_phys), dimension(:), intent(inout)	cmm,
		real (kind=kind_phys), dimension(:), intent(inout)	chh,
		real (kind=kind_phys), dimension(:), intent(inout)	evap,
		real (kind=kind_phys), dimension(:), intent(inout)	hflx,
		real (kind=kind_phys), dimension(:), intent(inout)	stress,
			weasd,
			snwdph,
			ep,
		character(len=*), intent(out)	errmsg,
		integer, intent(out)	errflg )

Arguments