ocean_slab_ice Subroutine

public subroutine ocean_slab_ice(itime, dtime, jour, knon, knindex, tsurf_in, p1lay, cdragh, cdragm, precip_rain, precip_snow, temp_air, spechum, AcoefH, AcoefQ, BcoefH, BcoefQ, AcoefU, AcoefV, BcoefU, BcoefV, ps, u1, v1, gustiness, radsol, snow, qsurf, qsol, agesno, alb1_new, alb2_new, evap, fluxsens, fluxlat, flux_u1, flux_v1, tsurf_new, dflux_s, dflux_l, swnet)

Uses

  • proc~~ocean_slab_ice~~UsesGraph proc~ocean_slab_ice ocean_slab_ice module~calcul_fluxs_mod calcul_fluxs_mod proc~ocean_slab_ice->module~calcul_fluxs_mod module~yomcst_mod_h yomcst_mod_h proc~ocean_slab_ice->module~yomcst_mod_h module~clesphys_mod_h~2 clesphys_mod_h proc~ocean_slab_ice->module~clesphys_mod_h~2 module~calcul_fluxs_mod->module~clesphys_mod_h~2

2) Update snow and ice surface

snow precip

3) Recalculate new ocean temperature (add fluxes below ice) Melt / freeze from below *******o******** cumul fluxes

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: itime
real, intent(in) :: dtime
integer, intent(in) :: jour
integer, intent(in) :: knon
integer, intent(in), DIMENSION(klon) :: knindex
real, intent(in), DIMENSION(klon) :: tsurf_in
real, intent(in), DIMENSION(klon) :: p1lay
real, intent(in), DIMENSION(klon) :: cdragh
real, intent(in), DIMENSION(klon) :: cdragm
real, intent(in), DIMENSION(klon) :: precip_rain
real, intent(in), DIMENSION(klon) :: precip_snow
real, intent(in), DIMENSION(klon) :: temp_air
real, intent(in), DIMENSION(klon) :: spechum
real, intent(in), DIMENSION(klon) :: AcoefH
real, intent(in), DIMENSION(klon) :: AcoefQ
real, intent(in), DIMENSION(klon) :: BcoefH
real, intent(in), DIMENSION(klon) :: BcoefQ
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) :: ps
real, intent(in), DIMENSION(klon) :: u1
real, intent(in), DIMENSION(klon) :: v1
real, intent(in), DIMENSION(klon) :: gustiness
real, intent(inout), DIMENSION(klon) :: radsol
real, intent(inout), DIMENSION(klon) :: snow
real, intent(out), DIMENSION(klon) :: qsurf
real, intent(inout), DIMENSION(klon) :: qsol
real, intent(inout), DIMENSION(klon) :: agesno
real, intent(out), DIMENSION(klon) :: alb1_new
real, intent(out), DIMENSION(klon) :: alb2_new
real, intent(out), DIMENSION(klon) :: evap
real, intent(out), DIMENSION(klon) :: fluxsens
real, intent(out), DIMENSION(klon) :: fluxlat
real, intent(out), DIMENSION(klon) :: flux_u1
real, intent(out), DIMENSION(klon) :: flux_v1
real, intent(out), DIMENSION(klon) :: tsurf_new
real, intent(out), DIMENSION(klon) :: dflux_s
real, intent(out), DIMENSION(klon) :: dflux_l
real, intent(in), DIMENSION(klon) :: swnet

Calls

proc~~ocean_slab_ice~~CallsGraph proc~ocean_slab_ice ocean_slab_ice proc~calbeta calbeta proc~ocean_slab_ice->proc~calbeta proc~calcul_fluxs calcul_fluxs proc~ocean_slab_ice->proc~calcul_fluxs proc~calcul_flux_wind calcul_flux_wind proc~ocean_slab_ice->proc~calcul_flux_wind proc~sens_heat_rain sens_heat_rain proc~calcul_fluxs->proc~sens_heat_rain proc~esat esat proc~sens_heat_rain->proc~esat

Called by

proc~~ocean_slab_ice~~CalledByGraph proc~ocean_slab_ice ocean_slab_ice proc~surf_seaice surf_seaice proc~surf_seaice->proc~ocean_slab_ice proc~surf_seaice~2 surf_seaice proc~surf_seaice~2->proc~ocean_slab_ice proc~pbl_surface pbl_surface proc~pbl_surface->proc~surf_seaice proc~pbl_surface~2 pbl_surface proc~pbl_surface~2->proc~surf_seaice proc~physiq physiq proc~physiq->proc~pbl_surface proc~physiq~2 physiq proc~physiq~2->proc~pbl_surface proc~old_lmdz1d old_lmdz1d proc~old_lmdz1d->proc~physiq proc~call_physiq call_physiq proc~call_physiq->proc~physiq proc~call_physiq~2 call_physiq proc~call_physiq~2->proc~physiq proc~scm scm proc~scm->proc~physiq program~lmdz1d lmdz1d program~lmdz1d->proc~old_lmdz1d program~lmdz1d->proc~scm proc~calfis calfis proc~calfis->proc~call_physiq proc~leapfrog leapfrog proc~leapfrog->proc~calfis program~gcm~2 gcm program~gcm~2->proc~leapfrog

Contents