mod_land_vars Module Reference

module LAND Variables More...

Functions/Subroutines
subroutine, public	land_vars_setup
	Setup. More...
subroutine, public	land_vars_restart_read
	Read land restart. More...
subroutine, public	land_vars_restart_write
	Write 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...
subroutine, public	land_vars_external_in (LAND_TEMP_in, LAND_WATER_in, LAND_SFC_TEMP_in, LAND_SFC_albedo_in)
	Input from External I/O. More...
real(rp) function, dimension(ia, ja), 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_var
	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 restart file More...
character(len=h_long), public	land_restart_out_basename = ''
	basename of the output file More...
character(len=h_mid), public	land_restart_out_title = 'LAND restart'
	title of the output file More...
character(len=h_mid), 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 [0-1] 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_sfc_temp_t
	tendency of LAND_SFC_TEMP More...
real(rp), dimension(:,:,:), allocatable, public	land_sfc_albedo_t
	tendency of LAND_SFC_albedo 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_gh
	land surface heat flux [J/m2/s] More...
real(rp), dimension(:,:), allocatable, public	land_sflx_evap
	land surface water vapor 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_pres
real(rp), dimension(:,:), allocatable, public	atmos_sflx_lw
real(rp), dimension(:,:), allocatable, public	atmos_sflx_sw
real(rp), dimension(:,:), allocatable, public	atmos_cossza
real(rp), dimension(:,:), allocatable, public	atmos_sflx_prec
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 = 8
integer, parameter, public	i_waterlimit = 1
integer, parameter, public	i_watercritical = 2
integer, parameter, public	i_thermalcond = 3
integer, parameter, public	i_heatcapacity = 4
integer, parameter, public	i_waterdiff = 5
integer, parameter, public	i_z0m = 6
integer, parameter, public	i_z0h = 7
integer, parameter, public	i_z0e = 8

Detailed Description

module LAND Variables

Description

Container for land variables

Author

Team SCALE

• 2013-08-31 (T.Yamaura) [new]

NAMELIST

• PARAM_LAND_VARS

  name	type	default value	comment
  LAND_RESTART_IN_BASENAME	character(len=H_LONG)	''	basename of the restart file
  LAND_RESTART_OUTPUT	logical	.false.	output restart file?
  LAND_RESTART_OUT_BASENAME	character(len=H_LONG)	''	basename of the output file
  LAND_RESTART_OUT_TITLE	character(len=H_MID)	'LAND restart'	title of the output file
  LAND_RESTART_OUT_DTYPE	character(len=H_MID)	'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_LONG)
  STRGMAX	real(RP)
  STRGCRT	real(RP)
  TCS	real(RP)
  HCS	real(RP)
  DFW	real(RP)
  Z0M	real(RP)
  Z0H	real(RP)
  Z0E	real(RP)

  
  

History Output

name	description	unit	variable
LAND_ALB_LW	land surface albedo (longwave)	0-1	LAND_SFC_albedo
LAND_ALB_SW	land surface albedo (shortwave)	0-1	LAND_SFC_albedo
LAND_SFC_TEMP	land surface skin temperature	K	LAND_SFC_TEMP
LAND_SFLX_GH	land surface ground heat flux	J/m2/s	LAND_SFLX_GH
LAND_SFLX_LH	land surface latent heat flux	J/m2/s	LAND_SFLX_LH
LAND_SFLX_MU	land surface u-momentum flux	kg/m2/s	LAND_SFLX_MU
LAND_SFLX_MV	land surface v-momentum flux	kg/m2/s	LAND_SFLX_MV
LAND_SFLX_MW	land surface w-momentum flux	kg/m2/s	LAND_SFLX_MW
LAND_SFLX_SH	land surface sensible heat flux	J/m2/s	LAND_SFLX_SH
LAND_SFLX_evap	land surface water vapor flux	kg/m2/s	LAND_SFLX_evap
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	0-1	LAND_WATERDS

Function/Subroutine Documentation

land_vars_setup()

subroutine, public mod_land_vars::land_vars_setup

(

)

Setup.

Definition at line 198 of file mod_land_vars.f90.

References atmos_cossza, atmos_dens, atmos_pbl, atmos_pres, atmos_qv, atmos_sfc_pres, atmos_sflx_lw, atmos_sflx_prec, atmos_sflx_sw, atmos_temp, atmos_u, atmos_v, atmos_w, scale_const::const_undef, scale_grid_index::ia, scale_grid_index::ie, scale_stdio::io_fid_conf, scale_stdio::io_fid_log, scale_stdio::io_l, scale_stdio::io_lnml, scale_grid_index::is, scale_grid_index::ja, scale_grid_index::je, scale_grid_index::js, land_property, land_property_nmax, land_q2, land_restart_in_basename, land_restart_out_basename, land_restart_out_dtype, land_restart_out_title, land_restart_output, land_sfc_albedo, land_sfc_albedo_t, land_sfc_temp, land_sfc_temp_t, land_sflx_evap, land_sflx_gh, land_sflx_lh, land_sflx_mu, land_sflx_mv, land_sflx_mw, land_sflx_sh, 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_land_grid_index::lkmax, and scale_process::prc_mpistop().

