| 302 |
z_atm(1) = z_atm_0 |
z_atm(1) = z_atm_0 |
| 303 |
p_surf(1) = p_surf_0 |
p_surf(1) = p_surf_0 |
| 304 |
t_surf(1) = t_surf_0 |
t_surf(1) = t_surf_0 |
| 305 |
|
t_ca(1) = t_ca_0 |
| 306 |
|
q_surf(1) = q_surf_0 |
| 307 |
u_surf(1) = u_surf_0 |
u_surf(1) = u_surf_0 |
| 308 |
v_surf(1) = v_surf_0 |
v_surf(1) = v_surf_0 |
| 309 |
rough_mom(1) = rough_mom_0 |
rough_mom(1) = rough_mom_0 |
| 310 |
rough_heat(1) = rough_heat_0 |
rough_heat(1) = rough_heat_0 |
| 311 |
rough_moist(1) = rough_moist_0 |
rough_moist(1) = rough_moist_0 |
| 312 |
gust(1) = gust_0 |
gust(1) = gust_0 |
| 313 |
|
land(1) = land_0 |
| 314 |
|
|
| 315 |
call surface_flux_1d ( & |
call surface_flux_1d ( & |
| 316 |
t_atm, q_atm, u_atm, v_atm, p_atm, z_atm, & |
t_atm, q_atm, u_atm, v_atm, p_atm, z_atm, & |
| 329 |
flux_r_0 = flux_r(1) |
flux_r_0 = flux_r(1) |
| 330 |
flux_u_0 = flux_u(1) |
flux_u_0 = flux_u(1) |
| 331 |
flux_v_0 = flux_v(1) |
flux_v_0 = flux_v(1) |
| 332 |
|
cd_m_0 = cd_m(1) |
| 333 |
|
cd_t_0 = cd_t(1) |
| 334 |
|
cd_q_0 = cd_q(1) |
| 335 |
|
w_atm_0 = w_atm(1) |
| 336 |
|
u_star_0 = u_star(1) |
| 337 |
|
b_star_0 = b_star(1) |
| 338 |
|
q_star_0 = q_star(1) |
| 339 |
|
q_surf_0 = q_surf(1) |
| 340 |
dhdt_surf_0 = dhdt_surf(1) |
dhdt_surf_0 = dhdt_surf(1) |
| 341 |
dedt_surf_0 = dedt_surf(1) |
dedt_surf_0 = dedt_surf(1) |
|
drdt_surf_0 = drdt_surf(1) |
|
| 342 |
dedq_surf_0 = dedq_surf(1) |
dedq_surf_0 = dedq_surf(1) |
| 343 |
|
drdt_surf_0 = drdt_surf(1) |
| 344 |
dhdt_atm_0 = dhdt_atm(1) |
dhdt_atm_0 = dhdt_atm(1) |
| 345 |
dedq_atm_0 = dedq_atm(1) |
dedq_atm_0 = dedq_atm(1) |
| 346 |
dtaudv_atm_0 = dtaudv_atm(1) |
dtaudv_atm_0 = dtaudv_atm(1) |
|
w_atm_0 = w_atm(1) |
|
|
u_star_0 = u_star(1) |
|
|
b_star_0 = b_star(1) |
|
|
q_star_0 = q_star(1) |
|
|
q_surf_0 = q_surf(1) |
|
|
cd_m_0 = cd_m(1) |
|
|
cd_t_0 = cd_t(1) |
|
|
cd_q_0 = cd_q(1) |
|
| 347 |
|
|
| 348 |
end subroutine surface_flux_0d |
end subroutine surface_flux_0d |
| 349 |
|
|
Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch