cpl_send_ocean_fields Subroutine

public subroutine cpl_send_ocean_fields(itime, knon, knindex, swdown, lwdown, fluxlat, fluxsens, precip_rain, precip_snow, evap, tsurf, fder, albsol, taux, tauy, windsp, sens_prec_liq, sens_prec_sol, lat_prec_liq, lat_prec_sol, delta_sst, delta_sal, dter, dser, dt_ds)

Uses

  • proc~~cpl_send_ocean_fields~~UsesGraph proc~cpl_send_ocean_fields cpl_send_ocean_fields module~indice_sol_mod indice_sol_mod proc~cpl_send_ocean_fields->module~indice_sol_mod module~mod_grid_phy_lmdz mod_grid_phy_lmdz proc~cpl_send_ocean_fields->module~mod_grid_phy_lmdz module~config_ocean_skin_m~2 config_ocean_skin_m proc~cpl_send_ocean_fields->module~config_ocean_skin_m~2 module~carbon_cycle_mod carbon_cycle_mod proc~cpl_send_ocean_fields->module~carbon_cycle_mod

Reset fields to zero in the beginning of a new coupling period

Cumulate at each time-step

---OB: this is correct but why knindex ??

If the time-step corresponds to the end of coupling period the fields are transformed to the 2D grid. No sending to the coupler (it is done from cpl_send_seaice_fields).

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: itime
integer, intent(in) :: knon
integer, intent(in), DIMENSION(klon) :: knindex
real, intent(in), DIMENSION(klon) :: swdown
real, intent(in), DIMENSION(klon) :: lwdown
real, intent(in), DIMENSION(klon) :: fluxlat
real, intent(in), DIMENSION(klon) :: fluxsens
real, intent(in), DIMENSION(klon) :: precip_rain
real, intent(in), DIMENSION(klon) :: precip_snow
real, intent(in), DIMENSION(klon) :: evap
real, intent(in), DIMENSION(klon) :: tsurf
real, intent(in), DIMENSION(klon) :: fder
real, intent(in), DIMENSION(klon) :: albsol
real, intent(in), DIMENSION(klon) :: taux
real, intent(in), DIMENSION(klon) :: tauy
real, intent(in), DIMENSION(klon) :: windsp
real, intent(in) :: sens_prec_liq(:)
real, intent(in) :: sens_prec_sol(:)
real, intent(in), DIMENSION(klon) :: lat_prec_liq
real, intent(in), DIMENSION(klon) :: lat_prec_sol
real, intent(in) :: delta_sst(:)
real, intent(in) :: delta_sal(:)
real, intent(in) :: dter(:)
real, intent(in) :: dser(:)
real, intent(in) :: dt_ds(:)

Calls

proc~~cpl_send_ocean_fields~~CallsGraph proc~cpl_send_ocean_fields cpl_send_ocean_fields proc~abort_physic abort_physic proc~cpl_send_ocean_fields->proc~abort_physic proc~gath2cpl gath2cpl proc~cpl_send_ocean_fields->proc~gath2cpl 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~~cpl_send_ocean_fields~~CalledByGraph proc~cpl_send_ocean_fields cpl_send_ocean_fields proc~ocean_cpl_noice ocean_cpl_noice proc~ocean_cpl_noice->proc~cpl_send_ocean_fields proc~ocean_cpl_noice~2 ocean_cpl_noice proc~ocean_cpl_noice~2->proc~cpl_send_ocean_fields proc~surf_ocean surf_ocean proc~surf_ocean->proc~ocean_cpl_noice proc~surf_ocean~2 surf_ocean proc~surf_ocean~2->proc~ocean_cpl_noice proc~pbl_surface pbl_surface proc~pbl_surface->proc~surf_ocean proc~pbl_surface~2 pbl_surface proc~pbl_surface~2->proc~surf_ocean 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