mod_land_vars Module Reference

module LAND Variables More...

Functions/Subroutines
subroutine, public	land_vars_setup
	Setup. More...
subroutine, public	land_vars_restart_open
	Open land restart file for read. More...
subroutine, public	land_vars_restart_read
	Read land restart. More...
subroutine, public	land_vars_history
	History output set for land variables. More...
subroutine, public	land_vars_total
	Budget monitor for land. More...
real(rp) function, dimension(lia, lja), public	convert_ws2vwc (WS, critical)
	conversion from water saturation [fraction] to volumetric water content [m3/m3] More...
subroutine, public	land_vars_restart_create
	Create land restart file. More...
subroutine, public	land_vars_restart_enddef
	Exit netCDF define mode. More...
subroutine, public	land_vars_restart_close
	Close restart file. More...
subroutine, public	land_vars_restart_def_var
	Define land variables in restart file. More...
subroutine, public	land_vars_restart_write
	Write land variables to restart file. More...

Variables
logical, public	land_restart_output = .false.
	Output restart file? More...
character(len=h_long), public	land_restart_in_basename = ''
	Basename of the input file. More...
logical, public	land_restart_in_aggregate
	Switch to use aggregate file. More...
logical, public	land_restart_in_postfix_timelabel = .false.
	Add timelabel to the basename of input file? More...
character(len=h_long), public	land_restart_out_basename = ''
	Basename of the output file. More...
logical, public	land_restart_out_aggregate
	Switch to use aggregate file. More...
logical, public	land_restart_out_postfix_timelabel = .true.
	Add timelabel to the basename of output file? More...
character(len=h_mid), public	land_restart_out_title = 'LAND restart'
	Title of the output file. More...
character(len=h_short), public	land_restart_out_dtype = 'DEFAULT'
	REAL4 or REAL8. More...
real(rp), dimension(:,:,:), allocatable, public	land_temp
	temperature of each soil layer [K] More...
real(rp), dimension(:,:,:), allocatable, public	land_water
	moisture of each soil layer [m3/m3] More...
real(rp), dimension(:,:), allocatable, public	land_sfc_temp
	land surface skin temperature [K] More...
real(rp), dimension(:,:,:,:), allocatable, public	land_sfc_albedo
	land surface albedo (direct/diffuse,IR/near-IR/VIS) (0-1) More...
real(rp), dimension(:,:), allocatable, public	snow_sfc_temp
	snow surface temperature [K] More...
real(rp), dimension(:,:), allocatable, public	snow_swe
	snow water equivalent [kg/m2] More...
real(rp), dimension(:,:), allocatable, public	snow_depth
	snow depth [m] More...
real(rp), dimension(:,:), allocatable, public	snow_dzero
	snow depth at melting point [m] More...
real(rp), dimension(:,:), allocatable, public	snow_nosnowsec
	sec while no snow [s] More...
real(rp), dimension(:,:,:), allocatable, public	land_temp_t
	tendency of LAND_TEMP More...
real(rp), dimension(:,:,:), allocatable, public	land_water_t
	tendency of LAND_WATER More...
real(rp), dimension(:,:), allocatable, public	land_sflx_mw
	land surface w-momentum flux [kg/m2/s] More...
real(rp), dimension(:,:), allocatable, public	land_sflx_mu
	land surface u-momentum flux [kg/m2/s] More...
real(rp), dimension(:,:), allocatable, public	land_sflx_mv
	land surface v-momentum flux [kg/m2/s] More...
real(rp), dimension(:,:), allocatable, public	land_sflx_sh
	land surface sensible heat flux [J/m2/s] More...
real(rp), dimension(:,:), allocatable, public	land_sflx_lh
	land surface latent heat flux [J/m2/s] More...
real(rp), dimension(:,:,:), allocatable, public	land_sflx_qtrc
	land surface tracer flux [kg/m2/s] More...
real(rp), dimension(:,:), allocatable, public	land_sflx_gh
	land surface heat flux [J/m2/s] More...
real(rp), dimension(:,:), allocatable, public	land_sflx_water
	land surface water flux [kg/m2/s] More...
real(rp), dimension(:,:), allocatable, public	land_sflx_ice
	land surface ice flux [kg/m2/s] More...
real(rp), dimension(:,:), allocatable, public	land_u10
	land surface velocity u at 10m [m/s] More...
real(rp), dimension(:,:), allocatable, public	land_v10
	land surface velocity v at 10m [m/s] More...
real(rp), dimension(:,:), allocatable, public	land_t2
	land surface temperature at 2m [K] More...
real(rp), dimension(:,:), allocatable, public	land_q2
	land surface water vapor at 2m [kg/kg] More...
real(rp), dimension(:,:), allocatable, public	atmos_temp
real(rp), dimension(:,:), allocatable, public	atmos_pres
real(rp), dimension(:,:), allocatable, public	atmos_w
real(rp), dimension(:,:), allocatable, public	atmos_u
real(rp), dimension(:,:), allocatable, public	atmos_v
real(rp), dimension(:,:), allocatable, public	atmos_dens
real(rp), dimension(:,:), allocatable, public	atmos_qv
real(rp), dimension(:,:), allocatable, public	atmos_pbl
real(rp), dimension(:,:), allocatable, public	atmos_sfc_dens
real(rp), dimension(:,:), allocatable, public	atmos_sfc_pres
real(rp), dimension(:,:,:,:), allocatable, public	atmos_sflx_rad_dn
real(rp), dimension(:,:), allocatable, public	atmos_cossza
real(rp), dimension(:,:), allocatable, public	atmos_sflx_rain
real(rp), dimension(:,:), allocatable, public	atmos_sflx_snow
real(rp), dimension(:,:,:), allocatable, public	land_property
	land surface property More...
character(len=h_long), public	land_property_in_filename = ''
	the file of land parameter table More...
integer, parameter, public	land_property_nmax = 11
integer, parameter, public	i_waterlimit = 1
integer, parameter, public	i_watercritical = 2
integer, parameter, public	i_stomataresist = 3
integer, parameter, public	i_thermalcond = 4
integer, parameter, public	i_heatcapacity = 5
integer, parameter, public	i_waterdiff = 6
integer, parameter, public	i_alblw = 7
integer, parameter, public	i_albsw = 8
integer, parameter, public	i_z0m = 9
integer, parameter, public	i_z0h = 10
integer, parameter, public	i_z0e = 11

Detailed Description

module LAND Variables

Description

Container for land variables

Author

Team SCALE

NAMELIST

• PARAM_LAND_VARS

  name	type	default value	comment
  LAND_RESTART_IN_BASENAME	character(len=H_LONG)	''	Basename of the input file
  LAND_RESTART_IN_AGGREGATE	logical		Switch to use aggregate file
  LAND_RESTART_IN_POSTFIX_TIMELABEL	logical	.false.	Add timelabel to the basename of input file?
  LAND_RESTART_IN_CHECK_COORDINATES	logical	.true.
  LAND_RESTART_OUTPUT	logical	.false.	Output restart file?
  LAND_RESTART_OUT_BASENAME	character(len=H_LONG)	''	Basename of the output file
  LAND_RESTART_OUT_AGGREGATE	logical		Switch to use aggregate file
  LAND_RESTART_OUT_POSTFIX_TIMELABEL	logical	.true.	Add timelabel to the basename of output file?
  LAND_RESTART_OUT_TITLE	character(len=H_MID)	'LAND restart'	Title of the output file
  LAND_RESTART_OUT_DTYPE	character(len=H_SHORT)	'DEFAULT'	REAL4 or REAL8
  LAND_VARS_CHECKRANGE	logical	.false.

  
  
• PARAM_LAND_PROPERTY

  name	type	default value	comment
  LAND_PROPERTY_IN_FILENAME	character(len=H_LONG)	''	the file of land parameter table

  
  
• PARAM_LAND_DATA

  name	type	default value	comment
  INDEX	integer
  DESCRIPTION	character(len=H_MID)
  STRGMAX	real(RP)
  STRGCRT	real(RP)
  RSTOMA	real(RP)
  TCS	real(RP)
  HCS	real(RP)
  DFW	real(RP)
  ALBLW	real(RP)
  ALBSW	real(RP)
  Z0M	real(RP)
  Z0H	real(RP)
  Z0E	real(RP)

  
  

History Output

