Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
GHY_COM | File: GHY_COM.f |
Author : Frank Abramopolus/Igor Aleinov
Version:
Subroutines:
Global Variables:
- im : used from resolution
- jm : used from resolution
- ngm :
integer, parameter, public
- number of soil layers
Initial Value= 6
Used by: | :check_ghy_conservation | :compute_water_deficit | :conserv_htg | :conserv_wtg | :conserv_wtg_1 | :init_underwater_soil | :remove_extra_snow_to_ocean | :set_new_ghy_cells_outputs | :update_land_fractions | ENT_COM | SOIL_DRV:accumulate_excess_c | SOIL_DRV:checke | SOIL_DRV:daily_earth | SOIL_DRV:earth | SOIL_DRV:fix_heat_ic | SOIL_DRV:fix_water_ic | SOIL_DRV:set_snow1 | SOIL_DRV:tp_sat_2_ht_w | SUBDAILY |
- imt :
integer, parameter, public
- number of soil textures
Initial Value= 5
Used by: | :compute_water_deficit | :init_underwater_soil | :set_new_ghy_cells_outputs | :update_land_fractions | ENT_COM | SOIL_DRV:earth |
- nlsn :
integer, parameter, public
- max number of snow layers
Initial Value= 3
Used by: | ENT_COM | SOIL_DRV:earth |
- wsn_max :
real*8, public
- snow amount limit (m, water equivalent)
Initial Value= 2.d0
Used by: | :remove_extra_snow_to_ocean | SOIL_DRV:daily_earth |
- ls_nfrac :
integer, parameter, public
- number of land surface fractions
Initial Value= 3
Used by: | :compute_water_deficit | :init_underwater_soil | SOIL_DRV:checke | SOIL_DRV:earth |
- shc_soil_texture :
real*8, parameter, public, dimension(imt)
- specific heat capacity of soil texture (J/K/M^3)
Initial Value= (/2d6,2d6,2d6,2.5d6,2.4d6/)
Used by: | :init_underwater_soil | :set_new_ghy_cells_outputs | SOIL_DRV:earth |
- wfcs :
real*8, allocatable, dimension(:, :)
- water field capacity of first ground layer (kg/m2)
Used by: | SOIL_DRV:checke | SOIL_DRV:daily_earth |
- fearth :
real*8, allocatable, dimension(:, :)
Used by: | :check_ghy_conservation | :compute_water_deficit | :condse | :conserv_htg | :conserv_wtg | :daily_diag | :daily_lake | :get_canopy_temperaure | :ground_lk | :init_lakes | :init_pbl | :init_rad | :init_underwater_soil | :radia | :remove_extra_snow_to_ocean | :riverf | :set_new_ghy_cells_outputs | :surface | :update_land_fractions | :updtype | ENT_DRV:set_vegetation_data | SOIL_DRV:checke | SOIL_DRV:daily_earth | SOIL_DRV:earth | SOIL_DRV:ghy_diag | SOIL_DRV:ground_e | SUBDAILY:get_subdd |
- w_ij :
real*8, allocatable, target, dimension(:, :, :, :)
Used by: | :check_ghy_conservation | :compute_water_deficit | :conserv_wtg | :conserv_wtg_1 | :get_canopy_temperaure | :init_underwater_soil | :remove_extra_snow_to_ocean | :set_new_ghy_cells_outputs | :update_land_fractions | SOIL_DRV:checke | SOIL_DRV:daily_earth | SOIL_DRV:earth | SOIL_DRV:ground_e |
- ht_ij :
real*8, allocatable, target, dimension(:, :, :, :)
Used by: | :check_ghy_conservation | :conserv_htg | :get_canopy_temperaure | :init_underwater_soil | :set_new_ghy_cells_outputs | :update_land_fractions | SOIL_DRV:checke | SOIL_DRV:earth |
- snowbv :
real*8, allocatable, dimension(:, :, :)
Used by: | :check_ghy_conservation | :update_land_fractions | SOIL_DRV:checke | SOIL_DRV:earth | SOIL_DRV:ground_e |
- dz_ij :
real*8, allocatable, dimension(:, :, :)
Used by: | :check_ghy_conservation | :compute_water_deficit | :init_underwater_soil | :set_new_ghy_cells_outputs | :update_land_fractions | ENT_DRV:set_vegetation_data | SOIL_DRV:daily_earth | SOIL_DRV:earth |
- q_ij :
real*8, allocatable, dimension(:, :, :, :)
Used by: | :compute_water_deficit | :init_underwater_soil | :set_new_ghy_cells_outputs | :update_land_fractions | ENT_DRV:set_vegetation_data | SOIL_DRV:daily_earth | SOIL_DRV:earth |
- qk_ij :
real*8, allocatable, dimension(:, :, :, :)
Used by: | ENT_DRV:set_vegetation_data | SOIL_DRV:earth |
- sl_ij :
real*8, allocatable, dimension(:, :)
Used by: | SOIL_DRV:earth |
- nsn_ij :
integer, allocatable, dimension(:, :, :)
Used by: | :conserv_htg | :conserv_wtg | :conserv_wtg_1 | :remove_extra_snow_to_ocean | SOIL_DRV:checke | SOIL_DRV:earth |
- dzsn_ij :
real*8, allocatable, dimension(:, :, :, :)
Used by: | :remove_extra_snow_to_ocean | SOIL_DRV:earth |
- wsn_ij :
real*8, allocatable, dimension(:, :, :, :)
Used by: | :conserv_wtg | :conserv_wtg_1 | :remove_extra_snow_to_ocean | SOIL_DRV:checke | SOIL_DRV:earth |
- hsn_ij :
real*8, allocatable, dimension(:, :, :, :)
Used by: | :conserv_htg | :remove_extra_snow_to_ocean | SOIL_DRV:earth |
- fr_snow_ij :
real*8, allocatable, dimension(:, :, :)
Used by: | :conserv_htg | :conserv_wtg | :conserv_wtg_1 | :remove_extra_snow_to_ocean | :set_new_ghy_cells_outputs | :update_land_fractions | SOIL_DRV:checke | SOIL_DRV:earth |
- tearth :
real*8, allocatable, dimension(:, :)
Used by: | :set_new_ghy_cells_outputs | SOIL_DRV:checke | SOIL_DRV:earth | SOIL_DRV:ground_e |
- wearth :
real*8, allocatable, dimension(:, :)
Used by: | :set_new_ghy_cells_outputs | SOIL_DRV:checke | SOIL_DRV:earth | SOIL_DRV:ground_e | SUBDAILY:get_subdd |
- earth_sat :
real*8, allocatable, dimension(:, :, :, :)
- saturation of each soil layer (1 - completely saturated)
- aiearth :
real*8, allocatable, dimension(:, :)
Used by: | :set_new_ghy_cells_outputs | SOIL_DRV:checke | SOIL_DRV:earth | SOIL_DRV:ground_e | SUBDAILY:get_subdd |
- earth_ice :
real*8, allocatable, dimension(:, :, :, :)
- fraction of frozen water in the layer
- earth_tp :
real*8, allocatable, dimension(:, :, :, :)
- temperature of layer (C)
- gdeep :
real*8, allocatable, dimension(:, :, :)
- keeps average (2:n) values of temperature, water and ice
Used by: | SOIL_DRV:ghy_diag | SOIL_DRV:ground_e | SUBDAILY |
- gsavel :
real*8, allocatable, dimension(:, :, :, :)
- indiv layers temp,water,ice (for diag exporting)
Used by: | SOIL_DRV:ghy_diag | SUBDAILY |
- top_index_ij :
real*8, allocatable, dimension(:, :)
Used by: | SOIL_DRV:earth |
- top_dev_ij :
real*8, allocatable, dimension(:, :)
Used by: | :update_land_fractions | SOIL_DRV:earth | SOIL_DRV:set_roughness_length |
- tsns_ij :
real*8, allocatable, dimension(:, :)
- surface temperature corresponding to sensible heat flux (C)
Used by: | :set_new_ghy_cells_outputs | SOIL_DRV:earth |
- evap_max_ij :
real*8, allocatable, dimension(:, :)
Used by: | SOIL_DRV:earth |
- fr_sat_ij :
real*8, allocatable, dimension(:, :)
Used by: | SOIL_DRV:earth |
- qg_ij :
real*8, allocatable, dimension(:, :)
Used by: | :set_new_ghy_cells_outputs | SOIL_DRV:earth |
- cint :
- Internal foliage CO2 concentration (mol/m3)
- qfol :
- Foliage surface mixing ratio (kg/kg)
- ci_ij :
real*8, allocatable, dimension(:, :)
Used by: | :def_rsf_veg_related | :io_veg_related | :new_io_veg_related |
- cnc_ij :
real*8, allocatable, dimension(:, :)
- canopy conductance
Used by: | :def_rsf_veg_related | :io_veg_related | :new_io_veg_related |
- qf_ij :
real*8, allocatable, dimension(:, :)
Used by: | :def_rsf_veg_related | :io_veg_related | :new_io_veg_related | SOIL_DRV:earth |
- aalbveg :
real*8, allocatable, dimension(:, :)
- vegetation albedo, eventually should be moved to a
Used by: | SOIL_DRV:daily_earth |
- soil_surf_moist :
real*8, allocatable, dimension(:, :)
- near surf soil moisture (kg/m^3) for subdd
Used by: | SOIL_DRV:earth | SUBDAILY:get_subdd |