casa_param.F90 Source File


This file depends on

sourcefile~~casa_param.f90~~EfferentGraph sourcefile~casa_param.f90 casa_param.F90 sourcefile~casa_dimension.f90 casa_dimension.F90 sourcefile~casa_param.f90->sourcefile~casa_dimension.f90 sourcefile~cable_define_types.f90 cable_define_types.F90 sourcefile~casa_dimension.f90->sourcefile~cable_define_types.f90 sourcefile~cable_climate_type_mod.f90 cable_climate_type_mod.F90 sourcefile~cable_define_types.f90->sourcefile~cable_climate_type_mod.f90 sourcefile~cable_common.f90 cable_common.F90 sourcefile~cable_climate_type_mod.f90->sourcefile~cable_common.f90 sourcefile~grid_constants_cbl.f90 grid_constants_cbl.F90 sourcefile~cable_climate_type_mod.f90->sourcefile~grid_constants_cbl.f90 sourcefile~cable_runtime_opts_mod.f90 cable_runtime_opts_mod.F90 sourcefile~cable_common.f90->sourcefile~cable_runtime_opts_mod.f90

Files dependent on this one

sourcefile~~casa_param.f90~~AfferentGraph sourcefile~casa_param.f90 casa_param.F90 sourcefile~bgcdriver.f90 bgcdriver.F90 sourcefile~bgcdriver.f90->sourcefile~casa_param.f90 sourcefile~cable_phenology.f90 cable_phenology.F90 sourcefile~bgcdriver.f90->sourcefile~cable_phenology.f90 sourcefile~casa_variable.f90 casa_variable.F90 sourcefile~bgcdriver.f90->sourcefile~casa_variable.f90 sourcefile~biogeochem_casa.f90 biogeochem_casa.F90 sourcefile~bgcdriver.f90->sourcefile~biogeochem_casa.f90 sourcefile~cable_driver_common.f90 cable_driver_common.F90 sourcefile~cable_driver_common.f90->sourcefile~casa_param.f90 sourcefile~cable_input.f90 cable_input.F90 sourcefile~cable_driver_common.f90->sourcefile~cable_input.f90 sourcefile~cable_driver_common.f90->sourcefile~casa_variable.f90 sourcefile~popluc.f90 POPLUC.F90 sourcefile~cable_driver_common.f90->sourcefile~popluc.f90 sourcefile~cable_input.f90->sourcefile~casa_param.f90 sourcefile~cable_parameters.f90 cable_parameters.F90 sourcefile~cable_input.f90->sourcefile~cable_parameters.f90 sourcefile~casa_inout.f90 casa_inout.F90 sourcefile~cable_input.f90->sourcefile~casa_inout.f90 sourcefile~casa_readbiome.f90 casa_readbiome.F90 sourcefile~cable_input.f90->sourcefile~casa_readbiome.f90 sourcefile~cable_input.f90->sourcefile~casa_variable.f90 sourcefile~cable_input.f90->sourcefile~popluc.f90 sourcefile~cable_mpimaster.f90 cable_mpimaster.F90 sourcefile~cable_mpimaster.f90->sourcefile~casa_param.f90 sourcefile~cable_mpimaster.f90->sourcefile~bgcdriver.f90 sourcefile~cable_mpimaster.f90->sourcefile~cable_driver_common.f90 sourcefile~cable_mpimaster.f90->sourcefile~cable_input.f90 sourcefile~casa_cable.f90 casa_cable.F90 sourcefile~cable_mpimaster.f90->sourcefile~casa_cable.f90 sourcefile~cable_mpimaster.f90->sourcefile~casa_inout.f90 sourcefile~cable_mpimaster.f90->sourcefile~casa_variable.f90 sourcefile~landuse3.f90 landuse3.F90 sourcefile~cable_mpimaster.f90->sourcefile~landuse3.f90 sourcefile~cable_mpimaster.f90->sourcefile~popluc.f90 sourcefile~cable_output.f90 cable_output.F90 sourcefile~cable_mpimaster.f90->sourcefile~cable_output.f90 sourcefile~casa_offline_inout.f90 casa_offline_inout.F90 sourcefile~cable_mpimaster.f90->sourcefile~casa_offline_inout.f90 sourcefile~cable_mpiworker.f90 cable_mpiworker.F90 sourcefile~cable_mpiworker.f90->sourcefile~casa_param.f90 sourcefile~cable_mpiworker.f90->sourcefile~bgcdriver.f90 sourcefile~cable_mpiworker.f90->sourcefile~cable_driver_common.f90 sourcefile~cable_mpiworker.f90->sourcefile~cable_input.f90 sourcefile~cable_mpiworker.f90->sourcefile~casa_cable.f90 sourcefile~cable_mpiworker.f90->sourcefile~casa_inout.f90 sourcefile~cable_mpiworker.f90->sourcefile~casa_variable.f90 sourcefile~cable_mpiworker.f90->sourcefile~biogeochem_casa.f90 sourcefile~cable_mpiworker.f90->sourcefile~cable_output.f90 sourcefile~cable_parameters.f90->sourcefile~casa_param.f90 sourcefile~cable_parameters.f90->sourcefile~casa_variable.f90 sourcefile~cable_phenology.f90->sourcefile~casa_param.f90 sourcefile~cable_phenology.f90->sourcefile~casa_variable.f90 sourcefile~casa_cable.f90->sourcefile~casa_param.f90 sourcefile~casa_cnp.f90 casa_cnp.F90 sourcefile~casa_cable.f90->sourcefile~casa_cnp.f90 sourcefile~casa_cable.f90->sourcefile~casa_variable.f90 sourcefile~casa_cnp.f90->sourcefile~casa_param.f90 sourcefile~casa_cnp.f90->sourcefile~casa_variable.f90 sourcefile~casa_feedback.f90 casa_feedback.F90 sourcefile~casa_feedback.f90->sourcefile~casa_param.f90 sourcefile~casa_feedback.f90->sourcefile~casa_cnp.f90 sourcefile~casa_feedback.f90->sourcefile~casa_variable.f90 sourcefile~casa_inout.f90->sourcefile~casa_param.f90 sourcefile~casa_inout.f90->sourcefile~casa_variable.f90 sourcefile~casa_inout.f90->sourcefile~casa_offline_inout.f90 sourcefile~casa_readbiome.f90->sourcefile~casa_param.f90 sourcefile~casa_readbiome.f90->sourcefile~casa_variable.f90 sourcefile~casa_rplant.f90 casa_rplant.F90 sourcefile~casa_rplant.f90->sourcefile~casa_param.f90 sourcefile~casa_rplant.f90->sourcefile~casa_cnp.f90 sourcefile~casa_rplant.f90->sourcefile~casa_variable.f90 sourcefile~casa_sumcflux.f90 casa_sumcflux.F90 sourcefile~casa_sumcflux.f90->sourcefile~casa_param.f90 sourcefile~casa_sumcflux.f90->sourcefile~casa_variable.f90 sourcefile~casa_variable.f90->sourcefile~casa_param.f90 sourcefile~casaonly_luc.f90 CASAONLY_LUC.F90 sourcefile~casaonly_luc.f90->sourcefile~casa_param.f90 sourcefile~casaonly_luc.f90->sourcefile~casa_cable.f90 sourcefile~casaonly_luc.f90->sourcefile~casa_inout.f90 sourcefile~casaonly_luc.f90->sourcefile~casa_variable.f90 sourcefile~casaonly_luc.f90->sourcefile~popluc.f90 sourcefile~casaonly_luc.f90->sourcefile~biogeochem_casa.f90 sourcefile~casaonly_luc.f90->sourcefile~casa_offline_inout.f90 sourcefile~landuse3.f90->sourcefile~casa_param.f90 sourcefile~landuse3.f90->sourcefile~casa_variable.f90 sourcefile~popluc.f90->sourcefile~casa_param.f90 sourcefile~popluc.f90->sourcefile~casa_variable.f90 sourcefile~spincasacnp.f90 spincasacnp.F90 sourcefile~spincasacnp.f90->sourcefile~casa_param.f90 sourcefile~spincasacnp.f90->sourcefile~casa_cable.f90 sourcefile~spincasacnp.f90->sourcefile~casa_inout.f90 sourcefile~spincasacnp.f90->sourcefile~casa_variable.f90 sourcefile~spincasacnp.f90->sourcefile~biogeochem_casa.f90 sourcefile~biogeochem_casa.f90->sourcefile~casa_cnp.f90 sourcefile~biogeochem_casa.f90->sourcefile~casa_inout.f90 sourcefile~biogeochem_casa.f90->sourcefile~casa_rplant.f90 sourcefile~cable_offline_driver.f90 cable_offline_driver.F90 sourcefile~cable_offline_driver.f90->sourcefile~cable_driver_common.f90 sourcefile~cable_serial.f90 cable_serial.F90 sourcefile~cable_offline_driver.f90->sourcefile~cable_serial.f90 sourcefile~cable_output.f90->sourcefile~casa_variable.f90 sourcefile~cable_serial.f90->sourcefile~bgcdriver.f90 sourcefile~cable_serial.f90->sourcefile~cable_driver_common.f90 sourcefile~cable_serial.f90->sourcefile~cable_input.f90 sourcefile~cable_serial.f90->sourcefile~casa_cable.f90 sourcefile~cable_serial.f90->sourcefile~casa_inout.f90 sourcefile~cable_serial.f90->sourcefile~casa_variable.f90 sourcefile~cable_serial.f90->sourcefile~landuse3.f90 sourcefile~cable_serial.f90->sourcefile~popluc.f90 sourcefile~cable_serial.f90->sourcefile~cable_output.f90 sourcefile~cable_serial.f90->sourcefile~casa_offline_inout.f90 sourcefile~casa_offline_inout.f90->sourcefile~casa_variable.f90 sourcefile~landuse_inout.f90 landuse_inout.F90 sourcefile~landuse_inout.f90->sourcefile~casa_variable.f90 sourcefile~landuse_inout.f90->sourcefile~landuse3.f90 sourcefile~landuse_inout.f90->sourcefile~cable_output.f90 sourcefile~pop_io.f90 pop_io.F90 sourcefile~pop_io.f90->sourcefile~casa_variable.f90