name	description	unit	variable
SNOW_Depth	Snow depth	m	SNOW_Depth
SNOW_Dzero	Snow depth at melting point	m	SNOW_Dzero
SNOW_SFC_TEMP	Snow surface temperature	K	SNOW_SFC_TEMP
SNOW_SWE	Snow water equivalent	kg/m2	SNOW_SWE
SNOW_nosnowsec	Time duration without snow	s	SNOW_nosnowsec
LAND_SFC_ALB_IR_dif	land surface albedo for IR (diffuse)	1	LAND_SFC_albedo
LAND_SFC_ALB_IR_dir	land surface albedo for IR (direct)	1	LAND_SFC_albedo
LAND_SFC_ALB_NIR_dif	land surface albedo for NIR (diffuse)	1	LAND_SFC_albedo
LAND_SFC_ALB_NIR_dir	land surface albedo for NIR (direct)	1	LAND_SFC_albedo
LAND_SFC_ALB_VIS_dif	land surface albedo for VIS (diffuse)	1	LAND_SFC_albedo
LAND_SFC_ALB_VIS_dir	land surface albedo for VIS (direct)	1	LAND_SFC_albedo
LAND_SFC_TEMP	land surface skin temperature	K	LAND_SFC_TEMP
LAND_SFLX_GH	land subsurface heat flux (downward)	J/m2/s	LAND_SFLX_GH
LAND_SFLX_LH	land surface latent heat flux (upward)	J/m2/s	LAND_SFLX_LH
LAND_SFLX_MU	land surface u-momentum flux (upward)	kg/m2/s	LAND_SFLX_MU
LAND_SFLX_MV	land surface v-momentum flux (upward)	kg/m2/s	LAND_SFLX_MV
LAND_SFLX_MW	land surface w-momentum flux (upward)	kg/m2/s	LAND_SFLX_MW
LAND_SFLX_SH	land surface sensible heat flux (upward)	J/m2/s	LAND_SFLX_SH
LAND_SFLX_evap	land surface water vapor flux (upward)	kg/m2/s	LAND_SFLX_QTRC
LAND_SFLX_ice	land surface ice water flux (downward)	kg/m2/s	LAND_SFLX_ice
LAND_SFLX_water	land surface liquid water flux (downward)	kg/m2/s	LAND_SFLX_water
LAND_TEMP	temperature at each soil layer	K	LAND_TEMP
LAND_WATER	moisture at each soil layer	m3/m3	LAND_WATER
LAND_DSAT	degree of saturation at each soil layer	1	LAND_WATERDS

Function/Subroutine Documentation

land_vars_setup()

subroutine, public mod_land_vars::land_vars_setup

(

)

Setup.

Definition at line 252 of file mod_land_vars.F90.

References atmos_cossza, atmos_dens, atmos_pbl, atmos_pres, atmos_qv, atmos_sfc_dens, atmos_sfc_pres, atmos_sflx_rad_dn, atmos_sflx_rain, atmos_sflx_snow, atmos_temp, atmos_u, atmos_v, atmos_w, scale_const::const_undef, scale_io::io_fid_conf, land_property, land_property_nmax, land_q2, land_restart_in_aggregate, land_restart_in_basename, land_restart_in_postfix_timelabel, land_restart_out_aggregate, land_restart_out_basename, land_restart_out_dtype, land_restart_out_postfix_timelabel, land_restart_out_title, land_restart_output, land_sfc_albedo, land_sfc_temp, land_sflx_gh, land_sflx_ice, land_sflx_lh, land_sflx_mu, land_sflx_mv, land_sflx_mw, land_sflx_qtrc, land_sflx_sh, land_sflx_water, land_t2, land_temp, land_temp_t, land_u10, land_v10, land_water, land_water_t, scale_landuse::landuse_index_pft, scale_landuse::landuse_pft_nmax, scale_landuse::landuse_pft_nmin, scale_land_grid_cartesc_index::lia, scale_land_grid_cartesc_index::lie, scale_land_grid_cartesc_index::lis, scale_land_grid_cartesc_index::lja, scale_land_grid_cartesc_index::lje, scale_land_grid_cartesc_index::ljs, scale_land_grid_cartesc_index::lkmax, scale_cpl_sfc_index::n_rad_dir, scale_cpl_sfc_index::n_rad_rgn, scale_prc::prc_abort(), scale_tracer::qa, snow_depth, snow_dzero, snow_nosnowsec, snow_sfc_temp, and snow_swe.

