LMDZ
Functions/Subroutines | Variables
ocean_slab_mod Module Reference

Functions/Subroutines

subroutine, public ocean_slab_init (dtime, pctsrf_rst)
 
subroutine, public ocean_slab_frac (itime, dtime, jour, pctsrf_chg, is_modified)
 
subroutine, public 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, qflux)
 
subroutine, public 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)
 
subroutine ocean_slab_final
 

Variables

integer, save, private cpl_pas
 
real, save, private cyang
 
real, dimension(:), allocatable, save, private slabh
 
real, dimension(:,:), allocatable, save, public tslab
 
real, dimension(:), allocatable, save, public fsic
 
real, dimension(:), allocatable, save, public tice
 
real, dimension(:), allocatable, save, public seaice
 
real, dimension(:), allocatable, save, public slab_bils
 
real, dimension(:), allocatable, save, private bils_cum
 
real, dimension(:), allocatable, save, public slab_bilg
 
real, dimension(:), allocatable, save, private bilg_cum
 
real, parameter t_freeze =271.35
 
real, parameter t_melt =273.15
 
real, parameter sno_den =300.
 
real, parameter ice_den =917.
 
real, parameter sea_den =1025.
 
real, parameter ice_cond =2.17*ice_den
 
real, parameter sno_cond =0.31*sno_den
 
real, parameter ice_cap =2067.
 
real, parameter ice_lat =334000.
 
real, parameter snow_min =0.05*sno_den
 
real, parameter snow_wfact =0.4
 
real, parameter ice_frac_min =0.001
 
real, parameter ice_frac_max =1.
 
real, parameter h_ice_min =0.01*ice_den
 
real, parameter h_ice_thin =0.15*ice_den
 
real, parameter h_ice_thick =2.5*ice_den
 
real, parameter h_ice_new =1.*ice_den
 
real, parameter h_ice_max =10.*ice_den
 
real, parameter alb_sno_min =0.55
 
real, parameter alb_sno_del =0.3
 
real, parameter alb_ice_dry =0.75
 
real, parameter alb_ice_wet =0.66
 
real, parameter pen_frac =0.3
 
real, parameter pen_ext =1.5
 

Function/Subroutine Documentation

subroutine ocean_slab_mod::ocean_slab_final ( )

Definition at line 687 of file ocean_slab_mod.F90.

subroutine, public ocean_slab_mod::ocean_slab_frac ( integer, intent(in)  itime,
real, intent(in)  dtime,
integer, intent(in)  jour,
real, dimension(klon,nbsrf), intent(inout)  pctsrf_chg,
logical, intent(out)  is_modified 
)

Definition at line 187 of file ocean_slab_mod.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 403 of file ocean_slab_mod.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine, public ocean_slab_mod::ocean_slab_init ( real, intent(in)  dtime,
real, dimension(klon, nbsrf), intent(in)  pctsrf_rst 
)

Definition at line 86 of file ocean_slab_mod.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine, public ocean_slab_mod::ocean_slab_noice ( integer, intent(in)  itime,
real, intent(in)  dtime,
integer, intent(in)  jour,
integer, intent(in)  knon,
integer, dimension(klon), intent(in)  knindex,
real, dimension(klon), intent(in)  p1lay,
real, dimension(klon), intent(in)  cdragh,
real, dimension(klon), intent(in)  cdragq,
real, dimension(klon), intent(in)  cdragm,
real, dimension(klon), intent(in)  precip_rain,
real, dimension(klon), intent(in)  precip_snow,
real, dimension(klon), intent(in)  temp_air,
real, dimension(klon), intent(in)  spechum,
real, dimension(klon), intent(in)  AcoefH,
real, dimension(klon), intent(in)  AcoefQ,
real, dimension(klon), intent(in)  BcoefH,
real, dimension(klon), intent(in)  BcoefQ,
real, dimension(klon), intent(in)  AcoefU,
real, dimension(klon), intent(in)  AcoefV,
real, dimension(klon), intent(in)  BcoefU,
real, dimension(klon), intent(in)  BcoefV,
real, dimension(klon), intent(in)  ps,
real, dimension(klon), intent(in)  u1,
real, dimension(klon), intent(in)  v1,
real, dimension(klon), intent(in)  gustiness,
real, dimension(klon), intent(in)  tsurf_in,
real, dimension(klon), intent(inout)  radsol,
real, dimension(klon), intent(inout)  snow,
real, dimension(klon), intent(out)  qsurf,
real, dimension(klon), intent(out)  evap,
real, dimension(klon), intent(out)  fluxsens,
real, dimension(klon), intent(out)  fluxlat,
real, dimension(klon), intent(out)  flux_u1,
real, dimension(klon), intent(out)  flux_v1,
real, dimension(klon), intent(out)  tsurf_new,
real, dimension(klon), intent(out)  dflux_s,
real, dimension(klon), intent(out)  dflux_l,
real, dimension(klon), intent(out)  qflux 
)

