ocean_slab_noice Subroutine

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

Uses

  • proc~~ocean_slab_noice~~UsesGraph proc~ocean_slab_noice ocean_slab_noice module~slab_heat_transp_mod slab_heat_transp_mod proc~ocean_slab_noice->module~slab_heat_transp_mod module~calcul_fluxs_mod calcul_fluxs_mod proc~ocean_slab_noice->module~calcul_fluxs_mod module~clesphys_mod_h~2 clesphys_mod_h proc~ocean_slab_noice->module~clesphys_mod_h~2 module~mod_phys_lmdz_para mod_phys_lmdz_para proc~ocean_slab_noice->module~mod_phys_lmdz_para module~mod_grid_phy_lmdz mod_grid_phy_lmdz module~slab_heat_transp_mod->module~mod_grid_phy_lmdz module~calcul_fluxs_mod->module~clesphys_mod_h~2 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_transfert_para mod_phys_lmdz_transfert_para module~mod_phys_lmdz_para->module~mod_phys_lmdz_transfert_para module~mod_phys_lmdz_mpi_data mod_phys_lmdz_mpi_data module~mod_phys_lmdz_para->module~mod_phys_lmdz_mpi_data 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 iso_fortran_env iso_fortran_env module~lmdz_cppkeys_wrapper->iso_fortran_env netcdf netcdf module~lmdz_cppkeys_wrapper->netcdf

2) Q-Flux : get global variables lmt_bils, diff_sst and diff_siv from file limit_slab.nc

3) Recalculate new temperature (add Surf fluxes, Q-Flux, Ocean transport) Bring to freezing temp and make sea ice if necessary

*******o********

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) :: p1lay
real, intent(in), DIMENSION(klon) :: cdragh
real, intent(in), DIMENSION(klon) :: cdragq
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) :: tsurf_in
real, intent(inout), DIMENSION(klon) :: radsol
real, intent(inout), DIMENSION(klon) :: snow
real, intent(out), DIMENSION(klon) :: qsurf
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(out), DIMENSION(klon) :: slab_bils

Calls