Referenced by mod_rm_driver::rm_driver(), and mod_rm_prep::rm_prep().

    use scale_prc, only: &
       prc_abort
    use scale_const, only: &
       undef => const_undef
    use scale_comm_cartesc, only: &
       comm_vars8, &
       comm_wait
    use scale_landuse, only: &
       landuse_index_pft, &
       landuse_pft_nmin, &
       landuse_pft_nmax
    implicit none

    namelist / param_land_vars / &
       land_restart_in_basename,           &
       land_restart_in_aggregate,          &
       land_restart_in_postfix_timelabel,  &
       land_restart_in_check_coordinates,  &
       land_restart_output,                &
       land_restart_out_basename,          &
       land_restart_out_aggregate,         &
       land_restart_out_postfix_timelabel, &
       land_restart_out_title,             &
       land_restart_out_dtype,             &
       land_vars_checkrange

    integer :: ierr
    integer :: i, j, iv, p
    !---------------------------------------------------------------------------

    log_newline
    log_info("LAND_vars_setup",*) 'Setup'

    allocate( land_temp(lkmax,lia,lja)               )
    allocate( land_water(lkmax,lia,lja)               )
    allocate( land_sfc_temp(lia,lja)                     )
    allocate( land_sfc_albedo(lia,lja,n_rad_dir,n_rad_rgn) )
    land_temp(:,:,:)   = undef
    land_water(:,:,:)   = undef
    land_sfc_temp(:,:)     = undef
    land_sfc_albedo(:,:,:,:) = undef

    allocate( snow_sfc_temp(lia,lja) )
    allocate( snow_swe(lia,lja) )
    allocate( snow_depth(lia,lja) )
    allocate( snow_dzero(lia,lja) )
    allocate( snow_nosnowsec(lia,lja) )
    snow_sfc_temp(:,:)     = undef
    snow_swe(:,:)     = undef
    snow_depth(:,:)     = undef
    snow_dzero(:,:)     = undef
    snow_nosnowsec(:,:)     = undef

    allocate( land_temp_t(lkmax,lia,lja) )
    allocate( land_water_t(lkmax,lia,lja) )
    land_temp_t(:,:,:)   = undef
    land_water_t(:,:,:)   = undef

    allocate( land_sflx_mw(lia,lja) )
    allocate( land_sflx_mu(lia,lja) )
    allocate( land_sflx_mv(lia,lja) )
    allocate( land_sflx_sh(lia,lja) )
    allocate( land_sflx_lh(lia,lja) )
    allocate( land_sflx_gh(lia,lja) )
    allocate( land_sflx_qtrc(lia,lja,qa) )
    allocate( land_sflx_water(lia,lja) )
    allocate( land_sflx_ice(lia,lja) )
    land_sflx_mw(:,:)     = undef
    land_sflx_mu(:,:)     = undef
    land_sflx_mv(:,:)     = undef
    land_sflx_sh(:,:)     = undef
    land_sflx_lh(:,:)     = undef
    land_sflx_qtrc(:,:,:)   = undef
    land_sflx_gh(:,:)     = undef
    land_sflx_water(:,:)     = undef
    land_sflx_ice(:,:)     = undef

    allocate( land_u10(lia,lja) )
    allocate( land_v10(lia,lja) )
    allocate( land_t2(lia,lja) )
    allocate( land_q2(lia,lja) )
    land_u10(:,:)     = undef
    land_v10(:,:)     = undef
    land_t2(:,:)     = undef
    land_q2(:,:)     = undef

    allocate( atmos_temp(lia,lja)                     )
    allocate( atmos_pres(lia,lja)                     )
    allocate( atmos_w(lia,lja)                     )
    allocate( atmos_u(lia,lja)                     )
    allocate( atmos_v(lia,lja)                     )
    allocate( atmos_dens(lia,lja)                     )
    allocate( atmos_qv(lia,lja)                     )
    allocate( atmos_pbl(lia,lja)                     )
    allocate( atmos_sfc_dens(lia,lja)                     )
    allocate( atmos_sfc_pres(lia,lja)                     )
    allocate( atmos_sflx_rad_dn(lia,lja,n_rad_dir,n_rad_rgn) )
    allocate( atmos_cossza(lia,lja)                     )
    allocate( atmos_sflx_rain(lia,lja)                     )
    allocate( atmos_sflx_snow(lia,lja)                     )
    atmos_temp(:,:)     = undef
    atmos_pres(:,:)     = undef
    atmos_w(:,:)     = undef
    atmos_u(:,:)     = undef
    atmos_v(:,:)     = undef
    atmos_dens(:,:)     = undef
    atmos_qv(:,:)     = undef
    atmos_pbl(:,:)     = undef
    atmos_sfc_dens(:,:)     = undef
    atmos_sfc_pres(:,:)     = undef
    atmos_sflx_rad_dn(:,:,:,:) = undef
    atmos_cossza(:,:)     = undef
    atmos_sflx_rain(:,:)     = undef
    atmos_sflx_snow(:,:)     = undef

    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_land_vars,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       log_info("LAND_vars_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       log_error("LAND_vars_setup",*) 'Not appropriate names in namelist PARAM_LAND_VARS. Check!'
       call prc_abort
    endif
    log_nml(param_land_vars)

    log_newline
    log_info("LAND_vars_setup",*) 'List of prognostic variables (LAND) '
    log_info_cont('(1x,A,A24,A,A48,A,A12,A)') &
               '      |', 'VARNAME                 ','|', &
               'DESCRIPTION                                     ', '[', 'UNIT        ', ']'
    do iv = 1, vmax
       log_info_cont('(1x,A,I3,A,A24,A,A48,A,A12,A)') &
                  'NO.',iv,'|',var_name(iv),'|',var_desc(iv),'[',var_unit(iv),']'
    enddo

    log_newline
    if ( land_restart_in_basename /= '' ) then
       log_info("LAND_vars_setup",*) 'Restart input?  : YES, file = ', trim(land_restart_in_basename)
       log_info("LAND_vars_setup",*) 'Add timelabel?  : ', land_restart_in_postfix_timelabel
    else
       log_info("LAND_vars_setup",*) 'Restart input?  : NO'
    endif
    if (       land_restart_output             &
         .AND. land_restart_out_basename /= '' ) then
       log_info("LAND_vars_setup",*) 'Restart output? : YES, file = ', trim(land_restart_out_basename)
       log_info("LAND_vars_setup",*) 'Add timelabel?  : ', land_restart_out_postfix_timelabel
    else
       log_info("LAND_vars_setup",*) 'Restart output? : NO'
       land_restart_output = .false.
    endif

    ! Read land property table
    allocate( land_property_table(landuse_pft_nmin:landuse_pft_nmax,land_property_nmax) )
    land_property_table(:,:) = undef

    call land_param_read

    ! Apply land property to 2D map
    allocate( land_property(lia,lja,land_property_nmax) )

    ! tentative, mosaic is off
    do p = 1, land_property_nmax
    do j = ljs, lje
    do i = lis, lie
       land_property(i,j,p) = land_property_table( landuse_index_pft(i,j,1), p )
    enddo
    enddo
    enddo

    do p = 1, land_property_nmax
       call comm_vars8( land_property(:,:,p), p )
    enddo
    do p = 1, land_property_nmax
       call comm_wait ( land_property(:,:,p), p )
    enddo

    return

Here is the call graph for this function:

Here is the caller graph for this function:

land_vars_restart_open()

subroutine, public mod_land_vars::land_vars_restart_open

(

)

Open land restart file for read.

Definition at line 435 of file mod_land_vars.F90.

References scale_file_cartesc::file_cartesc_open(), mod_land_admin::land_do, land_restart_in_aggregate, land_restart_in_basename, land_restart_in_postfix_timelabel, and scale_time::time_gettimelabel().

Referenced by mod_admin_restart::admin_restart_read().

    use scale_time, only: &
       time_gettimelabel
    use scale_file_cartesc, only: &
       file_cartesc_open, &
       file_cartesc_check_coordinates
    use mod_land_admin, only: &
       land_do
    implicit none

    character(len=19)     :: timelabel
    character(len=H_LONG) :: basename
    !---------------------------------------------------------------------------

    log_newline
    log_info("LAND_vars_restart_open",*) 'Open restart file (LAND) '

    if ( land_do .and. land_restart_in_basename /= '' ) then

       if ( land_restart_in_postfix_timelabel ) then
          call time_gettimelabel( timelabel )
          basename = trim(land_restart_in_basename)//'_'//trim(timelabel)
       else
          basename = trim(land_restart_in_basename)
       endif

       log_info("LAND_vars_restart_open",*) 'basename: ', trim(basename)

       call file_cartesc_open( basename, restart_fid, aggregate=land_restart_in_aggregate )

       if ( land_restart_in_check_coordinates ) then
          call file_cartesc_check_coordinates( restart_fid, land=.true. )
       end if

    else
       log_info("LAND_vars_restart_open",*) 'restart file for land is not specified.'
    endif

    return

Here is the call graph for this function:

Here is the caller graph for this function:

land_vars_restart_read()

subroutine, public mod_land_vars::land_vars_restart_read

(

)

Read land restart.

Definition at line 478 of file mod_land_vars.F90.

References scale_file_cartesc::file_cartesc_flush(), scale_file::file_get_aggregate(), scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, scale_cpl_sfc_index::i_r_nir, scale_cpl_sfc_index::i_r_vis, land_sfc_albedo, land_sfc_temp, land_temp, land_vars_total(), land_water, scale_prc::prc_abort(), snow_depth, snow_dzero, snow_nosnowsec, snow_sfc_temp, and snow_swe.

Referenced by mod_admin_restart::admin_restart_read().

    use scale_prc, only: &
       prc_abort
    use scale_file, only: &
       file_get_aggregate
    use scale_file_cartesc, only: &
       file_cartesc_read, &
       file_cartesc_flush
    implicit none
    !---------------------------------------------------------------------------

    if ( restart_fid /= -1 ) then
       log_newline
       log_info("LAND_vars_restart_read",*) 'Read from restart file (LAND) '

       call file_cartesc_read( restart_fid, var_name(i_temp),            'LXY', & ! [IN]
                               land_temp(:,:,:)                           ) ! [OUT]
       call file_cartesc_read( restart_fid, var_name(i_water),           'LXY', & ! [IN]
                               land_water(:,:,:)                           ) ! [OUT]
       call file_cartesc_read( restart_fid, var_name(i_sfc_temp),        'XY',  & ! [IN]
                               land_sfc_temp(:,:)                             ) ! [OUT]
       call file_cartesc_read( restart_fid, var_name(i_sfc_alb_ir_dir),  'XY',  & ! [IN]
                               land_sfc_albedo(:,:,i_r_direct ,i_r_ir )         ) ! [OUT]
       call file_cartesc_read( restart_fid, var_name(i_sfc_alb_ir_dif),  'XY',  & ! [IN]
                               land_sfc_albedo(:,:,i_r_diffuse,i_r_ir )         ) ! [OUT]
       call file_cartesc_read( restart_fid, var_name(i_sfc_alb_nir_dir), 'XY',  & ! [IN]
                               land_sfc_albedo(:,:,i_r_direct ,i_r_nir)         ) ! [OUT]
       call file_cartesc_read( restart_fid, var_name(i_sfc_alb_nir_dif), 'XY',  & ! [IN]
                               land_sfc_albedo(:,:,i_r_diffuse,i_r_nir)         ) ! [OUT]
       call file_cartesc_read( restart_fid, var_name(i_sfc_alb_vis_dir), 'XY',  & ! [IN]
                               land_sfc_albedo(:,:,i_r_direct ,i_r_vis)         ) ! [OUT]
       call file_cartesc_read( restart_fid, var_name(i_sfc_alb_vis_dif), 'XY',  & ! [IN]
                               land_sfc_albedo(:,:,i_r_diffuse,i_r_vis)         ) ! [OUT]

       !call FILE_CARTESC_read( restart_fid, 'SNOW_SFC_TEMP',      'XY',  & ! [OUT]
       !                        SNOW_SFC_TEMP(:,:)                        ) ! [IN]
       !call FILE_CARTESC_read( restart_fid, 'SNOW_SWE',           'XY',  & ! [OUT]
       !                        SNOW_SWE(:,:)                             ) ! [IN]
       !call FILE_CARTESC_read( restart_fid, 'SNOW_Depth',         'XY',  & ! [OUT]
       !                        SNOW_Depth(:,:)                           ) ! [IN]
       !call FILE_CARTESC_read( restart_fid, 'SNOW_Dzero',         'XY',  & ! [OUT]
       !                        SNOW_Dzero(:,:)                           ) ! [IN]
       !call FILE_CARTESC_read( restart_fid, 'SNOW_nosnowsec',     'XY'   & ! [OUT]
       !                        SNOW_nosnowsec(:,:)                       ) ! [IN]

       !!!!! Tentative for snow model !!!!!
       snow_sfc_temp    = 273.15_rp
       snow_swe         = 0.0_rp
       snow_depth       = 0.0_rp
       snow_dzero       = 0.0_rp
       snow_nosnowsec   = 0.0_rp

       if( file_get_aggregate(restart_fid) ) call file_cartesc_flush( restart_fid ) ! commit all pending read requests

       call land_vars_total
    else
       log_error("LAND_vars_restart_read",*) 'invalid restart file ID for land.'
       call prc_abort
    endif

    return

Here is the call graph for this function:

Here is the caller graph for this function:

land_vars_history()

subroutine, public mod_land_vars::land_vars_history

(

)

History output set for land variables.

Definition at line 543 of file mod_land_vars.F90.

References scale_atmos_hydrometeor::i_qv, scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, scale_cpl_sfc_index::i_r_nir, scale_cpl_sfc_index::i_r_vis, i_waterlimit, land_property, land_sfc_albedo, land_sfc_temp, land_sflx_gh, land_sflx_ice, land_sflx_lh, land_sflx_mu, land_sflx_mv, land_sflx_mw, land_sflx_qtrc, land_sflx_sh, land_sflx_water, land_temp, land_water, scale_land_grid_cartesc_index::lie, scale_land_grid_cartesc_index::lis, scale_land_grid_cartesc_index::lje, scale_land_grid_cartesc_index::ljs, scale_land_grid_cartesc_index::lke, scale_land_grid_cartesc_index::lkmax, scale_land_grid_cartesc_index::lks, scale_prof::prof_rapend(), scale_prof::prof_rapstart(), snow_depth, snow_dzero, snow_nosnowsec, snow_sfc_temp, and snow_swe.

Referenced by mod_land_driver::land_driver_update(), and mod_rm_driver::restart_read().

    use scale_file_history, only: &
       file_history_in
    use scale_atmos_hydrometeor, only: &
       i_qv
    implicit none

    real(RP) :: land_waterds(lkmax,lia,lja)
    integer :: k, i, j
    !---------------------------------------------------------------------------

    call prof_rapstart('LND_History', 1)


    if ( land_vars_checkrange ) then
       call valcheck( land_temp(lks:lke,lis:lie,ljs:lje),             0.0_rp, 1000.0_rp, &
                      var_name(i_temp),                                     __file__, __line__ )
       call valcheck( land_water(lks:lke,lis:lie,ljs:lje),             0.0_rp, 1000.0_rp, &
                      var_name(i_water),                                    __file__, __line__ )
       call valcheck( land_sfc_temp(lis:lie,ljs:lje),                     0.0_rp, 1000.0_rp, &
                      var_name(i_sfc_temp),                                 __file__, __line__ )
       call valcheck( land_sfc_albedo(lis:lie,ljs:lje,i_r_direct ,i_r_ir ), 0.0_rp,    2.0_rp, &
                      var_name(i_sfc_alb_ir_dir ),                          __file__, __line__ )
       call valcheck( land_sfc_albedo(lis:lie,ljs:lje,i_r_diffuse,i_r_ir ), 0.0_rp,    2.0_rp, &
                      var_name(i_sfc_alb_ir_dif ),                          __file__, __line__ )
       call valcheck( land_sfc_albedo(lis:lie,ljs:lje,i_r_direct ,i_r_nir), 0.0_rp,    2.0_rp, &
                      var_name(i_sfc_alb_nir_dir),                          __file__, __line__ )
       call valcheck( land_sfc_albedo(lis:lie,ljs:lje,i_r_diffuse,i_r_nir), 0.0_rp,    2.0_rp, &
                      var_name(i_sfc_alb_nir_dif),                          __file__, __line__ )
       call valcheck( land_sfc_albedo(lis:lie,ljs:lje,i_r_direct ,i_r_vis), 0.0_rp,    2.0_rp, &
                      var_name(i_sfc_alb_vis_dir),                          __file__, __line__ )
       call valcheck( land_sfc_albedo(lis:lie,ljs:lje,i_r_diffuse,i_r_vis), 0.0_rp,    2.0_rp, &
                      var_name(i_sfc_alb_vis_dif),                          __file__, __line__ )

       !call VALCHECK( SNOW_SFC_TEMP (IS:IE,JS:JE),      0.0_RP, 1000.0_RP, 'SNOW_SFC_TEMP',        &
       !              __FILE__, __LINE__ )
       !call VALCHECK( SNOW_SWE      (IS:IE,JS:JE),      0.0_RP, 1000.0_RP, 'SNOW_SWE',             &
       !              __FILE__, __LINE__ )
       !call VALCHECK( SNOW_Depth    (IS:IE,JS:JE),      0.0_RP, 1000.0_RP, 'SNOW_Depth',           &
       !              __FILE__, __LINE__ )
       !call VALCHECK( SNOW_Dzero    (IS:IE,JS:JE),      0.0_RP, 1000.0_RP, 'SNOW_Dzero',           &
       !              __FILE__, __LINE__ )
    endif

    call file_history_in( land_temp(:,:,:), var_name(i_temp),  var_desc(i_temp),  var_unit(i_temp),  dim_type='LXY', standard_name=var_stdn(i_temp) )
    call file_history_in( land_water(:,:,:), var_name(i_water), var_desc(i_water), var_unit(i_water), dim_type='LXY', standard_name=var_stdn(i_water) )
    do j = ljs, lje
    do i = lis, lie
    do k = 1, lkmax
       land_waterds(k,i,j) = land_water(k,i,j) / land_property(i,j,i_waterlimit)
    end do
    end do
    end do
    call file_history_in( land_waterds(:,:,:), var_name(i_waterds), var_desc(i_waterds), var_unit(i_waterds), dim_type='LXY', fill_halo=.true., standard_name=var_stdn(i_waterds) )


    call file_history_in( land_sfc_temp(:,:),                     var_name(i_sfc_temp),                                     &
                          var_desc(i_sfc_temp),        var_unit(i_sfc_temp),        standard_name=var_stdn(i_sfc_temp)        )
    call file_history_in( land_sfc_albedo(:,:,i_r_direct ,i_r_ir ), var_name(i_sfc_alb_ir_dir),                               &
                          var_desc(i_sfc_alb_ir_dir),  var_unit(i_sfc_alb_ir_dir),  standard_name=var_stdn(i_sfc_alb_ir_dir)  )
    call file_history_in( land_sfc_albedo(:,:,i_r_diffuse,i_r_ir ), var_name(i_sfc_alb_ir_dif),                               &
                          var_desc(i_sfc_alb_ir_dif),  var_unit(i_sfc_alb_ir_dif),  standard_name=var_stdn(i_sfc_alb_ir_dif)  )
    call file_history_in( land_sfc_albedo(:,:,i_r_direct ,i_r_nir), var_name(i_sfc_alb_nir_dir),                              &
                          var_desc(i_sfc_alb_nir_dir), var_unit(i_sfc_alb_nir_dir), standard_name=var_stdn(i_sfc_alb_nir_dir) )
    call file_history_in( land_sfc_albedo(:,:,i_r_diffuse,i_r_nir), var_name(i_sfc_alb_nir_dif),                              &
                          var_desc(i_sfc_alb_nir_dif), var_unit(i_sfc_alb_nir_dif), standard_name=var_stdn(i_sfc_alb_nir_dif) )
    call file_history_in( land_sfc_albedo(:,:,i_r_direct ,i_r_vis), var_name(i_sfc_alb_vis_dir),                              &
                          var_desc(i_sfc_alb_vis_dir), var_unit(i_sfc_alb_vis_dir), standard_name=var_stdn(i_sfc_alb_vis_dir) )
    call file_history_in( land_sfc_albedo(:,:,i_r_diffuse,i_r_vis), var_name(i_sfc_alb_vis_dif),                              &
                          var_desc(i_sfc_alb_vis_dif), var_unit(i_sfc_alb_vis_dif), standard_name=var_stdn(i_sfc_alb_vis_dif) )

    call file_history_in( land_sflx_mw(:,:),                     var_name(i_sflx_mw),                                      &
                          var_desc(i_sflx_mw),         var_unit(i_sflx_mw),         standard_name=var_stdn(i_sflx_mw)         )
    call file_history_in( land_sflx_mu(:,:),                     var_name(i_sflx_mu),                                      &
                          var_desc(i_sflx_mu),         var_unit(i_sflx_mu),         standard_name=var_stdn(i_sflx_mu)         )
    call file_history_in( land_sflx_mv(:,:),                     var_name(i_sflx_mv),                                      &
                          var_desc(i_sflx_mv),         var_unit(i_sflx_mv),         standard_name=var_stdn(i_sflx_mv)         )
    call file_history_in( land_sflx_sh(:,:),                     var_name(i_sflx_sh),                                      &
                          var_desc(i_sflx_sh),         var_unit(i_sflx_sh),         standard_name=var_stdn(i_sflx_sh)         )
    call file_history_in( land_sflx_lh(:,:),                     var_name(i_sflx_lh),                                      &
                          var_desc(i_sflx_lh),         var_unit(i_sflx_lh),         standard_name=var_stdn(i_sflx_lh)         )
    if ( i_qv > 0 ) then
    call file_history_in( land_sflx_qtrc(:,:,i_qv),                var_name(i_sflx_evap),                                    &
                          var_desc(i_sflx_evap),       var_unit(i_sflx_evap),       standard_name=var_stdn(i_sflx_evap)       )
    endif
    call file_history_in( land_sflx_gh(:,:),                     var_name(i_sflx_gh),                                      &
                          var_desc(i_sflx_gh),         var_unit(i_sflx_gh),         standard_name=var_stdn(i_sflx_gh)         )
    call file_history_in( land_sflx_water(:,:),                     var_name(i_sflx_water),                                   &
                          var_desc(i_sflx_water),      var_unit(i_sflx_water),      standard_name=var_stdn(i_sflx_water)      )
    call file_history_in( land_sflx_ice(:,:),                     var_name(i_sflx_ice),                                     &
                          var_desc(i_sflx_ice),        var_unit(i_sflx_ice),        standard_name=var_stdn(i_sflx_ice)        )

    ! snow model
    call file_history_in( snow_sfc_temp(:,:), 'SNOW_SFC_TEMP',  'Snow surface temperature',    'K'      )
    call file_history_in( snow_swe(:,:), 'SNOW_SWE',       'Snow water equivalent',       'kg/m2'  )
    call file_history_in( snow_depth(:,:), 'SNOW_Depth',     'Snow depth',                  'm'      )
    call file_history_in( snow_dzero(:,:), 'SNOW_Dzero',     'Snow depth at melting point', 'm'      )
    call file_history_in( snow_nosnowsec(:,:), 'SNOW_nosnowsec', 'Time duration without snow',  's'      )

    call prof_rapend  ('LND_History', 1)

    return

Here is the call graph for this function:

Here is the caller graph for this function:

land_vars_total()

subroutine, public mod_land_vars::land_vars_total

(

)

Budget monitor for land.

Definition at line 649 of file mod_land_vars.F90.

References i_alblw, i_albsw, i_heatcapacity, scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, scale_cpl_sfc_index::i_r_nir, scale_cpl_sfc_index::i_r_vis, i_stomataresist, i_thermalcond, i_watercritical, i_waterdiff, i_waterlimit, i_z0e, i_z0h, i_z0m, scale_io::io_fid_conf, scale_io::io_get_available_fid(), scale_land_grid_cartesc_real::land_grid_cartesc_real_area, scale_land_grid_cartesc_real::land_grid_cartesc_real_totarea, scale_land_grid_cartesc_real::land_grid_cartesc_real_totvol, scale_land_grid_cartesc_real::land_grid_cartesc_real_vol, land_property_in_filename, land_sfc_albedo, land_sfc_temp, land_temp, land_water, scale_landuse::landuse_pft_nmax, scale_landuse::landuse_pft_nmin, scale_land_grid_cartesc_index::lia, scale_land_grid_cartesc_index::lie, scale_land_grid_cartesc_index::lis, scale_land_grid_cartesc_index::lja, scale_land_grid_cartesc_index::lje, scale_land_grid_cartesc_index::ljs, scale_land_grid_cartesc_index::lka, scale_land_grid_cartesc_index::lke, scale_land_grid_cartesc_index::lks, scale_prc::prc_abort(), snow_depth, snow_dzero, snow_sfc_temp, snow_swe, and scale_statistics::statistics_checktotal.

Referenced by mod_land_driver::land_driver_update(), land_vars_restart_read(), and land_vars_restart_write().

    use scale_statistics, only: &
       statistics_checktotal, &
       statistics_total
    use scale_land_grid_cartesc_real, only: &
       land_grid_cartesc_real_area,    &
       land_grid_cartesc_real_totarea, &
       land_grid_cartesc_real_vol,     &
       land_grid_cartesc_real_totvol
    implicit none

    !---------------------------------------------------------------------------

    if ( statistics_checktotal ) then

       ! 3D
       call statistics_total( lka, lks, lke, lia, lis, lie, lja, ljs, lje, &
                              land_temp(:,:,:), var_name(i_temp),  & ! (in)
                              land_grid_cartesc_real_vol(:,:,:),    & ! (in)
                              land_grid_cartesc_real_totvol         ) ! (in)
       call statistics_total( lka, lks, lke, lia, lis, lie, lja, ljs, lje, &
                              land_water(:,:,:), var_name(i_water), & ! (in)
                              land_grid_cartesc_real_vol(:,:,:),    & ! (in)
                              land_grid_cartesc_real_totvol         ) ! (in)

       ! 2D
       call statistics_total( lia, lis, lie, lja, ljs, lje,                                          & ! [IN]
                              land_sfc_temp(:,:),                     var_name(i_sfc_temp),        & ! [IN]
                              land_grid_cartesc_real_area(:,:),                                      & ! [IN]
                              land_grid_cartesc_real_totarea                                         ) ! [IN]
       call statistics_total( lia, lis, lie, lja, ljs, lje,                                          & ! [IN]
                              land_sfc_albedo(:,:,i_r_direct ,i_r_ir ), var_name(i_sfc_alb_ir_dir),  & ! [IN]
                              land_grid_cartesc_real_area(:,:),                                      & ! [IN]
                              land_grid_cartesc_real_totarea                                         ) ! [IN]
       call statistics_total( lia, lis, lie, lja, ljs, lje,                                          & ! [IN]
                              land_sfc_albedo(:,:,i_r_diffuse,i_r_ir ), var_name(i_sfc_alb_ir_dif),  & ! [IN]
                              land_grid_cartesc_real_area(:,:),                                      & ! [IN]
                              land_grid_cartesc_real_totarea                                         ) ! [IN]
       call statistics_total( lia, lis, lie, lja, ljs, lje,                                          & ! [IN]
                              land_sfc_albedo(:,:,i_r_direct ,i_r_nir), var_name(i_sfc_alb_nir_dir), & ! [IN]
                              land_grid_cartesc_real_area(:,:),                                      & ! [IN]
                              land_grid_cartesc_real_totarea                                         ) ! [IN]
       call statistics_total( lia, lis, lie, lja, ljs, lje,                                          & ! [IN]
                              land_sfc_albedo(:,:,i_r_diffuse,i_r_nir), var_name(i_sfc_alb_nir_dif), & ! [IN]
                              land_grid_cartesc_real_area(:,:),                                      & ! [IN]
                              land_grid_cartesc_real_totarea                                         ) ! [IN]
       call statistics_total( lia, lis, lie, lja, ljs, lje,                                          & ! [IN]
                              land_sfc_albedo(:,:,i_r_direct ,i_r_vis), var_name(i_sfc_alb_vis_dir), & ! [IN]
                              land_grid_cartesc_real_area(:,:),                                      & ! [IN]
                              land_grid_cartesc_real_totarea                                         ) ! [IN]
       call statistics_total( lia, lis, lie, lja, ljs, lje,                                          & ! [IN]
                              land_sfc_albedo(:,:,i_r_diffuse,i_r_vis), var_name(i_sfc_alb_vis_dif), & ! [IN]
                              land_grid_cartesc_real_area(:,:),                                      & ! [IN]
                              land_grid_cartesc_real_totarea                                         ) ! [IN]

       call statistics_total( lia, lis, lie, lja, ljs, lje, &
                              snow_sfc_temp(:,:),     'SNOW_SFC_TEMP', & ! (in)
                              land_grid_cartesc_real_area(:,:),          & ! (in)
                              land_grid_cartesc_real_totarea             ) ! (in)
       call statistics_total( lia, lis, lie, lja, ljs, lje, &
                              snow_swe(:,:),     'SNOW_SWE',      &
                              land_grid_cartesc_real_area(:,:),          & ! (in)
                              land_grid_cartesc_real_totarea             ) ! (in)
       call statistics_total( lia, lis, lie, lja, ljs, lje, &
                              snow_depth(:,:),     'SNOW_Depth',    & ! (in)
                              land_grid_cartesc_real_area(:,:),          & ! (in)
                              land_grid_cartesc_real_totarea             ) ! (in)
       call statistics_total( lia, lis, lie, lja, ljs, lje, &
                              snow_dzero(:,:),     'SNOW_Dzero',    & ! (in)
                              land_grid_cartesc_real_area(:,:),          & ! (in)
                              land_grid_cartesc_real_totarea             ) ! (in)
    endif

    return

Here is the call graph for this function:

Here is the caller graph for this function:

convert_ws2vwc()

real(rp) function, dimension(lia,lja), public mod_land_vars::convert_ws2vwc	(	real(rp), dimension(lia,lja), intent(in)	WS,
		logical, intent(in)	critical
	)

conversion from water saturation [fraction] to volumetric water content [m3/m3]

Definition at line 885 of file mod_land_vars.F90.

References i_watercritical, i_waterlimit, land_property, scale_land_grid_cartesc_index::lie, scale_land_grid_cartesc_index::lis, scale_land_grid_cartesc_index::lje, and scale_land_grid_cartesc_index::ljs.

Referenced by mod_realinput::land_interporation().

    implicit none

    real(RP), intent(in) :: ws(lia,lja) ! water saturation [fraction]
    logical,  intent(in) :: critical  ! is I_WaterCritical used?

    real(RP) :: vwc(lia,lja) ! volumetric water content [m3/m3]

    ! work
    integer :: i, j, num
    !---------------------------------------------------------------------------

    if( critical ) then
      num = i_watercritical
    else
      num = i_waterlimit
    end if

    do j = ljs, lje
    do i = lis, lie
      vwc(i,j) = max( min( ws(i,j)*land_property(i,j,num), land_property(i,j,num) ), 0.0_rp )
    end do
    end do

    return

Here is the caller graph for this function:

land_vars_restart_create()

subroutine, public mod_land_vars::land_vars_restart_create

(

)

Create land restart file.

Definition at line 914 of file mod_land_vars.F90.

References scale_file_cartesc::file_cartesc_create(), mod_land_admin::land_do, land_restart_out_aggregate, land_restart_out_basename, land_restart_out_dtype, land_restart_out_postfix_timelabel, land_restart_out_title, and scale_time::time_gettimelabel().

Referenced by mod_admin_restart::admin_restart_write().

    use scale_time, only: &
       time_gettimelabel
    use scale_file_cartesc, only: &
       file_cartesc_create
    use mod_land_admin, only: &
       land_do
    implicit none

    character(len=19)     :: timelabel
    character(len=H_LONG) :: basename
    !---------------------------------------------------------------------------

    if ( land_do .and. land_restart_out_basename /= '' ) then

       log_newline
       log_info("LAND_vars_restart_create",*) 'Create restart file (LAND) '

       if ( land_restart_out_postfix_timelabel ) then
          call time_gettimelabel( timelabel )
          basename = trim(land_restart_out_basename)//'_'//trim(timelabel)
       else
          basename = trim(land_restart_out_basename)
       endif

       log_info("LAND_vars_restart_create",*) 'basename: ', trim(basename)

       call file_cartesc_create( &
            basename, land_restart_out_title, land_restart_out_dtype, & ! [IN]
            restart_fid,                                              & ! [OUT]
            aggregate=land_restart_out_aggregate                      ) ! [IN]

    endif

    return

Here is the call graph for this function:

Here is the caller graph for this function:

land_vars_restart_enddef()

subroutine, public mod_land_vars::land_vars_restart_enddef

(

)

Exit netCDF define mode.

Definition at line 953 of file mod_land_vars.F90.

References scale_file_cartesc::file_cartesc_enddef().

Referenced by mod_admin_restart::admin_restart_write().

    use scale_file_cartesc, only: &
       file_cartesc_enddef
    implicit none

    if ( restart_fid /= -1 ) then
       call file_cartesc_enddef( restart_fid ) ! [IN]
    endif

    return

Here is the call graph for this function:

Here is the caller graph for this function:

land_vars_restart_close()

subroutine, public mod_land_vars::land_vars_restart_close

(

)

Close restart file.

Definition at line 967 of file mod_land_vars.F90.

References scale_file_cartesc::file_cartesc_close().

Referenced by mod_admin_restart::admin_restart_read(), and mod_admin_restart::admin_restart_write().

    use scale_file_cartesc, only: &
       file_cartesc_close
    implicit none
    !---------------------------------------------------------------------------

    if ( restart_fid /= -1 ) then
       log_newline
       log_info("LAND_vars_restart_close",*) 'Close restart file (LAND) '

       call file_cartesc_close( restart_fid ) ! [IN]

       restart_fid = -1
    endif

    return

Here is the call graph for this function:

Here is the caller graph for this function:

land_vars_restart_def_var()

subroutine, public mod_land_vars::land_vars_restart_def_var

(

)

Define land variables in restart file.

Definition at line 987 of file mod_land_vars.F90.

References scale_file_cartesc::file_cartesc_def_var(), and land_restart_out_dtype.

Referenced by mod_admin_restart::admin_restart_write().

    use scale_file_cartesc, only: &
       file_cartesc_def_var
    implicit none
    integer :: i
    !---------------------------------------------------------------------------

    if ( restart_fid /= -1 ) then

       do i = i_temp, i_water
          if ( i == i_waterds ) cycle
          call file_cartesc_def_var( restart_fid,     & ! [IN]
               var_name(i), var_desc(i), var_unit(i), & ! [IN]
               'LXY', land_restart_out_dtype,         & ! [IN]
               var_id(i),                             & ! [OUT]
               standard_name=var_stdn(i)              ) ! [IN]
       end do
       do i = i_sfc_temp, i_sfc_alb_vis_dif
          call file_cartesc_def_var( restart_fid,     & ! [IN]
               var_name(i), var_desc(i), var_unit(i), & ! [IN]
               'XY', land_restart_out_dtype,          & ! [IN]
               var_id(i),                             & ! [OUT]
               standard_name=var_stdn(i)              ) ! [IN]
       end do

       !call FILE_CARTESC_def_var( restart_fid, 'SNOW_SFC_TEMP',  'Snow surface temperature',    &
       !                           'K',                   'XY',   LAND_RESTART_OUT_DTYPE, ?????  )
       !call FILE_CARTESC_def_var( restart_fid, 'SNOW_SWE',       'Snow water equivalent',       &
       !                           'kg/m2',               'XY',   LAND_RESTART_OUT_DTYPE, ?????  )
       !call FILE_CARTESC_def_var( restart_fid, 'SNOW_Depth',     'Snow depth',                  &
       !                           'm',                   'XY',   LAND_RESTART_OUT_DTYPE, ?????  )
       !call FILE_CARTESC_def_var( restart_fid, 'SNOW_Dzero',     'Snow depth at melting point', &
       !                           'm',                   'XY',   LAND_RESTART_OUT_DTYPE, ?????  )
       !call FILE_CARTESC_def_var( restart_fid, 'SNOW_nosnowsec', 'Time duration without snow', &
       !                           's',                 'XY',   LAND_RESTART_OUT_DTYPE,   ?????  )

    endif

    return

Here is the call graph for this function:

Here is the caller graph for this function:

land_vars_restart_write()

subroutine, public mod_land_vars::land_vars_restart_write

(

)

Write land variables to restart file.

Definition at line 1030 of file mod_land_vars.F90.

References scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, scale_cpl_sfc_index::i_r_nir, scale_cpl_sfc_index::i_r_vis, land_sfc_albedo, land_sfc_temp, land_temp, land_vars_total(), and land_water.

Referenced by mod_admin_restart::admin_restart_write().

    use scale_file_cartesc, only: &
       file_cartesc_write_var
    implicit none
    !---------------------------------------------------------------------------

    if ( restart_fid /= -1 ) then

       call land_vars_total

       call file_cartesc_write_var( restart_fid, var_id(i_temp),                         & ! [IN]
                                    land_temp(:,:,:),                                    & ! [IN]
                                    var_name(i_temp),            'LXY', fill_halo=.true. ) ! [IN]
       call file_cartesc_write_var( restart_fid, var_id(i_water),                        & ! [IN]
                                    land_water(:,:,:),                                   & ! [IN]
                                    var_name(i_water),           'LXY', fill_halo=.true. ) ! [IN]
       call file_cartesc_write_var( restart_fid, var_id(i_sfc_temp),                     & ! [IN]
                                    land_sfc_temp(:,:),                                  & ! [IN]
                                    var_name(i_sfc_temp),        'XY',  fill_halo=.true. ) ! [IN]
       call file_cartesc_write_var( restart_fid, var_id(i_sfc_alb_ir_dir),               & ! [IN]
                                    land_sfc_albedo(:,:,i_r_direct ,i_r_ir ),            & ! [IN]
                                    var_name(i_sfc_alb_ir_dir),  'XY',  fill_halo=.true. ) ! [IN]
       call file_cartesc_write_var( restart_fid, var_id(i_sfc_alb_ir_dif),               & ! [IN]
                                    land_sfc_albedo(:,:,i_r_diffuse,i_r_ir ),            & ! [IN]
                                    var_name(i_sfc_alb_ir_dif),  'XY',  fill_halo=.true. ) ! [IN]
       call file_cartesc_write_var( restart_fid, var_id(i_sfc_alb_nir_dir),              & ! [IN]
                                    land_sfc_albedo(:,:,i_r_direct ,i_r_nir),            & ! [IN]
                                    var_name(i_sfc_alb_nir_dir), 'XY',  fill_halo=.true. ) ! [IN]
       call file_cartesc_write_var( restart_fid, var_id(i_sfc_alb_nir_dif),              & ! [IN]
                                    land_sfc_albedo(:,:,i_r_diffuse,i_r_nir),            & ! [IN]
                                    var_name(i_sfc_alb_nir_dif), 'XY',  fill_halo=.true. ) ! [IN]
       call file_cartesc_write_var( restart_fid, var_id(i_sfc_alb_vis_dir),              & ! [IN]
                                    land_sfc_albedo(:,:,i_r_direct ,i_r_vis),            & ! [IN]
                                    var_name(i_sfc_alb_vis_dir), 'XY',  fill_halo=.true. ) ! [IN]
       call file_cartesc_write_var( restart_fid, var_id(i_sfc_alb_vis_dif),              & ! [IN]
                                    land_sfc_albedo(:,:,i_r_diffuse,i_r_vis),            & ! [IN]
                                    var_name(i_sfc_alb_vis_dif), 'XY',  fill_halo=.true. ) ! [IN]

       !call FILE_CARTESC_write_var( restart_fid, VMAX+1, SNOW_SFC_TEMP(:,:),                    &
       !                           'SNOW_SFC_TEMP',       'XY',   fill_halo=.true.               )
       !call FILE_CARTESC_write_var( restart_fid, VMAX+2, SNOW_SWE(:,:),                         &
       !                           'SNOW_SWE',            'XY',   fill_halo=.true.               )
       !call FILE_CARTESC_write_var( restart_fid, VMAX+3, SNOW_Depth(:,:),                       &
       !                           'SNOW_Depth',          'XY',   fill_halo=.true.               )
       !call FILE_CARTESC_write_var( restart_fid, VMAX+4, SNOW_Dzero(:,:),                       &
       !                           'SNOW_Dzero',          'XY',   fill_halo=.true.               )
       !call FILE_CARTESC_write_var( restart_fid, VMAX+5, SNOW_nosnowsec(:,:),                   &
       !                           'SNOW_nosnowsec',      'XY',   fill_halo=.true.               )

    endif

    return

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

land_restart_output

logical, public mod_land_vars::land_restart_output = .false.

Output restart file?

Definition at line 48 of file mod_land_vars.F90.

Referenced by mod_admin_restart::admin_restart_setup(), mod_admin_restart::admin_restart_write(), and land_vars_setup().

  logical,               public :: land_restart_output                 = .false.         

land_restart_in_basename

character(len=h_long), public mod_land_vars::land_restart_in_basename = ''

Basename of the input file.

Definition at line 50 of file mod_land_vars.F90.

Referenced by mod_admin_restart::admin_restart_setup(), land_vars_restart_open(), and land_vars_setup().

  character(len=H_LONG),  public :: land_restart_in_basename           = ''

land_restart_in_aggregate

logical, public mod_land_vars::land_restart_in_aggregate

Switch to use aggregate file.

Definition at line 51 of file mod_land_vars.F90.

Referenced by mod_admin_restart::admin_restart_setup(), land_vars_restart_open(), and land_vars_setup().

  logical,                public :: land_restart_in_aggregate

land_restart_in_postfix_timelabel

logical, public mod_land_vars::land_restart_in_postfix_timelabel = .false.

Add timelabel to the basename of input file?

Definition at line 52 of file mod_land_vars.F90.

Referenced by mod_admin_restart::admin_restart_setup(), land_vars_restart_open(), and land_vars_setup().

  logical,                public :: land_restart_in_postfix_timelabel  = .false.         

land_restart_out_basename

character(len=h_long), public mod_land_vars::land_restart_out_basename = ''

Basename of the output file.

Definition at line 53 of file mod_land_vars.F90.

Referenced by mod_admin_restart::admin_restart_setup(), land_vars_restart_create(), and land_vars_setup().

  character(len=H_LONG),  public :: land_restart_out_basename          = ''

land_restart_out_aggregate

logical, public mod_land_vars::land_restart_out_aggregate

Switch to use aggregate file.

Definition at line 54 of file mod_land_vars.F90.

Referenced by mod_admin_restart::admin_restart_setup(), land_vars_restart_create(), and land_vars_setup().

  logical,                public :: land_restart_out_aggregate

land_restart_out_postfix_timelabel

logical, public mod_land_vars::land_restart_out_postfix_timelabel = .true.

Add timelabel to the basename of output file?

Definition at line 55 of file mod_land_vars.F90.

Referenced by mod_admin_restart::admin_restart_setup(), land_vars_restart_create(), and land_vars_setup().

  logical,                public :: land_restart_out_postfix_timelabel = .true.          

land_restart_out_title

character(len=h_mid), public mod_land_vars::land_restart_out_title = 'LAND restart'

Title of the output file.

Definition at line 56 of file mod_land_vars.F90.

Referenced by mod_admin_restart::admin_restart_setup(), land_vars_restart_create(), and land_vars_setup().

  character(len=H_MID),   public :: land_restart_out_title             = 'LAND restart'

land_restart_out_dtype

character(len=h_short), public mod_land_vars::land_restart_out_dtype = 'DEFAULT'

REAL4 or REAL8.

Definition at line 57 of file mod_land_vars.F90.

Referenced by mod_admin_restart::admin_restart_setup(), land_vars_restart_create(), land_vars_restart_def_var(), and land_vars_setup().

  character(len=H_SHORT), public :: land_restart_out_dtype             = 'DEFAULT'

land_temp

real(rp), dimension (:,:,:), allocatable, public mod_land_vars::land_temp

temperature of each soil layer [K]

Definition at line 60 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), mod_mkinit::land_setup(), land_vars_history(), land_vars_restart_read(), land_vars_restart_write(), land_vars_setup(), land_vars_total(), and mod_realinput::realinput_surface().

  real(RP), public, allocatable :: land_temp      (:,:,:)