Referenced by mod_rm_driver::scalerm(), and mod_rm_prep::scalerm_prep().

    use scale_process, only: &
       prc_mpistop
    use scale_const, only: &
       undef => const_undef
    use scale_comm, only: &
       comm_vars8, &
       comm_wait
    use scale_landuse, only: &
       landuse_index_pft, &
       landuse_pft_nmax
    implicit none

    namelist / param_land_vars /  &
       land_restart_in_basename,  &
       land_restart_output,       &
       land_restart_out_basename, &
       land_restart_out_title,    &
       land_restart_out_dtype,    &
       land_vars_checkrange

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

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '++++++ Module[VARS] / Categ[LAND] / Origin[SCALE-RM]'

    allocate( land_temp(lkmax,ia,ja) )
    allocate( land_water(lkmax,ia,ja) )
    allocate( land_sfc_temp(ia,ja)       )
    allocate( land_sfc_albedo(ia,ja,2)     )
    land_temp(:,:,:) = undef
    land_water(:,:,:) = undef
    land_sfc_temp(:,:)   = undef
    land_sfc_albedo(:,:,:) = undef

    allocate( land_temp_t(lkmax,ia,ja) )
    allocate( land_water_t(lkmax,ia,ja) )
    allocate( land_sfc_temp_t(ia,ja)       )
    allocate( land_sfc_albedo_t(ia,ja,2)     )
    land_temp_t(:,:,:) = undef
    land_water_t(:,:,:) = undef
    land_sfc_temp_t(:,:)   = undef
    land_sfc_albedo_t(:,:,:) = undef

    allocate( land_sflx_mw(ia,ja) )
    allocate( land_sflx_mu(ia,ja) )
    allocate( land_sflx_mv(ia,ja) )
    allocate( land_sflx_sh(ia,ja) )
    allocate( land_sflx_lh(ia,ja) )
    allocate( land_sflx_gh(ia,ja) )
    allocate( land_sflx_evap(ia,ja) )
    land_sflx_mw(:,:) = undef
    land_sflx_mu(:,:) = undef
    land_sflx_mv(:,:) = undef
    land_sflx_sh(:,:) = undef
    land_sflx_lh(:,:) = undef
    land_sflx_gh(:,:) = undef
    land_sflx_evap(:,:) = undef

    allocate( land_u10(ia,ja) )
    allocate( land_v10(ia,ja) )
    allocate( land_t2(ia,ja) )
    allocate( land_q2(ia,ja) )
    land_u10(:,:) = undef
    land_v10(:,:) = undef
    land_t2(:,:) = undef
    land_q2(:,:) = undef

    allocate( atmos_temp(ia,ja) )
    allocate( atmos_pres(ia,ja) )
    allocate( atmos_w(ia,ja) )
    allocate( atmos_u(ia,ja) )
    allocate( atmos_v(ia,ja) )
    allocate( atmos_dens(ia,ja) )
    allocate( atmos_qv(ia,ja) )
    allocate( atmos_pbl(ia,ja) )
    allocate( atmos_sfc_pres(ia,ja) )
    allocate( atmos_sflx_lw(ia,ja) )
    allocate( atmos_sflx_sw(ia,ja) )
    allocate( atmos_cossza(ia,ja) )
    allocate( atmos_sflx_prec(ia,ja) )
    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_pres(:,:) = undef
    atmos_sflx_lw(:,:) = undef
    atmos_sflx_sw(:,:) = undef
    atmos_cossza(:,:) = undef
    atmos_sflx_prec(:,:) = undef

    land_qa_comm = lkmax &
                 + lkmax &
                 + 1     &
                 + 2

    allocate( work_comm(ia,ja,land_qa_comm) )

    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_land_vars,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       if( io_l ) write(io_fid_log,*) '*** Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       write(*,*) 'xxx Not appropriate names in namelist PARAM_LAND_VARS. Check!'
       call prc_mpistop
    endif
    if( io_lnml ) write(io_fid_log,nml=param_land_vars)

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '*** List of prognostic variables (LAND) ***'
    if( io_l ) write(io_fid_log,'(1x,A,A15,A,A32,3(A))') &
               '***       |','VARNAME        ','|', 'DESCRIPTION                     ','[', 'UNIT            ',']'
    do iv = 1, vmax
       if( io_l ) write(io_fid_log,'(1x,A,i3,A,A15,A,A32,3(A))') &
                  '*** NO.',iv,'|',var_name(iv),'|',var_desc(iv),'[',var_unit(iv),']'
    enddo

    if( io_l ) write(io_fid_log,*)
    if ( land_restart_in_basename /= '' ) then
       if( io_l ) write(io_fid_log,*) '*** Restart input?  : ', trim(land_restart_in_basename)
    else
       if( io_l ) write(io_fid_log,*) '*** Restart input?  : NO'
    endif
    if (       land_restart_output             &
         .AND. land_restart_out_basename /= '' ) then
       if( io_l ) write(io_fid_log,*) '*** Restart output? : ', trim(land_restart_out_basename)
    else
       if( io_l ) write(io_fid_log,*) '*** Restart output? : NO'
       land_restart_output = .false.
    endif

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

    call land_param_read

    ! Apply land property to 2D map
    allocate( land_property(ia,ja,land_property_nmax) )

    ! tentative, mosaic is off
    do p = 1, land_property_nmax
    do j = js, je
    do i = is, ie
       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_read()

