ocean_cpl_ice Subroutine

public subroutine ocean_cpl_ice(rlon, rlat, swnet, lwnet, alb1, fder_old, itime, dtime, knon, knindex, lafin, 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, qsurf, alb1_new, alb2_new, evap, fluxsens, fluxlat, flux_u1, flux_v1, tsurf_new, dflux_s, dflux_l, rhoa)

Uses

  • proc~~ocean_cpl_ice~~UsesGraph proc~ocean_cpl_ice ocean_cpl_ice module~yomcst_mod_h yomcst_mod_h proc~ocean_cpl_ice->module~yomcst_mod_h module~calcul_fluxs_mod calcul_fluxs_mod proc~ocean_cpl_ice->module~calcul_fluxs_mod module~cpl_mod cpl_mod proc~ocean_cpl_ice->module~cpl_mod module~phys_output_var_mod~2 phys_output_var_mod proc~ocean_cpl_ice->module~phys_output_var_mod~2 module~dimphy~3 dimphy proc~ocean_cpl_ice->module~dimphy~3 module~indice_sol_mod indice_sol_mod proc~ocean_cpl_ice->module~indice_sol_mod module~clesphys_mod_h~2 clesphys_mod_h module~calcul_fluxs_mod->module~clesphys_mod_h~2 module~cpl_mod->module~dimphy~3 module~time_phylmdz_mod time_phylmdz_mod module~cpl_mod->module~time_phylmdz_mod module~iophy iophy module~cpl_mod->module~iophy module~mod_phys_lmdz_para mod_phys_lmdz_para module~cpl_mod->module~mod_phys_lmdz_para module~oasis~2 oasis module~cpl_mod->module~oasis~2 ioipsl ioipsl module~cpl_mod->ioipsl module~write_field_phy write_field_phy module~cpl_mod->module~write_field_phy module~phys_output_var_mod~2->module~dimphy~3 module~strings_mod strings_mod module~phys_output_var_mod~2->module~strings_mod module~mod_phys_lmdz_transfert_para mod_phys_lmdz_transfert_para module~mod_phys_lmdz_para->module~mod_phys_lmdz_transfert_para module~mod_phys_lmdz_omp_data mod_phys_lmdz_omp_data module~mod_phys_lmdz_para->module~mod_phys_lmdz_omp_data module~mod_phys_lmdz_mpi_data mod_phys_lmdz_mpi_data module~mod_phys_lmdz_para->module~mod_phys_lmdz_mpi_data module~oasis~2->module~dimphy~3 module~oasis~2->module~mod_phys_lmdz_para module~oasis~2->module~write_field_phy iso_fortran_env iso_fortran_env module~strings_mod->iso_fortran_env module~mod_phys_lmdz_omp_transfert mod_phys_lmdz_omp_transfert module~mod_phys_lmdz_transfert_para->module~mod_phys_lmdz_omp_transfert module~mod_phys_lmdz_mpi_transfert mod_phys_lmdz_mpi_transfert module~mod_phys_lmdz_transfert_para->module~mod_phys_lmdz_mpi_transfert module~lmdz_cppkeys_wrapper lmdz_cppkeys_wrapper module~mod_phys_lmdz_mpi_data->module~lmdz_cppkeys_wrapper module~lmdz_mpi lmdz_mpi module~mod_phys_lmdz_mpi_data->module~lmdz_mpi module~lmdz_cppkeys_wrapper->iso_fortran_env netcdf netcdf module~lmdz_cppkeys_wrapper->netcdf

Receive ocean temperature(tsurf_cpl) and albedo(alb_new) from coupler

Calculate fluxes at surface

Calculate fder : flux derivative (sensible and latente)

