cable_surface_types.F90 Source File


This source code is part of the 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 this file except in compliance with this License. A copy of the License is available at https://trac.nci.org.au/trac/cable/wiki/license.



Files dependent on this one

sourcefile~~cable_surface_types.f90~~AfferentGraph sourcefile~cable_surface_types.f90 cable_surface_types.F90 sourcefile~cable_parameters.f90 cable_parameters.F90 sourcefile~cable_parameters.f90->sourcefile~cable_surface_types.f90 sourcefile~cable_roughness.f90 cable_roughness.F90 sourcefile~cable_roughness.f90->sourcefile~cable_surface_types.f90 sourcefile~cbl_dryleaf.f90 cbl_dryLeaf.F90 sourcefile~cbl_dryleaf.f90->sourcefile~cable_surface_types.f90 sourcefile~cbl_init_wetfac_mod.f90 cbl_init_wetfac_mod.F90 sourcefile~cbl_init_wetfac_mod.f90->sourcefile~cable_surface_types.f90 sourcefile~cbl_model_driver_offline.f90 cbl_model_driver_offline.F90 sourcefile~cbl_model_driver_offline.f90->sourcefile~cable_surface_types.f90 sourcefile~cbl_model_driver_offline.f90->sourcefile~cable_roughness.f90 sourcefile~cable_canopy.f90 cable_canopy.F90 sourcefile~cbl_model_driver_offline.f90->sourcefile~cable_canopy.f90 sourcefile~cbl_soilsnow_main.f90 cbl_soilsnow_main.F90 sourcefile~cbl_model_driver_offline.f90->sourcefile~cbl_soilsnow_main.f90 sourcefile~cbl_surfbv.f90 cbl_surfbv.F90 sourcefile~cbl_surfbv.f90->sourcefile~cable_surface_types.f90 sourcefile~cable_canopy.f90->sourcefile~cable_roughness.f90 sourcefile~cable_canopy.f90->sourcefile~cbl_dryleaf.f90 sourcefile~cbl_surfacewetness.f90 cbl_SurfaceWetness.F90 sourcefile~cable_canopy.f90->sourcefile~cbl_surfacewetness.f90 sourcefile~cable_input.f90 cable_input.F90 sourcefile~cable_input.f90->sourcefile~cable_parameters.f90 sourcefile~cable_mpimaster.f90 cable_mpimaster.F90 sourcefile~cable_mpimaster.f90->sourcefile~cbl_model_driver_offline.f90 sourcefile~cable_mpimaster.f90->sourcefile~cable_input.f90 sourcefile~cable_driver_common.f90 cable_driver_common.F90 sourcefile~cable_mpimaster.f90->sourcefile~cable_driver_common.f90 sourcefile~cable_mpiworker.f90 cable_mpiworker.F90 sourcefile~cable_mpiworker.f90->sourcefile~cbl_model_driver_offline.f90 sourcefile~cable_mpiworker.f90->sourcefile~cable_input.f90 sourcefile~cable_mpiworker.f90->sourcefile~cable_driver_common.f90 sourcefile~cable_serial.f90 cable_serial.F90 sourcefile~cable_serial.f90->sourcefile~cbl_model_driver_offline.f90 sourcefile~cable_serial.f90->sourcefile~cable_input.f90 sourcefile~cable_serial.f90->sourcefile~cable_driver_common.f90 sourcefile~cbl_soilsnow_main.f90->sourcefile~cbl_surfbv.f90 sourcefile~cbl_surfacewetness.f90->sourcefile~cbl_init_wetfac_mod.f90 sourcefile~cable_driver_common.f90->sourcefile~cable_input.f90 sourcefile~cable_offline_driver.f90 cable_offline_driver.F90 sourcefile~cable_offline_driver.f90->sourcefile~cable_serial.f90 sourcefile~cable_offline_driver.f90->sourcefile~cable_driver_common.f90

Source Code

!******************************************************************************
! This source code is part of the 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
! this file except in compliance with this License. A copy of the License is
! available at https://trac.nci.org.au/trac/cable/wiki/license.
!******************************************************************************

MODULE cable_surface_types_mod 

IMPLICIT NONE

PUBLIC

! cable_surface_type (nml) Index
INTEGER, PARAMETER :: evergreen_needleleaf = 1
INTEGER, PARAMETER :: evergreen_broadleaf  = 2 
INTEGER, PARAMETER :: deciduous_needleleaf = 3
INTEGER, PARAMETER :: deciduous_broadleaf  = 4   
INTEGER, PARAMETER :: shrub_cable          = 5
INTEGER, PARAMETER :: c3_grassland         = 6 
INTEGER, PARAMETER :: c4_grassland         = 7 
INTEGER, PARAMETER :: tundra               = 8
INTEGER, PARAMETER :: c3_cropland          = 9  
INTEGER, PARAMETER :: c4_cropland          = 10 
INTEGER, PARAMETER :: wetland              = 11 
INTEGER, PARAMETER :: empty1               = 12
INTEGER, PARAMETER :: empty2               = 13
INTEGER, PARAMETER :: barren_cable         = 14
INTEGER, PARAMETER :: urban_cable          = 15
INTEGER, PARAMETER :: lakes_cable          = 16 
INTEGER, PARAMETER :: ice_cable            = 17 

END MODULE cable_surface_types_mod