subroutine, public mod_land_vars::land_vars_restart_read

(

)

Read land restart.

Definition at line 366 of file mod_land_vars.f90.

References scale_stdio::io_fid_log, scale_stdio::io_l, land_restart_in_basename, land_sfc_albedo, land_sfc_temp, land_sflx_evap, land_sflx_gh, land_sflx_lh, land_sflx_mu, land_sflx_mv, land_sflx_mw, land_sflx_sh, mod_land_admin::land_sw, land_temp, land_vars_total(), and land_water.

Referenced by mod_rm_driver::resume_state().

    use scale_fileio, only: &
       fileio_read
    use mod_land_admin, only: &
       land_sw
    implicit none
    !---------------------------------------------------------------------------

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '*** Input restart file (LAND) ***'

    if ( land_sw .and. land_restart_in_basename /= '' ) then
       if( io_l ) write(io_fid_log,*) '*** basename: ', trim(land_restart_in_basename)

       call fileio_read( land_temp(:,:,:),                                              & ! [OUT]
                         land_restart_in_basename, var_name(i_temp),      'Land', step=1 ) ! [IN]
       call fileio_read( land_water(:,:,:),                                              & ! [OUT]
                         land_restart_in_basename, var_name(i_water),     'Land', step=1 ) ! [IN]
       call fileio_read( land_sfc_temp(:,:),                                             & ! [OUT]
                         land_restart_in_basename, var_name(i_sfc_temp),  'XY',   step=1 ) ! [IN]
       call fileio_read( land_sfc_albedo(:,:,i_lw),                                      & ! [OUT]
                         land_restart_in_basename, var_name(i_alb_lw),    'XY',   step=1 ) ! [IN]
       call fileio_read( land_sfc_albedo(:,:,i_sw),                                      & ! [OUT]
                         land_restart_in_basename, var_name(i_alb_sw),    'XY',   step=1 ) ! [IN]
       call fileio_read( land_sflx_mw(:,:),                                              & ! [OUT]
                         land_restart_in_basename, var_name(i_sflx_mw),   'XY',   step=1 ) ! [IN]
       call fileio_read( land_sflx_mu(:,:),                                              & ! [OUT]
                         land_restart_in_basename, var_name(i_sflx_mu),   'XY',   step=1 ) ! [IN]
       call fileio_read( land_sflx_mv(:,:),                                              & ! [OUT]
                         land_restart_in_basename, var_name(i_sflx_mv),   'XY',   step=1 ) ! [IN]
       call fileio_read( land_sflx_sh(:,:),                                              & ! [OUT]
                         land_restart_in_basename, var_name(i_sflx_sh),   'XY',   step=1 ) ! [IN]
       call fileio_read( land_sflx_lh(:,:),                                              & ! [OUT]
                         land_restart_in_basename, var_name(i_sflx_lh),   'XY',   step=1 ) ! [IN]
       call fileio_read( land_sflx_gh(:,:),                                              & ! [OUT]
                         land_restart_in_basename, var_name(i_sflx_gh),   'XY',   step=1 ) ! [IN]
       call fileio_read( land_sflx_evap(:,:),                                            & ! [OUT]
                         land_restart_in_basename, var_name(i_sflx_evap), 'XY',   step=1 ) ! [IN]

       call land_vars_total
    else
       if( io_l ) write(io_fid_log,*) '*** 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_write()

subroutine, public mod_land_vars::land_vars_restart_write

(

)

Write land restart.

Definition at line 415 of file mod_land_vars.f90.

References scale_stdio::io_fid_log, scale_stdio::io_l, land_restart_out_basename, land_restart_out_dtype, land_restart_out_title, land_sfc_albedo, land_sfc_temp, land_sflx_evap, land_sflx_gh, land_sflx_lh, land_sflx_mu, land_sflx_mv, land_sflx_mw, land_sflx_sh, mod_land_admin::land_sw, land_temp, land_vars_total(), land_water, and scale_time::time_gettimelabel().

