ocean_slab_mod Module

Global saved variables

number of slab vertical layers


Uses

  • module~~ocean_slab_mod~2~~UsesGraph module~ocean_slab_mod~2 ocean_slab_mod module~mod_phys_lmdz_mpi_data mod_phys_lmdz_mpi_data module~ocean_slab_mod~2->module~mod_phys_lmdz_mpi_data module~surface_data surface_data module~ocean_slab_mod~2->module~surface_data module~dimphy~3 dimphy module~ocean_slab_mod~2->module~dimphy~3 module~mod_grid_phy_lmdz mod_grid_phy_lmdz module~ocean_slab_mod~2->module~mod_grid_phy_lmdz module~indice_sol_mod indice_sol_mod module~ocean_slab_mod~2->module~indice_sol_mod module~lmdz_mpi lmdz_mpi module~mod_phys_lmdz_mpi_data->module~lmdz_mpi module~lmdz_cppkeys_wrapper lmdz_cppkeys_wrapper module~mod_phys_lmdz_mpi_data->module~lmdz_cppkeys_wrapper iso_fortran_env iso_fortran_env module~lmdz_cppkeys_wrapper->iso_fortran_env netcdf netcdf module~lmdz_cppkeys_wrapper->netcdf

Contents

Variables

Subroutines


Variables

Type Visibility Attributes Name Initial
integer, public, SAVE :: nslay
real, public, ALLOCATABLE, DIMENSION(:,:), SAVE :: tslab
real, public, ALLOCATABLE, DIMENSION(:,:), SAVE :: dt_ekman
real, public, ALLOCATABLE, DIMENSION(:,:), SAVE :: dt_hdiff
real, public, ALLOCATABLE, DIMENSION(:,:), SAVE :: dt_gm
real, public, ALLOCATABLE, DIMENSION(:,:), SAVE :: dt_qflux
real, public, ALLOCATABLE, DIMENSION(:), SAVE :: fsic

$OMP THREADPRIVATE(tice_slab)
real, public, ALLOCATABLE, DIMENSION(:), SAVE :: tice_slab
real, public, ALLOCATABLE, DIMENSION(:), SAVE :: seaice
real, public, ALLOCATABLE, DIMENSION(:), SAVE :: slab_bilg
logical, public, SAVE :: slab_hdiff
logical, public, SAVE :: slab_gm
integer, public, SAVE :: slab_ekman
integer, public, SAVE :: slab_cadj

Subroutines

public subroutine ocean_slab_init(dtime, pctsrf_rst)

Allocate surface fraction read from restart file

Read more…

Arguments

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

public subroutine ocean_slab_frac(itime, dtime, jour, pctsrf_chg, is_modified)

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: itime
real, intent(in) :: dtime
integer, intent(in) :: jour
real, intent(inout), DIMENSION(klon,nbsrf) :: pctsrf_chg
logical, intent(out) :: is_modified

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)

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

Read more…

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 Read more…
real, intent(inout), DIMENSION(klon) :: snow Read more…
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 Read more…

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

2) Update snow and ice surface

Read more…

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) :: tsurf_in
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(inout), DIMENSION(klon) :: radsol Read more…
real, intent(inout), DIMENSION(klon) :: snow
real, intent(out), DIMENSION(klon) :: qsurf
real, intent(inout), DIMENSION(klon) :: qsol
real, intent(inout), DIMENSION(klon) :: agesno
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 Read more…
real, intent(out), DIMENSION(klon) :: dflux_l Read more…
real, intent(in), DIMENSION(klon) :: swnet Read more…