Definition at line 224 of file ocean_slab_mod.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

real, parameter ocean_slab_mod::alb_ice_dry =0.75

Definition at line 74 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::alb_ice_wet =0.66

Definition at line 75 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::alb_sno_del =0.3

Definition at line 73 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::alb_sno_min =0.55

Definition at line 72 of file ocean_slab_mod.F90.

real, dimension(:), allocatable, save, private ocean_slab_mod::bilg_cum

Definition at line 40 of file ocean_slab_mod.F90.

real, dimension(:), allocatable, save, private ocean_slab_mod::bils_cum

Definition at line 36 of file ocean_slab_mod.F90.

integer, save, private ocean_slab_mod::cpl_pas

Definition at line 20 of file ocean_slab_mod.F90.

real, save, private ocean_slab_mod::cyang

Definition at line 22 of file ocean_slab_mod.F90.

real, dimension(:), allocatable, save, public ocean_slab_mod::fsic

Definition at line 28 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::h_ice_max =10.*ice_den

Definition at line 69 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::h_ice_min =0.01*ice_den

Definition at line 62 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::h_ice_new =1.*ice_den

Definition at line 68 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::h_ice_thick =2.5*ice_den

Definition at line 66 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::h_ice_thin =0.15*ice_den

Definition at line 63 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::ice_cap =2067.

Definition at line 54 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::ice_cond =2.17*ice_den

Definition at line 52 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::ice_den =917.

Definition at line 50 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::ice_frac_max =1.

Definition at line 61 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::ice_frac_min =0.001

Definition at line 60 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::ice_lat =334000.

Definition at line 55 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::pen_ext =1.5

Definition at line 77 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::pen_frac =0.3

Definition at line 76 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::sea_den =1025.

Definition at line 51 of file ocean_slab_mod.F90.

real, dimension(:), allocatable, save, public ocean_slab_mod::seaice

Definition at line 32 of file ocean_slab_mod.F90.

real, dimension(:), allocatable, save, public ocean_slab_mod::slab_bilg

Definition at line 38 of file ocean_slab_mod.F90.

real, dimension(:), allocatable, save, public ocean_slab_mod::slab_bils

Definition at line 34 of file ocean_slab_mod.F90.

real, dimension(:), allocatable, save, private ocean_slab_mod::slabh

Definition at line 24 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::sno_cond =0.31*sno_den

Definition at line 53 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::sno_den =300.

Definition at line 49 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::snow_min =0.05*sno_den

Definition at line 58 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::snow_wfact =0.4

Definition at line 59 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::t_freeze =271.35

Definition at line 47 of file ocean_slab_mod.F90.

real, parameter ocean_slab_mod::t_melt =273.15

Definition at line 48 of file ocean_slab_mod.F90.

real, dimension(:), allocatable, save, public ocean_slab_mod::tice

Definition at line 30 of file ocean_slab_mod.F90.

real, dimension(:,:), allocatable, save, public ocean_slab_mod::tslab

Definition at line 26 of file ocean_slab_mod.F90.