land_water

real(rp), dimension (:,:,:), allocatable, public mod_land_vars::land_water

moisture of each soil layer [m3/m3]

Definition at line 61 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), mod_mkinit::land_setup(), land_vars_history(), land_vars_restart_read(), land_vars_restart_write(), land_vars_setup(), land_vars_total(), and mod_realinput::realinput_surface().

  real(RP), public, allocatable :: land_water     (:,:,:)

land_sfc_temp

real(rp), dimension (:,:), allocatable, public mod_land_vars::land_sfc_temp

land surface skin temperature [K]

Definition at line 62 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), mod_mkinit::land_setup(), mod_land_driver::land_surface_set(), land_vars_history(), land_vars_restart_read(), land_vars_restart_write(), land_vars_setup(), land_vars_total(), and mod_realinput::realinput_surface().

  real(RP), public, allocatable :: land_sfc_temp  (:,:)

land_sfc_albedo

real(rp), dimension(:,:,:,:), allocatable, public mod_land_vars::land_sfc_albedo

land surface albedo (direct/diffuse,IR/near-IR/VIS) (0-1)

Definition at line 63 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_mkinit::land_setup(), mod_land_driver::land_surface_set(), land_vars_history(), land_vars_restart_read(), land_vars_restart_write(), land_vars_setup(), land_vars_total(), and mod_realinput::realinput_surface().

  real(RP), public, allocatable :: land_sfc_albedo(:,:,:,:)

