ocean_forced_ice Subroutine

public subroutine ocean_forced_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, pctsrf, radsol, snow, qsol, agesno, tsoil, qsurf, alb1_new, alb2_new, evap, fluxsens, fluxlat, flux_u1, flux_v1, tsurf_new, dflux_s, dflux_l, rhoa, swnet, hice, tice, bilg_cumul, fcds, fcdi, dh_basal_growth, dh_basal_melt, dh_top_melt, dh_snow2sic, dtice_melt, dtice_snow2sic)

Uses

  • proc~~ocean_forced_ice~2~~UsesGraph proc~ocean_forced_ice~2 ocean_forced_ice module~limit_read_mod limit_read_mod proc~ocean_forced_ice~2->module~limit_read_mod module~calcul_fluxs_mod calcul_fluxs_mod proc~ocean_forced_ice~2->module~calcul_fluxs_mod module~yomcst_mod_h yomcst_mod_h proc~ocean_forced_ice~2->module~yomcst_mod_h module~flux_arp_mod_h~2 flux_arp_mod_h proc~ocean_forced_ice~2->module~flux_arp_mod_h~2 module~phys_output_var_mod~2 phys_output_var_mod proc~ocean_forced_ice~2->module~phys_output_var_mod~2 module~dimphy~3 dimphy proc~ocean_forced_ice~2->module~dimphy~3 module~surface_data surface_data proc~ocean_forced_ice~2->module~surface_data module~indice_sol_mod indice_sol_mod proc~ocean_forced_ice~2->module~indice_sol_mod module~geometry_mod geometry_mod proc~ocean_forced_ice~2->module~geometry_mod module~dimsoil_mod_h dimsoil_mod_h proc~ocean_forced_ice~2->module~dimsoil_mod_h module~clesphys_mod_h~2 clesphys_mod_h proc~ocean_forced_ice~2->module~clesphys_mod_h~2 module~fonte_neige_mod fonte_neige_mod proc~ocean_forced_ice~2->module~fonte_neige_mod module~calcul_fluxs_mod->module~clesphys_mod_h~2 module~phys_output_var_mod~2->module~dimphy~3 module~strings_mod strings_mod module~phys_output_var_mod~2->module~strings_mod module~fonte_neige_mod->module~dimphy~3 module~fonte_neige_mod->module~indice_sol_mod iso_fortran_env iso_fortran_env module~strings_mod->iso_fortran_env

1) Flux calculation : tsurf_new, evap, fluxlat, fluxsens, flux_u1, flux_v1 dflux_s, dflux_l and qsurf

2) Calculations due to snow and runoff

GG

2) Update snow and ice surface : thickness

3) cumulate ice-ocean fluxes, update tslab, lateral grow *******o**** cumul fluxes.

4) Compute sea-ice and snow albedo

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(in), DIMENSION(klon,nbsrf) :: pctsrf
real, intent(inout), DIMENSION(klon) :: radsol
real, intent(inout), DIMENSION(klon) :: snow
real, intent(inout), DIMENSION(klon) :: qsol
real, intent(inout), DIMENSION(klon) :: agesno
real, intent(inout), DIMENSION(klon, nsoilmx) :: tsoil
real, intent(out), DIMENSION(klon) :: qsurf
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) :: rhoa(:)
real, intent(in), DIMENSION(klon) :: swnet
real, intent(inout), DIMENSION(klon) :: hice
real, intent(inout), DIMENSION(klon) :: tice
real, intent(inout), DIMENSION(klon) :: bilg_cumul
real, intent(inout), DIMENSION(klon) :: fcds
real, intent(inout), DIMENSION(klon) :: fcdi
real, intent(inout), DIMENSION(klon) :: dh_basal_growth
real, intent(inout), DIMENSION(klon) :: dh_basal_melt
real, intent(inout), DIMENSION(klon) :: dh_top_melt
real, intent(inout), DIMENSION(klon) :: dh_snow2sic
real, intent(inout), DIMENSION(klon) :: dtice_melt
real, intent(inout), DIMENSION(klon) :: dtice_snow2sic