proc~~ocean_slab_noice~~CallsGraph proc~ocean_slab_noice ocean_slab_noice proc~limit_slab limit_slab proc~ocean_slab_noice->proc~limit_slab proc~slab_ekman1 slab_ekman1 proc~ocean_slab_noice->proc~slab_ekman1 proc~calbeta calbeta proc~ocean_slab_noice->proc~calbeta proc~calcul_flux_wind calcul_flux_wind proc~ocean_slab_noice->proc~calcul_flux_wind proc~slab_ekman2 slab_ekman2 proc~ocean_slab_noice->proc~slab_ekman2 proc~divgrad_phy divgrad_phy proc~ocean_slab_noice->proc~divgrad_phy interface~gather gather proc~ocean_slab_noice->interface~gather interface~scatter scatter proc~ocean_slab_noice->interface~scatter proc~calcul_fluxs calcul_fluxs proc~ocean_slab_noice->proc~calcul_fluxs proc~limit_slab->interface~scatter proc~abort_physic abort_physic proc~limit_slab->proc~abort_physic nf90_open nf90_open proc~limit_slab->nf90_open nf90_close nf90_close proc~limit_slab->nf90_close nf90_get_var nf90_get_var proc~limit_slab->nf90_get_var interface~bcast bcast proc~limit_slab->interface~bcast nf90_inq_varid nf90_inq_varid proc~limit_slab->nf90_inq_varid proc~gather_l gather_l interface~gather->proc~gather_l proc~gather_i3 gather_i3 interface~gather->proc~gather_i3 proc~gather_r1 gather_r1 interface~gather->proc~gather_r1 proc~gather_l3 gather_l3 interface~gather->proc~gather_l3 proc~gather_r3 gather_r3 interface~gather->proc~gather_r3 proc~gather_r gather_r interface~gather->proc~gather_r proc~gather_r2 gather_r2 interface~gather->proc~gather_r2 proc~gather_i1 gather_i1 interface~gather->proc~gather_i1 proc~gather_l2 gather_l2 interface~gather->proc~gather_l2 proc~gather_i2 gather_i2 interface~gather->proc~gather_i2 proc~gather_l1 gather_l1 interface~gather->proc~gather_l1 proc~gather_i gather_i interface~gather->proc~gather_i proc~scatter_i1 scatter_i1 interface~scatter->proc~scatter_i1 proc~scatter_r scatter_r interface~scatter->proc~scatter_r proc~scatter_r2 scatter_r2 interface~scatter->proc~scatter_r2 proc~scatter_l2 scatter_l2 interface~scatter->proc~scatter_l2 proc~scatter_l3 scatter_l3 interface~scatter->proc~scatter_l3 proc~scatter_i2 scatter_i2 interface~scatter->proc~scatter_i2 proc~scatter_l1 scatter_l1 interface~scatter->proc~scatter_l1 proc~scatter_r3 scatter_r3 interface~scatter->proc~scatter_r3 proc~scatter_i scatter_i interface~scatter->proc~scatter_i proc~scatter_i3 scatter_i3 interface~scatter->proc~scatter_i3 proc~scatter_r1 scatter_r1 interface~scatter->proc~scatter_r1 proc~scatter_l scatter_l interface~scatter->proc~scatter_l proc~sens_heat_rain sens_heat_rain proc~calcul_fluxs->proc~sens_heat_rain 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 interface~gather_mpi gather_mpi proc~gather_l->interface~gather_mpi interface~gather_omp gather_omp proc~gather_l->interface~gather_omp proc~gather_i3->interface~gather_mpi proc~gather_i3->interface~gather_omp interface~scatter_mpi scatter_mpi proc~scatter_i1->interface~scatter_mpi interface~scatter_omp scatter_omp proc~scatter_i1->interface~scatter_omp proc~scatter_r->interface~scatter_mpi proc~scatter_r->interface~scatter_omp proc~scatter_r2->interface~scatter_mpi proc~scatter_r2->interface~scatter_omp proc~scatter_l2->interface~scatter_mpi proc~scatter_l2->interface~scatter_omp proc~scatter_l3->interface~scatter_mpi proc~scatter_l3->interface~scatter_omp proc~gather_r1->interface~gather_mpi proc~gather_r1->interface~gather_omp proc~gather_l3->interface~gather_mpi proc~gather_l3->interface~gather_omp proc~gather_r3->interface~gather_mpi proc~gather_r3->interface~gather_omp proc~esat esat proc~sens_heat_rain->proc~esat proc~gather_r->interface~gather_mpi proc~gather_r->interface~gather_omp proc~scatter_i2->interface~scatter_mpi proc~scatter_i2->interface~scatter_omp 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 proc~gather_r2->interface~gather_mpi proc~gather_r2->interface~gather_omp proc~scatter_l1->interface~scatter_mpi proc~scatter_l1->interface~scatter_omp proc~scatter_r3->interface~scatter_mpi proc~scatter_r3->interface~scatter_omp proc~gather_i1->interface~gather_mpi proc~gather_i1->interface~gather_omp proc~gather_l2->interface~gather_mpi proc~gather_l2->interface~gather_omp proc~scatter_i->interface~scatter_mpi proc~scatter_i->interface~scatter_omp proc~scatter_i3->interface~scatter_mpi proc~scatter_i3->interface~scatter_omp proc~scatter_r1->interface~scatter_mpi proc~scatter_r1->interface~scatter_omp proc~scatter_l->interface~scatter_mpi proc~scatter_l->interface~scatter_omp proc~gather_i2->interface~gather_mpi proc~gather_i2->interface~gather_omp proc~gather_l1->interface~gather_mpi proc~gather_l1->interface~gather_omp proc~gather_i->interface~gather_mpi proc~gather_i->interface~gather_omp interface~bcast_omp bcast_omp proc~bcast_i4->interface~bcast_omp interface~bcast_mpi bcast_mpi proc~bcast_i4->interface~bcast_mpi proc~bcast_r->interface~bcast_omp proc~bcast_r->interface~bcast_mpi proc~scatter_mpi_i1 scatter_mpi_i1 interface~scatter_mpi->proc~scatter_mpi_i1 proc~scatter_mpi_r3 scatter_mpi_r3 interface~scatter_mpi->proc~scatter_mpi_r3 proc~scatter_mpi_r1 scatter_mpi_r1 interface~scatter_mpi->proc~scatter_mpi_r1 proc~scatter_mpi_l3 scatter_mpi_l3 interface~scatter_mpi->proc~scatter_mpi_l3 proc~scatter_mpi_l scatter_mpi_l interface~scatter_mpi->proc~scatter_mpi_l proc~scatter_mpi_l1 scatter_mpi_l1 interface~scatter_mpi->proc~scatter_mpi_l1 proc~scatter_mpi_i scatter_mpi_i interface~scatter_mpi->proc~scatter_mpi_i proc~scatter_mpi_r2 scatter_mpi_r2 interface~scatter_mpi->proc~scatter_mpi_r2 proc~scatter_mpi_i3 scatter_mpi_i3 interface~scatter_mpi->proc~scatter_mpi_i3 proc~scatter_mpi_i2 scatter_mpi_i2 interface~scatter_mpi->proc~scatter_mpi_i2 proc~scatter_mpi_l2 scatter_mpi_l2 interface~scatter_mpi->proc~scatter_mpi_l2 proc~scatter_mpi_r scatter_mpi_r interface~scatter_mpi->proc~scatter_mpi_r proc~bcast_r2->interface~bcast_omp proc~bcast_r2->interface~bcast_mpi proc~gather_mpi_i3 gather_mpi_i3 interface~gather_mpi->proc~gather_mpi_i3 proc~gather_mpi_l2 gather_mpi_l2 interface~gather_mpi->proc~gather_mpi_l2 proc~gather_mpi_i1 gather_mpi_i1 interface~gather_mpi->proc~gather_mpi_i1 proc~gather_mpi_r3 gather_mpi_r3 interface~gather_mpi->proc~gather_mpi_r3 proc~gather_mpi_r1 gather_mpi_r1 interface~gather_mpi->proc~gather_mpi_r1 proc~gather_mpi_i gather_mpi_i interface~gather_mpi->proc~gather_mpi_i proc~gather_mpi_r2 gather_mpi_r2 interface~gather_mpi->proc~gather_mpi_r2 proc~gather_mpi_r gather_mpi_r interface~gather_mpi->proc~gather_mpi_r proc~gather_mpi_l3 gather_mpi_l3 interface~gather_mpi->proc~gather_mpi_l3 proc~gather_mpi_i2 gather_mpi_i2 interface~gather_mpi->proc~gather_mpi_i2 proc~gather_mpi_l gather_mpi_l interface~gather_mpi->proc~gather_mpi_l proc~gather_mpi_l1 gather_mpi_l1 interface~gather_mpi->proc~gather_mpi_l1 proc~bcast_r1->interface~bcast_omp proc~bcast_r1->interface~bcast_mpi proc~lmdz_mpi_wrapper_abort lmdz_mpi_wrapper_abort proc~mpi_abort->proc~lmdz_mpi_wrapper_abort proc~bcast_l2->interface~bcast_omp proc~bcast_l2->interface~bcast_mpi proc~bcast_r3->interface~bcast_omp proc~bcast_r3->interface~bcast_mpi proc~bcast_i->interface~bcast_omp proc~bcast_i->interface~bcast_mpi proc~bcast_i1->interface~bcast_omp proc~bcast_i1->interface~bcast_mpi proc~bcast_l1->interface~bcast_omp proc~bcast_l1->interface~bcast_mpi proc~bcast_l4->interface~bcast_omp proc~bcast_l4->interface~bcast_mpi proc~bcast_c->interface~bcast_omp proc~bcast_c->interface~bcast_mpi proc~bcast_i3->interface~bcast_omp proc~bcast_i3->interface~bcast_mpi proc~bcast_l->interface~bcast_omp proc~bcast_l->interface~bcast_mpi proc~bcast_l3->interface~bcast_omp proc~bcast_l3->interface~bcast_mpi proc~bcast_i2->interface~bcast_omp proc~bcast_i2->interface~bcast_mpi proc~bcast_r4->interface~bcast_omp proc~bcast_r4->interface~bcast_mpi proc~scatter_mpi_igen scatter_mpi_igen proc~scatter_mpi_i1->proc~scatter_mpi_igen proc~gather_mpi_igen gather_mpi_igen proc~gather_mpi_i3->proc~gather_mpi_igen proc~scatter_mpi_rgen scatter_mpi_rgen proc~scatter_mpi_r3->proc~scatter_mpi_rgen proc~gather_mpi_lgen gather_mpi_lgen proc~gather_mpi_l2->proc~gather_mpi_lgen proc~gather_mpi_i1->proc~gather_mpi_igen proc~scatter_mpi_r1->proc~scatter_mpi_rgen proc~gather_mpi_rgen gather_mpi_rgen proc~gather_mpi_r3->proc~gather_mpi_rgen proc~gather_mpi_r1->proc~gather_mpi_rgen proc~scatter_mpi_lgen scatter_mpi_lgen proc~scatter_mpi_l3->proc~scatter_mpi_lgen proc~scatter_mpi_l->proc~scatter_mpi_lgen proc~gather_mpi_i->proc~gather_mpi_igen proc~gather_mpi_r2->proc~gather_mpi_rgen proc~gather_mpi_r->proc~gather_mpi_rgen proc~scatter_mpi_l1->proc~scatter_mpi_lgen proc~gather_mpi_l3->proc~gather_mpi_lgen proc~scatter_mpi_i->proc~scatter_mpi_igen proc~scatter_mpi_r2->proc~scatter_mpi_rgen proc~gather_mpi_i2->proc~gather_mpi_igen proc~scatter_mpi_i3->proc~scatter_mpi_igen proc~gather_mpi_l->proc~gather_mpi_lgen proc~scatter_mpi_i2->proc~scatter_mpi_igen proc~scatter_mpi_l2->proc~scatter_mpi_lgen proc~gather_mpi_l1->proc~gather_mpi_lgen 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_i bcast_mpi_i interface~bcast_mpi->proc~bcast_mpi_i proc~bcast_mpi_i1 bcast_mpi_i1 interface~bcast_mpi->proc~bcast_mpi_i1 proc~bcast_mpi_l bcast_mpi_l interface~bcast_mpi->proc~bcast_mpi_l proc~bcast_mpi_l3 bcast_mpi_l3 interface~bcast_mpi->proc~bcast_mpi_l3 proc~bcast_mpi_r3 bcast_mpi_r3 interface~bcast_mpi->proc~bcast_mpi_r3 proc~bcast_mpi_i4 bcast_mpi_i4 interface~bcast_mpi->proc~bcast_mpi_i4 proc~bcast_mpi_i3 bcast_mpi_i3 interface~bcast_mpi->proc~bcast_mpi_i3 proc~bcast_mpi_r1 bcast_mpi_r1 interface~bcast_mpi->proc~bcast_mpi_r1 proc~bcast_mpi_l1 bcast_mpi_l1 interface~bcast_mpi->proc~bcast_mpi_l1 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_r bcast_mpi_r interface~bcast_mpi->proc~bcast_mpi_r proc~bcast_mpi_l2 bcast_mpi_l2 interface~bcast_mpi->proc~bcast_mpi_l2 proc~bcast_mpi_i2 bcast_mpi_i2 interface~bcast_mpi->proc~bcast_mpi_i2 proc~scatter_mpi_r->proc~scatter_mpi_rgen 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~mpi_scatterv MPI_SCATTERV proc~scatter_mpi_rgen->proc~mpi_scatterv proc~bcast_mpi_igen bcast_mpi_igen proc~bcast_mpi_i->proc~bcast_mpi_igen proc~bcast_mpi_i1->proc~bcast_mpi_igen proc~bcast_mpi_l->proc~bcast_mpi_lgen proc~mpi_gatherv MPI_GATHERV proc~gather_mpi_rgen->proc~mpi_gatherv proc~bcast_mpi_l3->proc~bcast_mpi_lgen proc~bcast_mpi_rgen bcast_mpi_rgen proc~bcast_mpi_r3->proc~bcast_mpi_rgen proc~scatter_mpi_lgen->proc~mpi_scatterv proc~bcast_mpi_i4->proc~bcast_mpi_igen proc~scatter_mpi_igen->proc~mpi_scatterv proc~bcast_mpi_i3->proc~bcast_mpi_igen proc~bcast_mpi_r1->proc~bcast_mpi_rgen proc~gather_mpi_lgen->proc~mpi_gatherv proc~bcast_mpi_l1->proc~bcast_mpi_lgen proc~bcast_mpi_r2->proc~bcast_mpi_rgen proc~bcast_mpi_r4->proc~bcast_mpi_rgen proc~bcast_mpi_r->proc~bcast_mpi_rgen proc~bcast_mpi_l2->proc~bcast_mpi_lgen proc~gather_mpi_igen->proc~mpi_gatherv proc~bcast_mpi_i2->proc~bcast_mpi_igen proc~mpi_bcast MPI_BCAST proc~bcast_mpi_cgen->proc~mpi_bcast proc~mpi_scatterv->proc~lmdz_mpi_wrapper_abort proc~bcast_mpi_igen->proc~mpi_bcast proc~mpi_gatherv->proc~lmdz_mpi_wrapper_abort proc~bcast_mpi_rgen->proc~mpi_bcast proc~bcast_mpi_lgen->proc~mpi_bcast proc~mpi_bcast->proc~lmdz_mpi_wrapper_abort

Called by

proc~~ocean_slab_noice~~CalledByGraph proc~ocean_slab_noice ocean_slab_noice proc~surf_ocean surf_ocean proc~surf_ocean->proc~ocean_slab_noice proc~surf_ocean~2 surf_ocean proc~surf_ocean~2->proc~ocean_slab_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