cpl_mod Module

variable for coupling period


Uses

  • module~~cpl_mod~~UsesGraph module~cpl_mod cpl_mod 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~dimphy~3 dimphy module~cpl_mod->module~dimphy~3 ioipsl ioipsl module~cpl_mod->ioipsl module~write_field_phy write_field_phy module~cpl_mod->module~write_field_phy module~oasis~2 oasis module~cpl_mod->module~oasis~2 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~mod_phys_lmdz_para module~oasis~2->module~dimphy~3 module~oasis~2->module~write_field_phy 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

Used by

  • module~~cpl_mod~~UsedByGraph module~cpl_mod cpl_mod module~pbl_surface_mod pbl_surface_mod module~pbl_surface_mod->module~cpl_mod proc~ocean_cpl_init~2 ocean_cpl_init proc~ocean_cpl_init~2->module~cpl_mod proc~change_srf_frac change_srf_frac proc~change_srf_frac->module~cpl_mod proc~change_srf_frac->module~pbl_surface_mod proc~surf_land_bucket_hetero~2 surf_land_bucket_hetero proc~surf_land_bucket_hetero~2->module~cpl_mod proc~surf_land_bucket surf_land_bucket proc~surf_land_bucket->module~cpl_mod proc~ocean_cpl_ice ocean_cpl_ice proc~ocean_cpl_ice->module~cpl_mod module~surf_land_orchidee_mod surf_land_orchidee_mod module~surf_land_orchidee_mod->module~cpl_mod proc~surf_land_bucket_hetero surf_land_bucket_hetero proc~surf_land_bucket_hetero->module~cpl_mod module~pbl_surface_mod~2 pbl_surface_mod module~pbl_surface_mod~2->module~cpl_mod proc~ocean_cpl_noice ocean_cpl_noice proc~ocean_cpl_noice->module~cpl_mod proc~ocean_cpl_init ocean_cpl_init proc~ocean_cpl_init->module~cpl_mod proc~surf_landice surf_landice proc~surf_landice->module~cpl_mod proc~surf_landice~2 surf_landice proc~surf_landice~2->module~cpl_mod proc~change_srf_frac~2 change_srf_frac proc~change_srf_frac~2->module~cpl_mod proc~change_srf_frac~2->module~pbl_surface_mod proc~ocean_cpl_noice~2 ocean_cpl_noice proc~ocean_cpl_noice~2->module~cpl_mod proc~ocean_cpl_ice~2 ocean_cpl_ice proc~ocean_cpl_ice~2->module~cpl_mod proc~surf_land_bucket~2 surf_land_bucket proc~surf_land_bucket~2->module~cpl_mod module~surf_land_orchidee_mod~2 surf_land_orchidee_mod module~surf_land_orchidee_mod~2->module~cpl_mod proc~old_lmdz1d old_lmdz1d proc~old_lmdz1d->module~pbl_surface_mod proc~phyredem~2 phyredem proc~phyredem~2->module~pbl_surface_mod proc~iniaqua~2 iniaqua proc~iniaqua~2->module~pbl_surface_mod proc~physiq physiq proc~physiq->module~pbl_surface_mod proc~phys_output_write~2 phys_output_write proc~phys_output_write~2->module~pbl_surface_mod proc~phyredem phyredem proc~phyredem->module~pbl_surface_mod proc~scm scm proc~scm->module~pbl_surface_mod proc~create_etat0_unstruct~2 create_etat0_unstruct proc~create_etat0_unstruct~2->module~pbl_surface_mod proc~phys_output_write_spl~2 phys_output_write_spl proc~phys_output_write_spl~2->module~pbl_surface_mod proc~iniaqua~3 iniaqua proc~iniaqua~3->module~pbl_surface_mod proc~surf_land surf_land proc~surf_land->module~surf_land_orchidee_mod proc~phyetat0 phyetat0 proc~phyetat0->module~pbl_surface_mod proc~phyetat0~2 phyetat0 proc~phyetat0~2->module~pbl_surface_mod proc~surf_land~2 surf_land proc~surf_land~2->module~surf_land_orchidee_mod proc~phys_output_write_spl phys_output_write_spl proc~phys_output_write_spl->module~pbl_surface_mod proc~create_etat0_unstruct create_etat0_unstruct proc~create_etat0_unstruct->module~pbl_surface_mod proc~physiq~2 physiq proc~physiq~2->module~pbl_surface_mod proc~etat0phys_netcdf etat0phys_netcdf proc~etat0phys_netcdf->module~pbl_surface_mod proc~phys_output_write phys_output_write proc~phys_output_write->module~pbl_surface_mod