Referenced by mod_mkinit::mkinit(), and mod_rm_driver::scalerm().

    use scale_time, only: &
       time_gettimelabel
    use scale_fileio, only: &
       fileio_write
    use mod_land_admin, only: &
       land_sw
    implicit none

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

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

       call time_gettimelabel( timelabel )
       write(basename,'(A,A,A)') trim(land_restart_out_basename), '_', trim(timelabel)

       if( io_l ) write(io_fid_log,*)
       if( io_l ) write(io_fid_log,*) '*** Output restart file (LAND) ***'
       if( io_l ) write(io_fid_log,*) '*** basename: ', trim(basename)

       call land_vars_total

       call fileio_write( land_temp(:,:,:),      basename,               land_restart_out_title, & ! [IN]
                          var_name(i_temp),          var_desc(i_temp),       var_unit(i_temp),       & ! [IN]
                          'Land',                    land_restart_out_dtype, nohalo=.true.           ) ! [IN]
       call fileio_write( land_water(:,:,:),      basename,               land_restart_out_title, & ! [IN]
                          var_name(i_water),         var_desc(i_water),      var_unit(i_water),      & ! [IN]
                          'Land',                    land_restart_out_dtype, nohalo=.true.           ) ! [IN]
       call fileio_write( land_sfc_temp(:,:),        basename,               land_restart_out_title, & ! [IN]
                          var_name(i_sfc_temp),      var_desc(i_sfc_temp),   var_unit(i_sfc_temp),   & ! [IN]
                          'XY',                      land_restart_out_dtype, nohalo=.true.           ) ! [IN]
       call fileio_write( land_sfc_albedo(:,:,i_lw), basename,               land_restart_out_title, & ! [IN]
                          var_name(i_alb_lw),        var_desc(i_alb_lw),     var_unit(i_alb_lw),     & ! [IN]
                          'XY',                      land_restart_out_dtype, nohalo=.true.           ) ! [IN]
       call fileio_write( land_sfc_albedo(:,:,i_sw), basename,               land_restart_out_title, & ! [IN]
                          var_name(i_alb_sw),        var_desc(i_alb_sw),     var_unit(i_alb_sw),     & ! [IN]
                          'XY',                      land_restart_out_dtype, nohalo=.true.           ) ! [IN]
       call fileio_write( land_sflx_mw(:,:),         basename,               land_restart_out_title, & ! [IN]
                          var_name(i_sflx_mw),       var_desc(i_sflx_mw),    var_unit(i_sflx_mw),    & ! [IN]
                          'XY',                      land_restart_out_dtype, nohalo=.true.           ) ! [IN]
       call fileio_write( land_sflx_mu(:,:),         basename,               land_restart_out_title, & ! [IN]
                          var_name(i_sflx_mu),       var_desc(i_sflx_mu),    var_unit(i_sflx_mu),    & ! [IN]
                          'XY',                      land_restart_out_dtype, nohalo=.true.           ) ! [IN]
       call fileio_write( land_sflx_mv(:,:),         basename,               land_restart_out_title, & ! [IN]
                          var_name(i_sflx_mv),       var_desc(i_sflx_mv),    var_unit(i_sflx_mv),    & ! [IN]
                          'XY',                      land_restart_out_dtype, nohalo=.true.           ) ! [IN]
       call fileio_write( land_sflx_sh(:,:),         basename,               land_restart_out_title, & ! [IN]
                          var_name(i_sflx_sh),       var_desc(i_sflx_sh),    var_unit(i_sflx_sh),    & ! [IN]
                          'XY',                      land_restart_out_dtype, nohalo=.true.           ) ! [IN]
       call fileio_write( land_sflx_lh(:,:),         basename,               land_restart_out_title, & ! [IN]
                          var_name(i_sflx_lh),       var_desc(i_sflx_lh),    var_unit(i_sflx_lh),    & ! [IN]
                          'XY',                      land_restart_out_dtype, nohalo=.true.           ) ! [IN]
       call fileio_write( land_sflx_gh(:,:),         basename,               land_restart_out_title, & ! [IN]
                          var_name(i_sflx_gh),       var_desc(i_sflx_gh),    var_unit(i_sflx_gh),    & ! [IN]
                          'XY',                      land_restart_out_dtype, nohalo=.true.           ) ! [IN]
       call fileio_write( land_sflx_evap(:,:),       basename,               land_restart_out_title, & ! [IN]
                          var_name(i_sflx_evap),     var_desc(i_sflx_evap),  var_unit(i_sflx_evap),  & ! [IN]
                          'XY',                      land_restart_out_dtype, nohalo=.true.           ) ! [IN]

    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 483 of file mod_land_vars.f90.

References i_waterlimit, scale_grid_index::ie, scale_grid_index::is, scale_grid_index::je, scale_grid_index::js, land_property, land_sfc_albedo, land_sfc_temp, land_sflx_evap, land_sflx_gh, land_sflx_lh, land_sflx_mu, land_sflx_mv, land_sflx_mw, land_sflx_sh, land_temp, land_water, and scale_land_grid_index::lkmax.

