subroutine, public nst_module::cool_skin |
( |
real(kind=kind_phys), intent(in) | ustar_a, |
|
|
real(kind=kind_phys), intent(in) | f_nsol, |
|
|
real(kind=kind_phys), intent(in) | f_sol_0, |
|
|
real(kind=kind_phys), intent(in) | evap, |
|
|
real(kind=kind_phys), intent(in) | sss, |
|
|
real(kind=kind_phys), intent(in) | alpha, |
|
|
real(kind=kind_phys), intent(in) | beta, |
|
|
real(kind=kind_phys), intent(in) | rho_w, |
|
|
real(kind=kind_phys), intent(in) | rho_a, |
|
|
real(kind=kind_phys), intent(in) | ts, |
|
|
real(kind=kind_phys), intent(in) | q_ts, |
|
|
real(kind=kind_phys), intent(in) | hl_ts, |
|
|
real(kind=kind_phys), intent(in) | grav, |
|
|
real(kind=kind_phys), intent(in) | le, |
|
|
real(kind=kind_phys), intent(out) | deltat_c, |
|
|
real(kind=kind_phys), intent(out) | z_c, |
|
|
real(kind=kind_phys), intent(out) | c_0, |
|
|
real(kind=kind_phys), intent(out) | c_d ) |