calcul_fluxs_mod Module


Uses

  • module~~calcul_fluxs_mod~~UsesGraph module~calcul_fluxs_mod calcul_fluxs_mod module~clesphys_mod_h~2 clesphys_mod_h module~calcul_fluxs_mod->module~clesphys_mod_h~2

Used by

  • module~~calcul_fluxs_mod~~UsedByGraph module~calcul_fluxs_mod calcul_fluxs_mod proc~surf_land_bucket surf_land_bucket proc~surf_land_bucket->module~calcul_fluxs_mod proc~surf_land_bucket_hetero~2 surf_land_bucket_hetero proc~surf_land_bucket_hetero~2->module~calcul_fluxs_mod proc~ocean_forced_ice~2 ocean_forced_ice proc~ocean_forced_ice~2->module~calcul_fluxs_mod proc~surf_land_bucket~2 surf_land_bucket proc~surf_land_bucket~2->module~calcul_fluxs_mod proc~ocean_cpl_ice ocean_cpl_ice proc~ocean_cpl_ice->module~calcul_fluxs_mod proc~surf_landice~2 surf_landice proc~surf_landice~2->module~calcul_fluxs_mod proc~ocean_slab_ice~2 ocean_slab_ice proc~ocean_slab_ice~2->module~calcul_fluxs_mod proc~ocean_slab_ice ocean_slab_ice proc~ocean_slab_ice->module~calcul_fluxs_mod proc~surf_land surf_land proc~surf_land->module~calcul_fluxs_mod proc~surf_land_bucket_hetero surf_land_bucket_hetero proc~surf_land_bucket_hetero->module~calcul_fluxs_mod proc~ocean_forced_noice ocean_forced_noice proc~ocean_forced_noice->module~calcul_fluxs_mod proc~ocean_forced_ice ocean_forced_ice proc~ocean_forced_ice->module~calcul_fluxs_mod proc~surf_landice surf_landice proc~surf_landice->module~calcul_fluxs_mod proc~ocean_cpl_noice ocean_cpl_noice proc~ocean_cpl_noice->module~calcul_fluxs_mod proc~surf_land~2 surf_land proc~surf_land~2->module~calcul_fluxs_mod proc~ocean_cpl_noice~2 ocean_cpl_noice proc~ocean_cpl_noice~2->module~calcul_fluxs_mod proc~ocean_forced_noice~2 ocean_forced_noice proc~ocean_forced_noice~2->module~calcul_fluxs_mod proc~ocean_slab_noice ocean_slab_noice proc~ocean_slab_noice->module~calcul_fluxs_mod proc~ocean_slab_noice~2 ocean_slab_noice proc~ocean_slab_noice~2->module~calcul_fluxs_mod proc~ocean_cpl_ice~2 ocean_cpl_ice proc~ocean_cpl_ice~2->module~calcul_fluxs_mod

Contents

Subroutines


Subroutines

public subroutine calcul_fluxs(knon, nisurf, dtime, tsurf, p1lay, cal, beta, cdragh, cdragq, ps, precip_rain, precip_snow, snow, qsurf, radsol, dif_grnd, t1lay, q1lay, u1lay, v1lay, gustiness, fqsat, petAcoef, peqAcoef, petBcoef, peqBcoef, tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l, sens_prec_liq, sens_prec_sol, lat_prec_liq, lat_prec_sol, rhoa)

$ WRITE(,)'test calcul_flux, surface ', nisurf PB test $ if (nisurf == is_oce) then $ snow = 0. $ qsol = max_eau_sol $ else $ where (precip_snow > 0.) snow = snow + (precip_snow * dtime) $ where (snow > epsilon(snow)) snow = max(0.0, snow - (evap * dtime)) $! snow = max(0.0, snow + (precip_snow - evap) * dtime) $ where (precip_rain > 0.) qsol = qsol + (precip_rain - evap) * dtime $ endif $ IF (nisurf /= is_ter) qsol = max_eau_sol

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: knon
integer, intent(in) :: nisurf
real, intent(in) :: dtime
real, intent(in), DIMENSION(klon) :: tsurf
real, intent(in), DIMENSION(klon) :: p1lay
real, intent(in), DIMENSION(klon) :: cal
real, intent(in), DIMENSION(klon) :: beta
real, intent(in), DIMENSION(klon) :: cdragh
real, intent(in), DIMENSION(klon) :: cdragq
real, intent(in), DIMENSION(klon) :: ps
real, intent(in), DIMENSION(klon) :: precip_rain
real, intent(in), DIMENSION(klon) :: precip_snow
real, intent(inout), DIMENSION(klon) :: snow Read more…
real, intent(out), DIMENSION(klon) :: qsurf
real, intent(in), DIMENSION(klon) :: radsol
real, intent(in), DIMENSION(klon) :: dif_grnd
real, intent(in), DIMENSION(klon) :: t1lay
real, intent(in), DIMENSION(klon) :: q1lay
real, intent(in), DIMENSION(klon) :: u1lay
real, intent(in), DIMENSION(klon) :: v1lay
real, intent(in), DIMENSION(klon) :: gustiness
real, intent(in) :: fqsat
real, intent(in), DIMENSION(klon) :: petAcoef
real, intent(in), DIMENSION(klon) :: peqAcoef
real, intent(in), DIMENSION(klon) :: petBcoef
real, intent(in), DIMENSION(klon) :: peqBcoef
real, intent(out), DIMENSION(klon) :: tsurf_new
real, intent(out), DIMENSION(klon) :: evap
real, intent(out), DIMENSION(klon) :: fluxlat
real, intent(out), DIMENSION(klon) :: fluxsens
real, intent(out), DIMENSION(klon) :: dflux_s
real, intent(out), DIMENSION(klon) :: dflux_l
real, intent(out), optional :: sens_prec_liq(:)
real, intent(out), optional :: sens_prec_sol(:)
real, optional, DIMENSION(klon) :: lat_prec_liq Read more…
real, optional, DIMENSION(klon) :: lat_prec_sol Read more…
real, intent(in), optional :: rhoa(:) Read more…

public subroutine calcul_flux_wind(knon, dtime, u0, v0, u1, v1, gustiness, cdrag_m, AcoefU, AcoefV, BcoefU, BcoefV, p1lay, t1lay, flux_u1, flux_v1)

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: knon
real, intent(in) :: dtime
real, intent(in), DIMENSION(klon) :: u0
real, intent(in), DIMENSION(klon) :: v0
real, intent(in), DIMENSION(klon) :: u1
real, intent(in), DIMENSION(klon) :: v1
real, intent(in), DIMENSION(klon) :: gustiness
real, intent(in), DIMENSION(klon) :: cdrag_m
real, intent(in), DIMENSION(klon) :: AcoefU
real, intent(in), DIMENSION(klon) :: AcoefV
real, intent(in), DIMENSION(klon) :: BcoefU
real, intent(in), DIMENSION(klon) :: BcoefV
real, intent(in), DIMENSION(klon) :: p1lay
real, intent(in), DIMENSION(klon) :: t1lay Read more…
real, intent(out), DIMENSION(klon) :: flux_u1
real, intent(out), DIMENSION(klon) :: flux_v1 Read more…