| subroutine, public sfc_ocean::sfc_ocean_run | ( | integer, intent(in) | im, |
| real (kind=kind_phys), intent(in) | cp, | ||
| real (kind=kind_phys), intent(in) | rd, | ||
| real (kind=kind_phys), intent(in) | eps, | ||
| real (kind=kind_phys), intent(in) | epsm1, | ||
| real (kind=kind_phys), intent(in) | hvap, | ||
| real (kind=kind_phys), intent(in) | rvrdm1, | ||
| real (kind=kind_phys), dimension(im), intent(in) | ps, | ||
| real (kind=kind_phys), dimension(im), intent(in) | t1, | ||
| real (kind=kind_phys), dimension(im), intent(in) | q1, | ||
| real (kind=kind_phys), dimension(im), intent(in) | tskin, | ||
| real (kind=kind_phys), dimension(im), intent(in) | cm, | ||
| real (kind=kind_phys), dimension(im), intent(in) | ch, | ||
| real (kind=kind_phys), dimension(im), intent(in) | prsl1, | ||
| real (kind=kind_phys), dimension(im), intent(in) | prslki, | ||
| logical, dimension(im), intent(in) | wet, | ||
| real (kind=kind_phys), dimension(im), intent(in) | wind, | ||
| logical, dimension(im), intent(in) | flag_iter, | ||
| real (kind=kind_phys), dimension(im), intent(inout) | qsurf, | ||
| real (kind=kind_phys), dimension(im), intent(inout) | cmm, | ||
| real (kind=kind_phys), dimension(im), intent(inout) | chh, | ||
| real (kind=kind_phys), dimension(im), intent(inout) | gflux, | ||
| real (kind=kind_phys), dimension(im), intent(inout) | evap, | ||
| real (kind=kind_phys), dimension(im), intent(inout) | hflx, | ||
| real (kind=kind_phys), dimension(im), intent(inout) | ep, | ||
| character(len=*), intent(out) | errmsg, | ||
| integer, intent(out) | errflg | ||
| ) |