Source Code

!==============================================================================
! This source code is part of the
! Australian Community Atmosphere Biosphere Land Exchange (CABLE) model.
! This work is licensed under the CSIRO Open Source Software License
! Agreement (variation of the BSD / MIT License).
!
! You may not use this file except in compliance with this License.
! A copy of the License (CSIRO_BSD_MIT_License_v2.0_CABLE.txt) is located
! in each directory containing CABLE code.
!
! ==============================================================================
! Purpose: defines/allocates variables for CASA-CNP
!
! Contact: Yingping.Wang@csiro.au
!
! History: Developed for offline CASA-CNP, code revision likely to better
!          suit ACCESS and to merge more consistently with CABLE code
!
!
! ==============================================================================
! casa_variable.f90
!
! the following modules are used when "casacnp" is coupled to "cable"
!   casadimension
!   casaparm
!   casavariable with subroutine alloc_casavariable
!   phenvariable with subroutine alloc_phenvariable

MODULE casaparm
  USE casadimension

  IMPLICIT NONE
  INTEGER, PARAMETER :: initcasa= 1   ! =0 spin; 1 restart file
  INTEGER, PARAMETER :: iceland  = 17 !=13 for casa vegtype =15 for IGBP vegtype
  INTEGER, PARAMETER :: cropland = 9  ! 12 and 14 for IGBP vegtype
  INTEGER, PARAMETER :: croplnd2 =10  ! ditto
  INTEGER, PARAMETER :: forest  = 3
  INTEGER, PARAMETER :: shrub   = 2
  INTEGER, PARAMETER :: grass   = 1
  INTEGER, PARAMETER :: icewater= 0
  INTEGER, PARAMETER :: LEAF    = 1
  INTEGER, PARAMETER :: WOOD    = 2
  INTEGER, PARAMETER :: FROOT   = 3
  !  INTEGER, PARAMETER :: LABILE  = 4
  INTEGER, PARAMETER :: METB    = 1
  INTEGER, PARAMETER :: STR     = 2
  INTEGER, PARAMETER :: CWD     = 3
  INTEGER, PARAMETER :: MIC     = 1
  INTEGER, PARAMETER :: SLOW    = 2
  INTEGER, PARAMETER :: PASS    = 3
  INTEGER, PARAMETER :: PLAB    = 1
  INTEGER, PARAMETER :: PSORB   = 2
  INTEGER, PARAMETER :: POCC    = 3
  ! vh_js ! LALLOC moved to bgcdriver to allow for value to be switchable
  !INTEGER, PARAMETER :: LALLOC  = 0      !=0 constant; 1 variable
  REAL(r_2), PARAMETER :: z30=0.3
  REAL(r_2), PARAMETER :: R0=0.3
  REAL(r_2), PARAMETER :: S0=0.3
  REAL(r_2), PARAMETER :: fixed_stem=1.0/3.0
  REAL(r_2), PARAMETER :: Q10alloc=2.0
  REAL(r_2), PARAMETER :: ratioNCstrfix = 1.0/150.0
  REAL(r_2), PARAMETER :: ratioNPstrfix = 25.0
  REAL(r_2), PARAMETER :: ratioPCstrfix = ratioNCstrfix/25.0 !ESM15:casa_landuse
  REAL(r_2), PARAMETER :: fracCbiomass = 0.50
  REAL(r_2), PARAMETER :: tsoilrefc=25.0
  REAL(r_2), PARAMETER :: tkzeroc=273.15
  REAL(r_2), PARAMETER :: frootparma = 0.3192
  REAL(r_2), PARAMETER :: frootparmb =-0.0485
  REAL(r_2), PARAMETER :: frootparmc = 0.1755
  REAL(r_2), PARAMETER :: xweightalloc = 0.2
  !  REAL(r_2), PARAMETER :: xkplab=0.5*deltcasa
  !  REAL(r_2), PARAMETER :: xkpsorb=0.01*deltcasa
  !  REAL(r_2), PARAMETER :: xkpocc =0.01*deltcasa
END MODULE casaparm