Send and cumulate fields to the coupler

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(klon) :: rlon
real, intent(in), DIMENSION(klon) :: rlat
real, intent(in), DIMENSION(klon) :: swnet
real, intent(in), DIMENSION(klon) :: lwnet
real, intent(in), DIMENSION(klon) :: alb1
real, intent(in), DIMENSION(klon) :: fder_old
integer, intent(in) :: itime
real, intent(in) :: dtime
integer, intent(in) :: knon
integer, intent(in), DIMENSION(klon) :: knindex
logical, intent(in) :: lafin
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(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(:)

Calls

proc~~ocean_cpl_ice~~CallsGraph proc~ocean_cpl_ice ocean_cpl_ice proc~cpl_receive_seaice_fields cpl_receive_seaice_fields proc~ocean_cpl_ice->proc~cpl_receive_seaice_fields proc~calcul_flux_wind calcul_flux_wind proc~ocean_cpl_ice->proc~calcul_flux_wind proc~calcul_fluxs calcul_fluxs proc~ocean_cpl_ice->proc~calcul_fluxs proc~cpl_send_seaice_fields cpl_send_seaice_fields proc~ocean_cpl_ice->proc~cpl_send_seaice_fields proc~sens_heat_rain sens_heat_rain proc~calcul_fluxs->proc~sens_heat_rain proc~abort_physic abort_physic proc~cpl_send_seaice_fields->proc~abort_physic proc~gath2cpl gath2cpl proc~cpl_send_seaice_fields->proc~gath2cpl proc~esat esat proc~sens_heat_rain->proc~esat proc~mpi_abort MPI_ABORT proc~abort_physic->proc~mpi_abort getin_dump getin_dump proc~abort_physic->getin_dump restclo restclo proc~abort_physic->restclo histclo histclo proc~abort_physic->histclo interface~gather_omp gather_omp proc~gath2cpl->interface~gather_omp interface~grid1dto2d_mpi grid1dTo2d_mpi proc~gath2cpl->interface~grid1dto2d_mpi proc~lmdz_mpi_wrapper_abort lmdz_mpi_wrapper_abort proc~mpi_abort->proc~lmdz_mpi_wrapper_abort proc~grid1dto2d_mpi_i grid1dTo2d_mpi_i interface~grid1dto2d_mpi->proc~grid1dto2d_mpi_i proc~grid1dto2d_mpi_i3 grid1dTo2d_mpi_i3 interface~grid1dto2d_mpi->proc~grid1dto2d_mpi_i3 proc~grid1dto2d_mpi_r1 grid1dTo2d_mpi_r1 interface~grid1dto2d_mpi->proc~grid1dto2d_mpi_r1 proc~grid1dto2d_mpi_i2 grid1dTo2d_mpi_i2 interface~grid1dto2d_mpi->proc~grid1dto2d_mpi_i2 proc~grid1dto2d_mpi_i1 grid1dTo2d_mpi_i1 interface~grid1dto2d_mpi->proc~grid1dto2d_mpi_i1 proc~grid1dto2d_mpi_r3 grid1dTo2d_mpi_r3 interface~grid1dto2d_mpi->proc~grid1dto2d_mpi_r3 proc~grid1dto2d_mpi_l2 grid1dTo2d_mpi_l2 interface~grid1dto2d_mpi->proc~grid1dto2d_mpi_l2 proc~grid1dto2d_mpi_l3 grid1dTo2d_mpi_l3 interface~grid1dto2d_mpi->proc~grid1dto2d_mpi_l3 proc~grid1dto2d_mpi_r grid1dTo2d_mpi_r interface~grid1dto2d_mpi->proc~grid1dto2d_mpi_r proc~grid1dto2d_mpi_l grid1dTo2d_mpi_l interface~grid1dto2d_mpi->proc~grid1dto2d_mpi_l proc~grid1dto2d_mpi_r2 grid1dTo2d_mpi_r2 interface~grid1dto2d_mpi->proc~grid1dto2d_mpi_r2 proc~grid1dto2d_mpi_l1 grid1dTo2d_mpi_l1 interface~grid1dto2d_mpi->proc~grid1dto2d_mpi_l1 proc~grid1dto2d_mpi_igen grid1dTo2d_mpi_igen proc~grid1dto2d_mpi_i->proc~grid1dto2d_mpi_igen proc~grid1dto2d_mpi_i3->proc~grid1dto2d_mpi_igen proc~grid1dto2d_mpi_rgen grid1dTo2d_mpi_rgen proc~grid1dto2d_mpi_r1->proc~grid1dto2d_mpi_rgen proc~grid1dto2d_mpi_i2->proc~grid1dto2d_mpi_igen proc~grid1dto2d_mpi_i1->proc~grid1dto2d_mpi_igen proc~grid1dto2d_mpi_r3->proc~grid1dto2d_mpi_rgen proc~grid1dto2d_mpi_lgen grid1dTo2d_mpi_lgen proc~grid1dto2d_mpi_l2->proc~grid1dto2d_mpi_lgen proc~grid1dto2d_mpi_l3->proc~grid1dto2d_mpi_lgen proc~grid1dto2d_mpi_r->proc~grid1dto2d_mpi_rgen proc~grid1dto2d_mpi_l->proc~grid1dto2d_mpi_lgen proc~grid1dto2d_mpi_r2->proc~grid1dto2d_mpi_rgen proc~grid1dto2d_mpi_l1->proc~grid1dto2d_mpi_lgen

Called by

proc~~ocean_cpl_ice~~CalledByGraph proc~ocean_cpl_ice ocean_cpl_ice proc~surf_seaice surf_seaice proc~surf_seaice->proc~ocean_cpl_ice proc~surf_seaice~2 surf_seaice proc~surf_seaice~2->proc~ocean_cpl_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