Referenced by mod_land_driver::land_driver(), and mod_land_driver::land_driver_resume().

    use scale_history, only: &
       hist_in
    implicit none

    real(RP) :: land_waterds(lkmax,ia,ja)
    integer :: k, i, j
    !---------------------------------------------------------------------------

    if ( land_vars_checkrange ) then
       call valcheck( land_temp(:,is:ie,js:je),    0.0_rp, 1000.0_rp, var_name(i_temp),       &
                     __file__, __line__ )
       call valcheck( land_water(:,is:ie,js:je),    0.0_rp, 1000.0_rp, var_name(i_water),      &
                     __file__, __line__ )
       call valcheck( land_sfc_temp(is:ie,js:je),      0.0_rp, 1000.0_rp, var_name(i_sfc_temp),   &
                     __file__, __line__ )
       call valcheck( land_sfc_albedo(is:ie,js:je,i_lw), 0.0_rp,    2.0_rp, var_name(i_alb_lw),     &
                     __file__, __line__ )
       call valcheck( land_sfc_albedo(is:ie,js:je,i_sw), 0.0_rp,    2.0_rp, var_name(i_alb_sw),     &
                     __file__, __line__ )
    endif

    call hist_in( land_temp(:,:,:), var_name(i_temp),  var_desc(i_temp),  var_unit(i_temp),  zdim='land' )
    call hist_in( land_water(:,:,:), var_name(i_water), var_desc(i_water), var_unit(i_water), zdim='land' )
    do j = js, je
    do i = is, ie
    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 hist_in( land_waterds(:,:,:), var_name(i_waterds), var_desc(i_waterds), var_unit(i_waterds), zdim='land', nohalo=.true. )


    call hist_in( land_sfc_temp(:,:),      var_name(i_sfc_temp),   var_desc(i_sfc_temp),   var_unit(i_sfc_temp) )
    call hist_in( land_sfc_albedo(:,:,i_lw), var_name(i_alb_lw),     var_desc(i_alb_lw),     var_unit(i_alb_lw)   )
    call hist_in( land_sfc_albedo(:,:,i_sw), var_name(i_alb_sw),     var_desc(i_alb_sw),     var_unit(i_alb_sw)   )

    call hist_in( land_sflx_mw(:,:), var_name(i_sflx_mw),   var_desc(i_sflx_mw),   var_unit(i_sflx_mw)   )
    call hist_in( land_sflx_mu(:,:), var_name(i_sflx_mu),   var_desc(i_sflx_mu),   var_unit(i_sflx_mu)   )
    call hist_in( land_sflx_mv(:,:), var_name(i_sflx_mv),   var_desc(i_sflx_mv),   var_unit(i_sflx_mv)   )
    call hist_in( land_sflx_sh(:,:), var_name(i_sflx_sh),   var_desc(i_sflx_sh),   var_unit(i_sflx_sh)   )
    call hist_in( land_sflx_lh(:,:), var_name(i_sflx_lh),   var_desc(i_sflx_lh),   var_unit(i_sflx_lh)   )
    call hist_in( land_sflx_gh(:,:), var_name(i_sflx_gh),   var_desc(i_sflx_gh),   var_unit(i_sflx_gh)   )
    call hist_in( land_sflx_evap(:,:), var_name(i_sflx_evap), var_desc(i_sflx_evap), var_unit(i_sflx_evap) )

    return

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 534 of file mod_land_vars.f90.

References land_sfc_albedo, land_sfc_temp, land_temp, land_water, scale_land_grid_index::lke, scale_land_grid_index::lks, and scale_rm_statistics::statistics_checktotal.

