cpl_mod Module

variable for coupling period


Uses

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

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…