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 |
|
) |
| |