snow_sfc_temp

real(rp), dimension (:,:), allocatable, public mod_land_vars::snow_sfc_temp

snow surface temperature [K]

Definition at line 66 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), land_vars_history(), land_vars_restart_read(), land_vars_setup(), and land_vars_total().

  real(RP), public, allocatable :: snow_sfc_temp  (:,:)

snow_swe

real(rp), dimension (:,:), allocatable, public mod_land_vars::snow_swe

snow water equivalent [kg/m2]

Definition at line 67 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), land_vars_history(), land_vars_restart_read(), land_vars_setup(), and land_vars_total().

  real(RP), public, allocatable :: snow_swe       (:,:)

snow_depth

real(rp), dimension (:,:), allocatable, public mod_land_vars::snow_depth

snow depth [m]

Definition at line 68 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), land_vars_history(), land_vars_restart_read(), land_vars_setup(), and land_vars_total().

  real(RP), public, allocatable :: snow_depth     (:,:)

snow_dzero

real(rp), dimension (:,:), allocatable, public mod_land_vars::snow_dzero

snow depth at melting point [m]

Definition at line 69 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), land_vars_history(), land_vars_restart_read(), land_vars_setup(), and land_vars_total().

  real(RP), public, allocatable :: snow_dzero     (:,:)

snow_nosnowsec

real(rp), dimension (:,:), allocatable, public mod_land_vars::snow_nosnowsec

sec while no snow [s]

Definition at line 70 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), land_vars_history(), land_vars_restart_read(), and land_vars_setup().

  real(RP), public, allocatable :: snow_nosnowsec (:,:)

land_temp_t

real(rp), dimension (:,:,:), allocatable, public mod_land_vars::land_temp_t

tendency of LAND_TEMP

Definition at line 73 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), and land_vars_setup().

  real(RP), public, allocatable :: land_temp_t    (:,:,:)

land_water_t

real(rp), dimension (:,:,:), allocatable, public mod_land_vars::land_water_t

tendency of LAND_WATER

Definition at line 74 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), and land_vars_setup().

  real(RP), public, allocatable :: land_water_t   (:,:,:)

land_sflx_mw

real(rp), dimension (:,:), allocatable, public mod_land_vars::land_sflx_mw

land surface w-momentum flux [kg/m2/s]

Definition at line 77 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_set(), land_vars_history(), and land_vars_setup().

  real(RP), public, allocatable :: land_sflx_mw   (:,:)

land_sflx_mu

real(rp), dimension (:,:), allocatable, public mod_land_vars::land_sflx_mu

land surface u-momentum flux [kg/m2/s]

Definition at line 78 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_set(), land_vars_history(), and land_vars_setup().

  real(RP), public, allocatable :: land_sflx_mu   (:,:)

land_sflx_mv

real(rp), dimension (:,:), allocatable, public mod_land_vars::land_sflx_mv

land surface v-momentum flux [kg/m2/s]

Definition at line 79 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_set(), land_vars_history(), and land_vars_setup().

  real(RP), public, allocatable :: land_sflx_mv   (:,:)

land_sflx_sh

real(rp), dimension (:,:), allocatable, public mod_land_vars::land_sflx_sh

land surface sensible heat flux [J/m2/s]

Definition at line 80 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_set(), land_vars_history(), and land_vars_setup().

  real(RP), public, allocatable :: land_sflx_sh   (:,:)

land_sflx_lh

real(rp), dimension (:,:), allocatable, public mod_land_vars::land_sflx_lh

land surface latent heat flux [J/m2/s]

Definition at line 81 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_set(), land_vars_history(), and land_vars_setup().

  real(RP), public, allocatable :: land_sflx_lh   (:,:)

land_sflx_qtrc

real(rp), dimension (:,:,:), allocatable, public mod_land_vars::land_sflx_qtrc

land surface tracer flux [kg/m2/s]

Definition at line 82 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_set(), land_vars_history(), and land_vars_setup().

  real(RP), public, allocatable :: land_sflx_qtrc (:,:,:)

land_sflx_gh

real(rp), dimension (:,:), allocatable, public mod_land_vars::land_sflx_gh

land surface heat flux [J/m2/s]

Definition at line 83 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), mod_land_driver::land_surface_set(), land_vars_history(), and land_vars_setup().

  real(RP), public, allocatable :: land_sflx_gh   (:,:)

land_sflx_water

real(rp), dimension(:,:), allocatable, public mod_land_vars::land_sflx_water

land surface water flux [kg/m2/s]

Definition at line 84 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), land_vars_history(), and land_vars_setup().

  real(RP), public, allocatable :: land_sflx_water(:,:)

land_sflx_ice

real(rp), dimension (:,:), allocatable, public mod_land_vars::land_sflx_ice

land surface ice flux [kg/m2/s]

Definition at line 85 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), land_vars_history(), and land_vars_setup().

  real(RP), public, allocatable :: land_sflx_ice  (:,:)

land_u10

real(rp), dimension (:,:), allocatable, public mod_land_vars::land_u10

land surface velocity u at 10m [m/s]

Definition at line 88 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_set(), and land_vars_setup().

  real(RP), public, allocatable :: land_u10       (:,:)

land_v10

real(rp), dimension (:,:), allocatable, public mod_land_vars::land_v10

land surface velocity v at 10m [m/s]

Definition at line 89 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_set(), and land_vars_setup().

  real(RP), public, allocatable :: land_v10       (:,:)

land_t2

real(rp), dimension (:,:), allocatable, public mod_land_vars::land_t2

land surface temperature at 2m [K]

Definition at line 90 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_set(), and land_vars_setup().

  real(RP), public, allocatable :: land_t2        (:,:)

land_q2

real(rp), dimension (:,:), allocatable, public mod_land_vars::land_q2

land surface water vapor at 2m [kg/kg]

Definition at line 91 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_set(), and land_vars_setup().

  real(RP), public, allocatable :: land_q2        (:,:)

atmos_temp

real(rp), dimension (:,:), allocatable, public mod_land_vars::atmos_temp

Definition at line 94 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_get(), and land_vars_setup().

  real(RP), public, allocatable :: atmos_temp       (:,:)

atmos_pres

real(rp), dimension (:,:), allocatable, public mod_land_vars::atmos_pres

Definition at line 95 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_get(), and land_vars_setup().

  real(RP), public, allocatable :: atmos_pres       (:,:)

atmos_w

real(rp), dimension (:,:), allocatable, public mod_land_vars::atmos_w

Definition at line 96 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_get(), and land_vars_setup().

  real(RP), public, allocatable :: atmos_w          (:,:)

atmos_u

real(rp), dimension (:,:), allocatable, public mod_land_vars::atmos_u

Definition at line 97 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_get(), and land_vars_setup().

  real(RP), public, allocatable :: atmos_u          (:,:)

atmos_v

real(rp), dimension (:,:), allocatable, public mod_land_vars::atmos_v

Definition at line 98 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_get(), and land_vars_setup().

  real(RP), public, allocatable :: atmos_v          (:,:)

atmos_dens

real(rp), dimension (:,:), allocatable, public mod_land_vars::atmos_dens

Definition at line 99 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_get(), and land_vars_setup().

  real(RP), public, allocatable :: atmos_dens       (:,:)

atmos_qv

real(rp), dimension (:,:), allocatable, public mod_land_vars::atmos_qv

Definition at line 100 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_get(), and land_vars_setup().

  real(RP), public, allocatable :: atmos_qv         (:,:)

atmos_pbl

real(rp), dimension (:,:), allocatable, public mod_land_vars::atmos_pbl

Definition at line 101 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_get(), and land_vars_setup().

  real(RP), public, allocatable :: atmos_pbl        (:,:)

atmos_sfc_dens

real(rp), dimension (:,:), allocatable, public mod_land_vars::atmos_sfc_dens

Definition at line 102 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_get(), and land_vars_setup().

  real(RP), public, allocatable :: atmos_sfc_dens   (:,:)

atmos_sfc_pres

real(rp), dimension (:,:), allocatable, public mod_land_vars::atmos_sfc_pres

Definition at line 103 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_get(), and land_vars_setup().

  real(RP), public, allocatable :: atmos_sfc_pres   (:,:)

atmos_sflx_rad_dn

real(rp), dimension(:,:,:,:), allocatable, public mod_land_vars::atmos_sflx_rad_dn

Definition at line 104 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_get(), and land_vars_setup().

  real(RP), public, allocatable :: atmos_sflx_rad_dn(:,:,:,:)

atmos_cossza

real(rp), dimension (:,:), allocatable, public mod_land_vars::atmos_cossza

Definition at line 105 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_surface_get(), and land_vars_setup().

  real(RP), public, allocatable :: atmos_cossza     (:,:)

atmos_sflx_rain

real(rp), dimension (:,:), allocatable, public mod_land_vars::atmos_sflx_rain

Definition at line 106 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_get(), and land_vars_setup().

  real(RP), public, allocatable :: atmos_sflx_rain  (:,:)

atmos_sflx_snow

real(rp), dimension (:,:), allocatable, public mod_land_vars::atmos_sflx_snow

Definition at line 107 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_get(), and land_vars_setup().

  real(RP), public, allocatable :: atmos_sflx_snow  (:,:)

land_property

real(rp), dimension(:,:,:), allocatable, public mod_land_vars::land_property

land surface property

Definition at line 109 of file mod_land_vars.F90.

Referenced by convert_ws2vwc(), mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), mod_land_driver::land_surface_set(), land_vars_history(), and land_vars_setup().

  real(RP), public, allocatable :: land_property(:,:,:)

land_property_in_filename

character(len=h_long), public mod_land_vars::land_property_in_filename = ''

the file of land parameter table

Definition at line 111 of file mod_land_vars.F90.

Referenced by land_vars_total().

  character(len=H_LONG), public :: land_property_in_filename  = ''

land_property_nmax

integer, parameter, public mod_land_vars::land_property_nmax = 11

Definition at line 113 of file mod_land_vars.F90.

Referenced by land_vars_setup().

  integer,  public, parameter   :: land_property_nmax = 11

i_waterlimit

integer, parameter, public mod_land_vars::i_waterlimit = 1

Definition at line 114 of file mod_land_vars.F90.

Referenced by convert_ws2vwc(), mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), land_vars_history(), and land_vars_total().

  integer,  public, parameter   :: i_waterlimit       =  1 ! maximum  soil moisture           [m3/m3]

i_watercritical

integer, parameter, public mod_land_vars::i_watercritical = 2

Definition at line 115 of file mod_land_vars.F90.

Referenced by convert_ws2vwc(), mod_land_driver::land_driver_calc_tendency(), and land_vars_total().

  integer,  public, parameter   :: i_watercritical    =  2 ! critical soil moisture           [m3/m3]

i_stomataresist

integer, parameter, public mod_land_vars::i_stomataresist = 3

Definition at line 116 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), and land_vars_total().

  integer,  public, parameter   :: i_stomataresist    =  3 ! stomata resistance               [1/s]

i_thermalcond

integer, parameter, public mod_land_vars::i_thermalcond = 4

Definition at line 117 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), and land_vars_total().

  integer,  public, parameter   :: i_thermalcond      =  4 ! thermal conductivity for soil    [W/K/m]

i_heatcapacity

integer, parameter, public mod_land_vars::i_heatcapacity = 5

Definition at line 118 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), and land_vars_total().

  integer,  public, parameter   :: i_heatcapacity     =  5 ! heat capacity for soil           [J/K/m3]

i_waterdiff

integer, parameter, public mod_land_vars::i_waterdiff = 6

Definition at line 119 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), and land_vars_total().

  integer,  public, parameter   :: i_waterdiff        =  6 ! moisture diffusivity in the soil [m2/s]

i_alblw

integer, parameter, public mod_land_vars::i_alblw = 7

Definition at line 120 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), and land_vars_total().

  integer,  public, parameter   :: i_alblw            =  7 ! surface albedo for long  wave    [1]

i_albsw

integer, parameter, public mod_land_vars::i_albsw = 8

Definition at line 121 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), and land_vars_total().

  integer,  public, parameter   :: i_albsw            =  8 ! surface albedo for short wave    [1]

i_z0m

integer, parameter, public mod_land_vars::i_z0m = 9

Definition at line 122 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_set(), and land_vars_total().

  integer,  public, parameter   :: i_z0m              =  9 ! roughness length for momemtum    [m]

i_z0h

integer, parameter, public mod_land_vars::i_z0h = 10

Definition at line 123 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_set(), and land_vars_total().

  integer,  public, parameter   :: i_z0h              = 10 ! roughness length for heat        [m]

i_z0e

integer, parameter, public mod_land_vars::i_z0e = 11

Definition at line 124 of file mod_land_vars.F90.

Referenced by mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_set(), and land_vars_total().

  integer,  public, parameter   :: i_z0e              = 11 ! roughness length for vapor       [m]