Referenced by mod_land_driver::land_driver(), land_vars_external_in(), land_vars_restart_read(), land_vars_restart_write(), and land_vars_restart_write_var().

    use scale_rm_statistics, only: &
       statistics_checktotal, &
       stat_total
    implicit none

    real(RP) :: total

    character(len=2) :: sk
    integer          :: k
    !---------------------------------------------------------------------------

    if ( statistics_checktotal ) then

       do k = lks, lke
          write(sk,'(I2.2)') k

          call stat_total( total, land_temp(k,:,:), trim(var_name(i_temp) )//sk )
          call stat_total( total, land_water(k,:,:), trim(var_name(i_water))//sk )
       enddo

       call stat_total( total, land_sfc_temp(:,:),      var_name(i_sfc_temp) )
       call stat_total( total, land_sfc_albedo(:,:,i_lw), var_name(i_alb_lw)   )
       call stat_total( total, land_sfc_albedo(:,:,i_sw), var_name(i_alb_sw)   )

    endif

    return

Here is the caller graph for this function:

land_vars_external_in()

subroutine, public mod_land_vars::land_vars_external_in	(	real(rp), dimension (:,:,:), intent(in)	LAND_TEMP_in,
		real(rp), dimension(:,:,:), intent(in)	LAND_WATER_in,
		real(rp), dimension (ia,ja), intent(in)	LAND_SFC_TEMP_in,
		real(rp), dimension(ia,ja,2), intent(in)	LAND_SFC_albedo_in
	)

Input from External I/O.

Definition at line 570 of file mod_land_vars.f90.

References i_heatcapacity, i_thermalcond, i_watercritical, i_waterdiff, i_waterlimit, i_z0e, i_z0h, i_z0m, scale_stdio::io_fid_conf, scale_stdio::io_fid_log, scale_stdio::io_get_available_fid(), scale_stdio::io_l, scale_stdio::io_lnml, land_property_in_filename, land_sfc_albedo, land_sfc_temp, land_sflx_evap, land_sflx_gh, land_sflx_lh, land_sflx_mu, land_sflx_mv, land_sflx_mw, land_sflx_sh, land_temp, land_vars_total(), land_water, scale_landuse::landuse_pft_nmax, and scale_process::prc_mpistop().

    implicit none

    real(RP), intent(in) :: land_temp_in (:,:,:)
    real(RP), intent(in) :: land_water_in(:,:,:)
    real(RP), intent(in) :: land_sfc_temp_in  (ia,ja)
    real(RP), intent(in) :: land_sfc_albedo_in(ia,ja,2)
    !---------------------------------------------------------------------------

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '*** External Input (land) ***'

    land_temp(:,:,:) = land_temp_in(:,:,:)
    land_water(:,:,:) = land_water_in(:,:,:)
    land_sfc_temp(:,:)   = land_sfc_temp_in(:,:)
    land_sfc_albedo(:,:,:) = land_sfc_albedo_in(:,:,:)

    land_sflx_mw(:,:) = 0.0_rp
    land_sflx_mu(:,:) = 0.0_rp
    land_sflx_mv(:,:) = 0.0_rp
    land_sflx_sh(:,:) = 0.0_rp
    land_sflx_lh(:,:) = 0.0_rp
    land_sflx_gh(:,:) = 0.0_rp
    land_sflx_evap(:,:) = 0.0_rp

    call land_vars_total

    return

Here is the call graph for this function:

convert_ws2vwc()

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

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

Definition at line 739 of file mod_land_vars.f90.

References i_watercritical, i_waterlimit, scale_grid_index::ie, scale_grid_index::is, scale_grid_index::je, scale_grid_index::js, and land_property.

Referenced by mod_realinput::land_interporation().

    implicit none

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

    real(RP) :: vwc(ia,ja) ! volumetric water content [m3/m3]

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

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

    do j = js, je
    do i = is, ie
      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 768 of file mod_land_vars.f90.

References scale_fileio::fileio_create(), scale_stdio::io_fid_log, scale_stdio::io_l, land_restart_out_basename, land_restart_out_dtype, land_restart_out_title, mod_land_admin::land_sw, and scale_time::time_gettimelabel().

Referenced by mod_admin_restart::admin_restart().

    use scale_time, only: &
       time_gettimelabel
    use scale_fileio, only: &
       fileio_create
    use mod_land_admin, only: &
       land_sw
    implicit none

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

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

       call time_gettimelabel( timelabel )
       write(basename,'(A,A,A)') trim(land_restart_out_basename), '_', trim(timelabel)

       if( io_l ) write(io_fid_log,*)
       if( io_l ) write(io_fid_log,*) '*** Output restart file (LAND) ***'
       if( io_l ) write(io_fid_log,*) '*** basename: ', trim(basename)

       call fileio_create(restart_fid, basename, land_restart_out_title, 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_enddef()

subroutine, public mod_land_vars::land_vars_restart_enddef

(

)

Exit netCDF define mode.

Definition at line 798 of file mod_land_vars.f90.

References scale_fileio::fileio_enddef().

Referenced by mod_admin_restart::admin_restart().

    use scale_fileio, only: &
       fileio_enddef
    implicit none

    if ( restart_fid .NE. -1 ) then
       call fileio_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 812 of file mod_land_vars.f90.

References scale_fileio::fileio_close().

Referenced by mod_admin_restart::admin_restart().

    use scale_fileio, only: &
       fileio_close
    implicit none

    if ( restart_fid .NE. -1 ) then
       call fileio_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 827 of file mod_land_vars.f90.

References scale_fileio::fileio_def_var(), and land_restart_out_dtype.

Referenced by mod_admin_restart::admin_restart().

    use scale_fileio, only: &
       fileio_def_var
    implicit none

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

    if ( restart_fid .NE. -1 ) then

       call fileio_def_var( restart_fid, var_id(i_temp),      var_name(i_temp),      var_desc(i_temp),      &
                            var_unit(i_temp),      'Land', land_restart_out_dtype)
       call fileio_def_var( restart_fid, var_id(i_water),     var_name(i_water),     var_desc(i_water),     &
                            var_unit(i_water),     'Land', land_restart_out_dtype)
       call fileio_def_var( restart_fid, var_id(i_sfc_temp),  var_name(i_sfc_temp),  var_desc(i_sfc_temp),  &
                            var_unit(i_sfc_temp),  'XY',   land_restart_out_dtype)
       call fileio_def_var( restart_fid, var_id(i_alb_lw),    var_name(i_alb_lw),    var_desc(i_alb_lw),    &
                            var_unit(i_alb_lw),    'XY',   land_restart_out_dtype)
       call fileio_def_var( restart_fid, var_id(i_alb_sw),    var_name(i_alb_sw),    var_desc(i_alb_sw),    &
                            var_unit(i_alb_sw),    'XY',   land_restart_out_dtype)
       call fileio_def_var( restart_fid, var_id(i_sflx_mw),   var_name(i_sflx_mw),   var_desc(i_sflx_mw),   &
                            var_unit(i_sflx_mw),   'XY',   land_restart_out_dtype)
       call fileio_def_var( restart_fid, var_id(i_sflx_mu),   var_name(i_sflx_mu),   var_desc(i_sflx_mu),   &
                            var_unit(i_sflx_mu),   'XY',   land_restart_out_dtype)
       call fileio_def_var( restart_fid, var_id(i_sflx_mv),   var_name(i_sflx_mv),   var_desc(i_sflx_mv),   &
                            var_unit(i_sflx_mv),   'XY',   land_restart_out_dtype)
       call fileio_def_var( restart_fid, var_id(i_sflx_sh),   var_name(i_sflx_sh),   var_desc(i_sflx_sh),   &
                            var_unit(i_sflx_sh),   'XY',   land_restart_out_dtype)
       call fileio_def_var( restart_fid, var_id(i_sflx_lh),   var_name(i_sflx_lh),   var_desc(i_sflx_lh),   &
                            var_unit(i_sflx_lh),   'XY',   land_restart_out_dtype)
       call fileio_def_var( restart_fid, var_id(i_sflx_gh),   var_name(i_sflx_gh),   var_desc(i_sflx_gh),   &
                            var_unit(i_sflx_gh),   'XY',   land_restart_out_dtype)
       call fileio_def_var( restart_fid, var_id(i_sflx_evap), var_name(i_sflx_evap), var_desc(i_sflx_evap), &
                            var_unit(i_sflx_evap), '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_var()

subroutine, public mod_land_vars::land_vars_restart_write_var

(

)

Write land variables to restart file.

Definition at line 868 of file mod_land_vars.f90.

References land_sfc_albedo, land_sfc_temp, land_sflx_evap, land_sflx_gh, land_sflx_lh, land_sflx_mu, land_sflx_mv, land_sflx_mw, land_sflx_sh, land_temp, land_vars_total(), and land_water.

Referenced by mod_admin_restart::admin_restart().

    use scale_fileio, only: &
       fileio_write_var
    implicit none

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

    if ( restart_fid .NE. -1 ) then

       call land_vars_total

       call fileio_write_var( restart_fid, var_id(i_temp),      land_temp(:,:,:),          & ! [IN]
                              var_name(i_temp),      'Land', nohalo=.true.                 ) ! [IN]
       call fileio_write_var( restart_fid, var_id(i_water),     land_water(:,:,:),         & ! [IN]
                              var_name(i_water),     'Land', nohalo=.true.                 ) ! [IN]
       call fileio_write_var( restart_fid, var_id(i_sfc_temp),  land_sfc_temp(:,:),        & ! [IN]
                              var_name(i_sfc_temp),  'XY',   nohalo=.true.                 ) ! [IN]
       call fileio_write_var( restart_fid, var_id(i_alb_lw),    land_sfc_albedo(:,:,i_lw), & ! [IN]
                              var_name(i_alb_lw),    'XY',   nohalo=.true.                 ) ! [IN]
       call fileio_write_var( restart_fid, var_id(i_alb_sw),    land_sfc_albedo(:,:,i_sw), & ! [IN]
                              var_name(i_alb_sw),    'XY',   nohalo=.true.                 ) ! [IN]
       call fileio_write_var( restart_fid, var_id(i_sflx_mw),   land_sflx_mw(:,:),         & ! [IN]
                              var_name(i_sflx_mw),   'XY',   nohalo=.true.                 ) ! [IN]
       call fileio_write_var( restart_fid, var_id(i_sflx_mu),   land_sflx_mu(:,:),         & ! [IN]
                              var_name(i_sflx_mu),   'XY',   nohalo=.true.                 ) ! [IN]
       call fileio_write_var( restart_fid, var_id(i_sflx_mv),   land_sflx_mv(:,:),         & ! [IN]
                              var_name(i_sflx_mv),   'XY',   nohalo=.true.                 ) ! [IN]
       call fileio_write_var( restart_fid, var_id(i_sflx_sh),   land_sflx_sh(:,:),         & ! [IN]
                              var_name(i_sflx_sh),   'XY',   nohalo=.true.                 ) ! [IN]
       call fileio_write_var( restart_fid, var_id(i_sflx_lh),   land_sflx_lh(:,:),         & ! [IN]
                              var_name(i_sflx_lh),   'XY',   nohalo=.true.                 ) ! [IN]
       call fileio_write_var( restart_fid, var_id(i_sflx_gh),   land_sflx_gh(:,:),         & ! [IN]
                              var_name(i_sflx_gh),   'XY',   nohalo=.true.                 ) ! [IN]
       call fileio_write_var( restart_fid, var_id(i_sflx_evap), land_sflx_evap(:,:),       & ! [IN]
                              var_name(i_sflx_evap), 'XY',   nohalo=.true.                 ) ! [IN]

    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 52 of file mod_land_vars.f90.

Referenced by mod_admin_restart::admin_restart(), mod_admin_restart::admin_restart_setup(), land_vars_setup(), mod_mkinit::mkinit(), and mod_rm_driver::scalerm().

  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 restart file

Definition at line 54 of file mod_land_vars.f90.

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

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

land_restart_out_basename

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

basename of the output file

Definition at line 55 of file mod_land_vars.f90.

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

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

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(), land_vars_restart_write(), and land_vars_setup().

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

land_restart_out_dtype

character(len=h_mid), 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(), land_vars_restart_write(), and land_vars_setup().

  character(len=H_MID),  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(), mod_land_phy_driver::land_phy_driver(), mod_mkinit::land_setup(), land_vars_external_in(), land_vars_history(), land_vars_restart_read(), land_vars_restart_write(), land_vars_restart_write_var(), 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(), mod_land_phy_driver::land_phy_driver(), mod_mkinit::land_setup(), land_vars_external_in(), land_vars_history(), land_vars_restart_read(), land_vars_restart_write(), land_vars_restart_write_var(), 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(), mod_land_phy_driver::land_phy_driver(), mod_mkinit::land_setup(), mod_land_driver::land_surface_set(), land_vars_external_in(), land_vars_history(), land_vars_restart_read(), land_vars_restart_write(), land_vars_restart_write_var(), 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 [0-1]

Definition at line 63 of file mod_land_vars.f90.

Referenced by mod_land_driver::land_driver(), mod_land_phy_driver::land_phy_driver(), mod_mkinit::land_setup(), mod_land_driver::land_surface_set(), land_vars_external_in(), land_vars_history(), land_vars_restart_read(), land_vars_restart_write(), land_vars_restart_write_var(), land_vars_setup(), land_vars_total(), and mod_realinput::realinput_surface().

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

land_temp_t

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

tendency of LAND_TEMP

Definition at line 66 of file mod_land_vars.f90.

Referenced by mod_land_driver::land_driver(), mod_land_phy_driver::land_phy_driver(), 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 67 of file mod_land_vars.f90.

Referenced by mod_land_driver::land_driver(), mod_land_phy_driver::land_phy_driver(), and land_vars_setup().

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

land_sfc_temp_t

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

tendency of LAND_SFC_TEMP

Definition at line 68 of file mod_land_vars.f90.

Referenced by mod_land_driver::land_driver(), mod_land_phy_driver::land_phy_driver(), and land_vars_setup().

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

land_sfc_albedo_t

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

tendency of LAND_SFC_albedo

Definition at line 69 of file mod_land_vars.f90.

Referenced by mod_land_driver::land_driver(), mod_land_phy_driver::land_phy_driver(), and land_vars_setup().

  real(RP), public, allocatable :: land_sfc_albedo_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 72 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), mod_land_driver::land_surface_set(), land_vars_external_in(), land_vars_history(), land_vars_restart_read(), land_vars_restart_write(), land_vars_restart_write_var(), 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 73 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), mod_land_driver::land_surface_set(), land_vars_external_in(), land_vars_history(), land_vars_restart_read(), land_vars_restart_write(), land_vars_restart_write_var(), 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 74 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), mod_land_driver::land_surface_set(), land_vars_external_in(), land_vars_history(), land_vars_restart_read(), land_vars_restart_write(), land_vars_restart_write_var(), 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 75 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), mod_land_driver::land_surface_set(), land_vars_external_in(), land_vars_history(), land_vars_restart_read(), land_vars_restart_write(), land_vars_restart_write_var(), 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 76 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), mod_land_driver::land_surface_set(), land_vars_external_in(), land_vars_history(), land_vars_restart_read(), land_vars_restart_write(), land_vars_restart_write_var(), and land_vars_setup().

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

land_sflx_gh

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

land surface heat flux [J/m2/s]

Definition at line 77 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), mod_land_driver::land_surface_set(), land_vars_external_in(), land_vars_history(), land_vars_restart_read(), land_vars_restart_write(), land_vars_restart_write_var(), and land_vars_setup().

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

land_sflx_evap

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

land surface water vapor flux [kg/m2/s]

Definition at line 78 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), mod_land_driver::land_surface_set(), land_vars_external_in(), land_vars_history(), land_vars_restart_read(), land_vars_restart_write(), land_vars_restart_write_var(), and land_vars_setup().

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

land_u10

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

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

Definition at line 81 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), 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 82 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), 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 83 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), 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 84 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), 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 87 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), 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 88 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), 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 89 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), 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 90 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), 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 91 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), 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 92 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), 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 93 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), 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 94 of file mod_land_vars.f90.

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

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

atmos_sfc_pres

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

Definition at line 95 of file mod_land_vars.f90.

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

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

atmos_sflx_lw

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

Definition at line 96 of file mod_land_vars.f90.

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

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

atmos_sflx_sw

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

Definition at line 97 of file mod_land_vars.f90.

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

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

atmos_cossza

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

Definition at line 98 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_prec

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

Definition at line 99 of file mod_land_vars.f90.

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

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

land_property

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

land surface property

Definition at line 101 of file mod_land_vars.f90.

Referenced by convert_ws2vwc(), mod_land_phy_driver::land_phy_driver(), 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 103 of file mod_land_vars.f90.

Referenced by land_vars_external_in().

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

land_property_nmax

integer, parameter, public mod_land_vars::land_property_nmax = 8

Definition at line 105 of file mod_land_vars.f90.

Referenced by land_vars_setup().

  integer,  public, parameter   :: land_property_nmax = 8

i_waterlimit

integer, parameter, public mod_land_vars::i_waterlimit = 1

Definition at line 106 of file mod_land_vars.f90.

Referenced by convert_ws2vwc(), mod_land_phy_driver::land_phy_driver(), land_vars_external_in(), and land_vars_history().

  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 107 of file mod_land_vars.f90.

Referenced by convert_ws2vwc(), mod_land_phy_driver::land_phy_driver(), and land_vars_external_in().

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

i_thermalcond

integer, parameter, public mod_land_vars::i_thermalcond = 3

Definition at line 108 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), and land_vars_external_in().

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

i_heatcapacity

integer, parameter, public mod_land_vars::i_heatcapacity = 4

Definition at line 109 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), and land_vars_external_in().

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

i_waterdiff

integer, parameter, public mod_land_vars::i_waterdiff = 5

Definition at line 110 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), and land_vars_external_in().

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

i_z0m

integer, parameter, public mod_land_vars::i_z0m = 6

Definition at line 111 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), mod_land_driver::land_surface_set(), and land_vars_external_in().

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

i_z0h

integer, parameter, public mod_land_vars::i_z0h = 7

Definition at line 112 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), mod_land_driver::land_surface_set(), and land_vars_external_in().

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

i_z0e

integer, parameter, public mod_land_vars::i_z0e = 8

Definition at line 113 of file mod_land_vars.f90.

Referenced by mod_land_phy_driver::land_phy_driver(), mod_land_driver::land_surface_set(), and land_vars_external_in().

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