Calls

proc~~ocean_forced_ice~2~~CallsGraph proc~ocean_forced_ice~2 ocean_forced_ice proc~calbeta calbeta proc~ocean_forced_ice~2->proc~calbeta proc~calcul_flux_wind calcul_flux_wind proc~ocean_forced_ice~2->proc~calcul_flux_wind proc~fonte_neige fonte_neige proc~ocean_forced_ice~2->proc~fonte_neige proc~albsno albsno proc~ocean_forced_ice~2->proc~albsno float float proc~ocean_forced_ice~2->float proc~soil soil proc~ocean_forced_ice~2->proc~soil proc~limit_read_hice limit_read_hice proc~ocean_forced_ice~2->proc~limit_read_hice proc~calcul_fluxs calcul_fluxs proc~ocean_forced_ice~2->proc~calcul_fluxs interface~bcast bcast proc~soil->interface~bcast proc~abort_physic abort_physic proc~soil->proc~abort_physic proc~sens_heat_rain sens_heat_rain proc~calcul_fluxs->proc~sens_heat_rain proc~bcast_i4 bcast_i4 interface~bcast->proc~bcast_i4 proc~bcast_r bcast_r interface~bcast->proc~bcast_r proc~bcast_r2 bcast_r2 interface~bcast->proc~bcast_r2 proc~bcast_r1 bcast_r1 interface~bcast->proc~bcast_r1 proc~bcast_l2 bcast_l2 interface~bcast->proc~bcast_l2 proc~bcast_r3 bcast_r3 interface~bcast->proc~bcast_r3 proc~bcast_i bcast_i interface~bcast->proc~bcast_i proc~bcast_i1 bcast_i1 interface~bcast->proc~bcast_i1 proc~bcast_l1 bcast_l1 interface~bcast->proc~bcast_l1 proc~bcast_l4 bcast_l4 interface~bcast->proc~bcast_l4 proc~bcast_c bcast_c interface~bcast->proc~bcast_c proc~bcast_i3 bcast_i3 interface~bcast->proc~bcast_i3 proc~bcast_l bcast_l interface~bcast->proc~bcast_l proc~bcast_l3 bcast_l3 interface~bcast->proc~bcast_l3 proc~bcast_i2 bcast_i2 interface~bcast->proc~bcast_i2 proc~bcast_r4 bcast_r4 interface~bcast->proc~bcast_r4 getin_dump getin_dump proc~abort_physic->getin_dump histclo histclo proc~abort_physic->histclo proc~mpi_abort MPI_ABORT proc~abort_physic->proc~mpi_abort restclo restclo proc~abort_physic->restclo proc~esat esat proc~sens_heat_rain->proc~esat interface~bcast_mpi bcast_mpi proc~bcast_i4->interface~bcast_mpi interface~bcast_omp bcast_omp proc~bcast_i4->interface~bcast_omp proc~bcast_r->interface~bcast_mpi proc~bcast_r->interface~bcast_omp proc~bcast_r2->interface~bcast_mpi proc~bcast_r2->interface~bcast_omp proc~bcast_r1->interface~bcast_mpi proc~bcast_r1->interface~bcast_omp proc~lmdz_mpi_wrapper_abort lmdz_mpi_wrapper_abort proc~mpi_abort->proc~lmdz_mpi_wrapper_abort proc~bcast_l2->interface~bcast_mpi proc~bcast_l2->interface~bcast_omp proc~bcast_r3->interface~bcast_mpi proc~bcast_r3->interface~bcast_omp proc~bcast_i->interface~bcast_mpi proc~bcast_i->interface~bcast_omp proc~bcast_i1->interface~bcast_mpi proc~bcast_i1->interface~bcast_omp proc~bcast_l1->interface~bcast_mpi proc~bcast_l1->interface~bcast_omp proc~bcast_l4->interface~bcast_mpi proc~bcast_l4->interface~bcast_omp proc~bcast_c->interface~bcast_mpi proc~bcast_c->interface~bcast_omp proc~bcast_i3->interface~bcast_mpi proc~bcast_i3->interface~bcast_omp proc~bcast_l->interface~bcast_mpi proc~bcast_l->interface~bcast_omp proc~bcast_l3->interface~bcast_mpi proc~bcast_l3->interface~bcast_omp proc~bcast_i2->interface~bcast_mpi proc~bcast_i2->interface~bcast_omp proc~bcast_r4->interface~bcast_mpi proc~bcast_r4->interface~bcast_omp proc~bcast_mpi_c bcast_mpi_c interface~bcast_mpi->proc~bcast_mpi_c proc~bcast_mpi_l4 bcast_mpi_l4 interface~bcast_mpi->proc~bcast_mpi_l4 proc~bcast_mpi_l3 bcast_mpi_l3 interface~bcast_mpi->proc~bcast_mpi_l3 proc~bcast_mpi_l1 bcast_mpi_l1 interface~bcast_mpi->proc~bcast_mpi_l1 proc~bcast_mpi_r bcast_mpi_r interface~bcast_mpi->proc~bcast_mpi_r proc~bcast_mpi_r3 bcast_mpi_r3 interface~bcast_mpi->proc~bcast_mpi_r3 proc~bcast_mpi_l2 bcast_mpi_l2 interface~bcast_mpi->proc~bcast_mpi_l2 proc~bcast_mpi_i bcast_mpi_i interface~bcast_mpi->proc~bcast_mpi_i proc~bcast_mpi_i2 bcast_mpi_i2 interface~bcast_mpi->proc~bcast_mpi_i2 proc~bcast_mpi_i1 bcast_mpi_i1 interface~bcast_mpi->proc~bcast_mpi_i1 proc~bcast_mpi_i4 bcast_mpi_i4 interface~bcast_mpi->proc~bcast_mpi_i4 proc~bcast_mpi_r2 bcast_mpi_r2 interface~bcast_mpi->proc~bcast_mpi_r2 proc~bcast_mpi_r4 bcast_mpi_r4 interface~bcast_mpi->proc~bcast_mpi_r4 proc~bcast_mpi_i3 bcast_mpi_i3 interface~bcast_mpi->proc~bcast_mpi_i3 proc~bcast_mpi_l bcast_mpi_l interface~bcast_mpi->proc~bcast_mpi_l proc~bcast_mpi_r1 bcast_mpi_r1 interface~bcast_mpi->proc~bcast_mpi_r1 proc~bcast_mpi_cgen bcast_mpi_cgen proc~bcast_mpi_c->proc~bcast_mpi_cgen proc~bcast_mpi_lgen bcast_mpi_lgen proc~bcast_mpi_l4->proc~bcast_mpi_lgen proc~bcast_mpi_l3->proc~bcast_mpi_lgen proc~bcast_mpi_l1->proc~bcast_mpi_lgen proc~bcast_mpi_rgen bcast_mpi_rgen proc~bcast_mpi_r->proc~bcast_mpi_rgen proc~bcast_mpi_r3->proc~bcast_mpi_rgen proc~bcast_mpi_l2->proc~bcast_mpi_lgen proc~bcast_mpi_igen bcast_mpi_igen proc~bcast_mpi_i->proc~bcast_mpi_igen proc~bcast_mpi_i2->proc~bcast_mpi_igen proc~bcast_mpi_i1->proc~bcast_mpi_igen proc~bcast_mpi_i4->proc~bcast_mpi_igen proc~bcast_mpi_r2->proc~bcast_mpi_rgen proc~bcast_mpi_r4->proc~bcast_mpi_rgen proc~bcast_mpi_i3->proc~bcast_mpi_igen proc~bcast_mpi_l->proc~bcast_mpi_lgen proc~bcast_mpi_r1->proc~bcast_mpi_rgen proc~mpi_bcast MPI_BCAST proc~bcast_mpi_cgen->proc~mpi_bcast proc~bcast_mpi_lgen->proc~mpi_bcast proc~bcast_mpi_igen->proc~mpi_bcast proc~bcast_mpi_rgen->proc~mpi_bcast proc~mpi_bcast->proc~lmdz_mpi_wrapper_abort

Contents