Contents

Subroutines


Subroutines

public subroutine cpl_init(dtime, rlon, rlat)

Calculate coupling period

Read more…

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: dtime
real, intent(in), DIMENSION(klon) :: rlon Read more…
real, intent(in), DIMENSION(klon) :: rlat Read more…

public subroutine cpl_receive_frac(itime, dtime, pctsrf, is_modified)

Transform seaice fraction (read_sic : ocean-seaice mask) into global fraction (pctsrf : ocean-seaice-land-landice mask)

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: itime
real, intent(in) :: dtime
real, intent(inout), DIMENSION(klon,nbsrf) :: pctsrf
logical, intent(out) :: is_modified Read more…

public subroutine cpl_receive_ocean_fields(knon, knindex, tsurf_new, u0_new, v0_new, sss)

Transform read_co2 into uncompressed 1D variable fco2_ocn_day added directly in the module carbon_cycle_mod

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: knon
integer, intent(in), DIMENSION(klon) :: knindex Read more…
real, intent(out), DIMENSION(klon) :: tsurf_new
real, intent(out), DIMENSION(klon) :: u0_new
real, intent(out), DIMENSION(klon) :: v0_new Read more…
real, intent(out) :: sss(:)

public subroutine cpl_receive_seaice_fields(knon, knindex, tsurf_new, alb_new, u0_new, v0_new)

The fields received from the coupler have to be weighted with the sea-ice concentration (in relation to the total sea-ice + ocean).

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: knon
integer, intent(in), DIMENSION(klon) :: knindex Read more…
real, intent(out), DIMENSION(klon) :: tsurf_new
real, intent(out), DIMENSION(klon) :: alb_new
real, intent(out), DIMENSION(klon) :: u0_new
real, intent(out), DIMENSION(klon) :: v0_new Read more…

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)

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

Read more…

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(:) Read more…

public subroutine cpl_send_seaice_fields(itime, dtime, knon, knindex, pctsrf, lafin, rlon, rlat, swdown, lwdown, fluxlat, fluxsens, precip_rain, precip_snow, evap, tsurf, fder, albsol, taux, tauy, sens_prec_liq, sens_prec_sol, lat_prec_liq, lat_prec_sol)

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

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: itime
real, intent(in) :: dtime
integer, intent(in) :: knon
integer, intent(in), DIMENSION(klon) :: knindex
real, intent(in), DIMENSION(klon,nbsrf) :: pctsrf
logical, intent(in) :: lafin Read more…
real, intent(in), DIMENSION(klon) :: rlon
real, intent(in), DIMENSION(klon) :: rlat
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) :: 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

public subroutine cpl_send_land_fields(itime, knon, knindex, rriv_in, rcoa_in)

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

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: itime
integer, intent(in) :: knon
integer, intent(in), DIMENSION(klon) :: knindex
real, intent(in), DIMENSION(klon) :: rriv_in
real, intent(in), DIMENSION(klon) :: rcoa_in Read more…

public subroutine cpl_send_landice_fields(itime, knon, knindex, rlic_in, rlic_in_frac)

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

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: itime
integer, intent(in) :: knon
integer, intent(in), DIMENSION(klon) :: knindex
real, intent(in), DIMENSION(klon) :: rlic_in
real, intent(in), DIMENSION(klon) :: rlic_in_frac Read more…

public subroutine gath2cpl(champ_in, champ_out, knon, knindex)

Read more…

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(klon) :: champ_in
real, intent(out), DIMENSION(nbp_lon,jj_nb) :: champ_out Read more…
integer, intent(in) :: knon
integer, intent(in), DIMENSION(klon) :: knindex Read more…