Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
EXCHANGE_TYPES | File: FLUXES.f |
Author :
Version:
Subroutines:
- alloc_atmgla_xchng_vars
- alloc_atmice_xchng_vars
- alloc_atmlnd_xchng_vars
- alloc_atmocn_xchng_vars
- alloc_atmsrf_xchng_bundles
- alloc_atmsrf_xchng_vars
- alloc_iceocn_xchng_vars
- alloc_xchng_vars
- avg_patches_pbl_exports
- avg_patches_srfflx_exports
- avg_patches_srfflx_exports_gla
- avg_patches_srfstate_exports
- set_simple_bounds_type
Global Variables:
- dist_grid : used from dist_grid_mod
- band_pack_type : used from domain_decomp_1d
- surf_name :
character(len=16)
- name of surface type
- itype4 :
integer
- which of the 4 main surface types this instance is
Initial Value= 0
- grid :
type(dist_grid), pointer, type(dist_grid), pointer
- a pointer to the grid object whose domain bounds were
- xxx_exports :
- are memory spaces holding selected fields for
- srfflx_exports :
real*8, dimension(:, :, :), pointer
- contains the flux fields declared below
Initial Value= >null()
- e0 :
real*8, dimension(:, :), pointer
- net energy flux at surface (J/m^2)
- solar :
real*8, dimension(:, :), pointer, real*8, dimension(:, :), pointer
- solar radiation penetrating the ice absorbed by ocean (J/m^2)
- trheat :
real*8, dimension(:, :), pointer
- net LW flux accumulation (J/m^2)
- dmva :
real*8, dimension(:, :), pointer
- momentum flux from atmosphere (kg/m s)
- dmua :
real*8, dimension(:, :), pointer
- momentum flux from atmosphere (kg/m s)
- evapor :
real*8, dimension(:, :), pointer
- evaporation (kg/m^2)
- sensht :
real*8, dimension(:, :), pointer
- sensible heat flux accumulation (J/m^2)
- latht :
real*8, dimension(:, :), pointer
- latent heat flux accumulation (J/m^2)
- runo :
real*8, dimension(:, :), pointer
- runoff (kg/m^2)
- eruno :
real*8, dimension(:, :), pointer
- energy of runoff (J/m^2)
- srfstate_exports :
real*8, dimension(:, :, :), pointer
- contains the fields declared below
Initial Value= >null()
- uflux1 :
real*8, dimension(:, :), pointer
- vflux1 :
real*8, dimension(:, :), pointer
- dth1 :
real*8, dimension(:, :), pointer
- dq1 :
real*8, dimension(:, :), pointer
- gtemp :
real*8, dimension(:, :), pointer
- temperature of surface (C)
- gtemp2 :
real*8, dimension(:, :), pointer
- "ground" temperature of "second" layer (C)
- gtempr :
real*8, dimension(:, :), pointer
- radiative ground temperature over surface type (K)
- gtemps :
real*8, dimension(:, :), pointer
- skin temperature over surface type (C)
- snowdp :
real*8, dimension(:, :), pointer
- snow mass, fraction, depth
- snowfr :
real*8, dimension(:, :), pointer
- snow mass, fraction, depth
- snow :
real*8, dimension(:, :), pointer
- snow mass, fraction, depth
- pbl_exports :
real*8, dimension(:, :, :), pointer
- contains the fields declared below
Initial Value= >null()
- wsavg :
real*8, dimension(:, :), pointer
- SURFACE WIND MAGNITUDE (M/S)
- qsavg :
real*8, dimension(:, :), pointer
- SURFACE AIR SPECIFIC HUMIDITY (1)
- tsavg :
real*8, dimension(:, :), pointer
- SURFACE AIR TEMPERATURE (K)
- vsavg :
real*8, dimension(:, :), pointer
- SURFACE V WIND
- usavg :
real*8, dimension(:, :), pointer
- SURFACE U WIND
- cmgs :
real*8, dimension(:, :), pointer
- drag coefficient (dimensionless surface momentum flux)
- chgs :
real*8, dimension(:, :), pointer
- Stanton number (dimensionless surface heat flux)
- cqgs :
real*8, dimension(:, :), pointer
- Dalton number (dimensionless surface moisture flux)
- ustar_pbl :
real*8, dimension(:, :), pointer
- friction velocity (sqrt of srfc mom flux) (m/s)
- wsavg :
real*8, dimension(:, :), pointer
- SURFACE WIND MAGNITUDE (M/S)
- tsavg :
real*8, dimension(:, :), pointer
- SURFACE AIR TEMPERATURE (K)
- qsavg :
real*8, dimension(:, :), pointer
- SURFACE AIR SPECIFIC HUMIDITY (1)
- rsavg :
real*8, dimension(:, :), pointer
- SURFACE AIR RELATIVE HUMIDITY (1)
- usavg :
real*8, dimension(:, :), pointer
- SURFACE U WIND
- vsavg :
real*8, dimension(:, :), pointer
- SURFACE V WIND
- tauavg :
real*8, dimension(:, :), pointer
- SURFACE MOMENTUM TRANSFER (TAU)
- tgvavg :
real*8, dimension(:, :), pointer
- virtual temperature of the ground (K)
- gustiwind :
real*8, dimension(:, :), pointer
- wind gustiness (m/s)
- dblavg :
real*8, dimension(:, :), pointer
- boundary layer height (m)
- w2_l1 :
real*8, dimension(:, :), pointer
- vertical component of t.k.e. at gcm layer 1
- ciaavg :
real*8, dimension(:, :), pointer
- cross-isobar angle
- khsavg :
real*8, dimension(:, :), pointer
- vertical diffusivity at "surface" height (m2/s)
- wspdf :
real*8, dimension(:, :), pointer
- mean surface wind calculated from PDF of wind speed [m/s]
- atm_exports_phase1 :
real*8, dimension(:, :, :), pointer
- contains the fields declared below
Initial Value= >null()
- lmonin_pbl :
real*8, dimension(:, :), pointer
- qgavg :
real*8, dimension(:, :), pointer
- rhoavg :
real*8, dimension(:, :), pointer
- prec :
real*8, dimension(:, :), pointer
- precipitation (kg/m^2)
- eprec :
real*8, dimension(:, :), pointer
- energy of preciptiation (J/m^2)
- cosz1 :
real*8, dimension(:, :), pointer
- Mean Solar Zenith angle for curr. physics(not rad) time step
- fshort :
real*8, dimension(:, :), pointer
- downwelling longwave, shortwave radiation at surface
- flong :
real*8, dimension(:, :), pointer
- downwelling longwave, shortwave radiation at surface
- atm_exports_phasesrf :
real*8, dimension(:, :, :), pointer
- contains the atmospheric fields declared below
Initial Value= >null()
- srfp :
real*8, dimension(:, :), pointer
- srfpk :
real*8, dimension(:, :), pointer
- am1 :
real*8, dimension(:, :), pointer
- byam1 :
real*8, dimension(:, :), pointer
- p1 :
real*8, dimension(:, :), pointer
- trup_in_rad :
real*8, dimension(:, :), pointer
- temp1 :
real*8, dimension(:, :), pointer
- pot. temp. of first layer w.r.t. 1 mb (K)
- q1 :
real*8, dimension(:, :), pointer
- specific humidity of first layer
- v1 :
real*8, dimension(:, :), pointer
- wind components of first layer (A-grid)
- u1 :
real*8, dimension(:, :), pointer
- wind components of first layer (A-grid)
- ftype :
real*8, dimension(:, :), pointer
- fraction of the gridcell occupied by this patch
- lat :
real*8, dimension(:, :), pointer
- latitude of gridbox (radians)
- work2 :
real*8, dimension(:, :), pointer
- temporary workspace
- work1 :
real*8, dimension(:, :), pointer
- temporary workspace
- aij :
real*8, dimension(:, :, :), pointer
- a pointer to modelE diag accumulation arrays
- fhc :
real*8, dimension(:, :), pointer
- jreg :
integer, dimension(:, :), pointer
- lat/lon array defining regions for modelE AREG diagnostics
- dlatm :
real*8, real*8
- latitudinal gridsize in minutes, for certain regrid routines
- cosi :
real*8, dimension(:), pointer
- sin(lon),cos(lon) for vector regrids
- sini :
real*8, dimension(:), pointer
- sin(lon),cos(lon) for vector regrids
- ipbl :
integer, pointer, dimension(:, :)
- flag for whether pbl properties were found at last timestep
- uabl :
real*8, pointer, dimension(:, :, :)
- boundary layer profile for zonal wind
- vabl :
real*8, pointer, dimension(:, :, :)
- boundary layer profile for meridional wind
- tabl :
real*8, pointer, dimension(:, :, :)
- boundary layer profile for temperature
- qabl :
real*8, pointer, dimension(:, :, :)
- boundary layer profile for humidity
- eabl :
real*8, pointer, dimension(:, :, :)
- boundary layer profile for turbulent KE (calc. on sec. grid)
- focean :
real*8, dimension(:, :), pointer, real*8, dimension(:, :), pointer
- ocean fraction
- eflowo :
real*8, dimension(:, :), pointer
- mass, energy from rivers into ocean (kg/m^2, J/m^2)
- flowo :
real*8, dimension(:, :), pointer
- mass, energy from rivers into ocean (kg/m^2, J/m^2)
- egmelt :
real*8, dimension(:, :), pointer
- mass,energy from glacial melt into ocean (kg/m^2, J/m^2)
- gmelt :
real*8, dimension(:, :), pointer
- mass,energy from glacial melt into ocean (kg/m^2, J/m^2)
- vosurf :
real*8, dimension(:, :), pointer, real*8, dimension(:, :), pointer
- ocean surface velocity (m/s)
- uosurf :
real*8, dimension(:, :), pointer, real*8, dimension(:, :), pointer
- ocean surface velocity (m/s)
- ogeoza :
real*8, dimension(:, :), pointer, real*8, dimension(:, :), pointer
- ocean surface height geopotential (m^2/s^2)
- mlhc :
real*8, dimension(:, :), pointer, real*8, dimension(:, :), pointer
- ocean mixed layer heat capacity (J/m^2 C)
- sss :
real*8, dimension(:, :), pointer
- sea surface salinity (ppt)
- chl :
real*8, dimension(:, :), pointer
- Chlorophyll concentration data (mgr/m**3)
- eflow_gl :
real*8
- global integral of eflowo
Initial Value= 0.
- chl_defined :
logical
- nofm :
integer, dimension(:, :), pointer
-
- conserv :
-
- area_of_zone :
real*8, dimension(:), pointer
-
- jm_budg :
integer
-
- modd5s :
integer
-
- need_eflow_gl :
logical
- Initial Value
= .false.
- consrv :
real*8, dimension(:, :), pointer
- focean :
real*8, dimension(:, :), pointer, real*8, dimension(:, :), pointer
- ocean fraction
- e1 :
real*8, dimension(:, :), pointer, real*8, dimension(:, :), pointer
- net energy flux at layer 1
- visurf :
real*8, dimension(:, :), pointer
- dynamic ice surface velocity (Atm A grid) (m/s)
- uisurf :
real*8, dimension(:, :), pointer
- dynamic ice surface velocity (Atm A grid) (m/s)
- fwsim :
real*8, dimension(:, :), pointer
- fresh water sea ice mass (kg/m^2) (used for qflux model)
- msicnv :
real*8, dimension(:, :), pointer
- heat and fresh water sea ice mass convergence
- hsicnv :
real*8, dimension(:, :), pointer
- heat and fresh water sea ice mass convergence
- rsi :
real*8, dimension(:, :), pointer, real*8, dimension(:, :), pointer
- fraction of water area covered in ice
- zsnowi :
real*8, dimension(:, :), pointer
- amount, thickness of snow on sea ice (kg/m^2, m)
- snowi :
real*8, dimension(:, :), pointer
- amount, thickness of snow on sea ice (kg/m^2, m)
- vsi :
real*8, dimension(:, :), pointer
- ice velocities (m/s)
- usi :
real*8, dimension(:, :), pointer
- ice velocities (m/s)
- snoage :
real*8, dimension(:, :), pointer
- rsistart :
real*8, dimension(:, :), pointer
- msisave :
real*8, dimension(:, :), pointer
- snowsave :
real*8, dimension(:, :), pointer
- ticesave :
real*8, dimension(:, :), pointer
- ti1save :
real*8, dimension(:, :), pointer
- ssi1save :
real*8, dimension(:, :), pointer
- ssi2save :
real*8, dimension(:, :), pointer
- sihc :
real*8, dimension(:, :), pointer
- sntosi :
real*8, dimension(:, :), pointer
- sitopmlt :
real*8, dimension(:, :), pointer
- msnflood :
real*8, dimension(:, :), pointer
- hsnflood :
real*8, dimension(:, :), pointer
- snowsave2 :
real*8, dimension(:, :), pointer
- msisave2 :
real*8, dimension(:, :), pointer
- musi :
real*8, dimension(:, :), pointer
- mvsi :
real*8, dimension(:, :), pointer
- husi :
real*8, dimension(:, :), pointer
- hvsi :
real*8, dimension(:, :), pointer
- susi :
real*8, dimension(:, :), pointer
- svsi :
real*8, dimension(:, :), pointer
- ij_rsnw :
integer
- ij_snow :
integer
- ij_rsit :
integer
- ij_zsnow :
integer
- ij_ :
- [MHS][UV]SI indices for sea ice mass/heat/salt transport diags
- ij_mltp :
integer
- ij_tsice :
integer
- ij_sihc :
integer
- ij_sntosi :
integer
- ij_msnflood :
integer
- ij_hsnflood :
integer
- ij_sibotmlt :
integer
- ij_smfx :
integer
- ij_sigrlt :
integer
- ij_fwio :
integer
- ij_htio :
integer
- ij_stio :
integer
- ij_sigrfr :
integer
- ij_sigrcg :
integer
- ij_ssi1 :
integer
- ij_ssi2 :
integer
- ij_tsi :
integer
- ij_f0oi :
integer
- ij_sisnwf :
integer
- ij_rsoi :
integer
- ij_msi :
integer
- ij_sitopmlt :
integer
- ij_musi :
integer
- ij_mvsi :
integer
- ij_husi :
integer
- ij_hvsi :
integer
- ij_susi :
integer
- ij_svsi :
integer
- j_imelt :
integer
- j_hmelt :
integer
- j_smelt :
integer
- j_implm :
integer
- j_implh :
integer
- j_rsnow :
integer
- j_rsi :
integer
- j_ace1 :
integer
- j_ace2 :
integer
- j_snow :
integer
- itoice :
integer
- itlkice :
integer
- itocean :
integer
- itlake :
integer
- xxx_exports_gla :
- memory spaces holding selected landice-specific fields
- e1 :
real*8, dimension(:, :), pointer, real*8, dimension(:, :), pointer
- net energy flux at layer 1
- srfflx_exports_gla :
real*8, dimension(:, :, :), pointer
- Initial Value
= >null()
- implh :
real*8, dimension(:, :), pointer
- implicit mass,energy flux at bottom of domain
- implm :
real*8, dimension(:, :), pointer
- implicit mass,energy flux at bottom of domain
- tgrnd :
real*8, dimension(:, :), pointer
- tgr4 :
real*8, dimension(:, :), pointer
- snowdp :
real*8, dimension(:, :), pointer
- snow mass, fraction, depth
- snowfr :
real*8, dimension(:, :), pointer
- snow mass, fraction, depth
- snowli :
- snow mass, fraction, depth
- bare_soil_wetness :
real*8, dimension(:, :), pointer
- bare_soil_wetness (1)
- snowe :
real*8, dimension(:, :), pointer
- snow amount seen by radiation
- fr_snow_rad :
real*8, dimension(:, :, :), pointer
- grid :
type(dist_grid), pointer, type(dist_grid), pointer
- a pointer to the grid object whose domain bounds were
- fwater :
real*8, dimension(:, :), pointer
- water fraction of gridbox
- rsi :
real*8, dimension(:, :), pointer, real*8, dimension(:, :), pointer
- fraction of water area covered in ice
- coriol :
real*8, dimension(:, :), pointer
- coriolis parameter (1/s)
- solar :
real*8, dimension(:, :), pointer, real*8, dimension(:, :), pointer
- solar radiation penetrating the ice absorbed by ocean (J/m^2)
- apress :
real*8, dimension(:, :), pointer
- total atmos + sea ice pressure (at base of sea ice) (Pa)
- runosi :
real*8, dimension(:, :), pointer
- run off from sea/lake ice after surface (kg/m^2)
- erunosi :
real*8, dimension(:, :), pointer
- energy of run off from sea/lake ice after surface (J/m^2)
- srunosi :
real*8, dimension(:, :), pointer
- salt in run off from sea/lake ice after surface (kg/m^2)
- smelti :
real*8, dimension(:, :), pointer
- mass,energy,salt from simelt into ocn (kg/m^2,J/m^2)
- emelti :
real*8, dimension(:, :), pointer
- mass,energy,salt from simelt into ocn (kg/m^2,J/m^2)
- melti :
real*8, dimension(:, :), pointer
- mass,energy,salt from simelt into ocn (kg/m^2,J/m^2)
- runpsi :
real*8, dimension(:, :), pointer
- run off from sea/lake ice after precip (kg/m^2)
- erunpsi :
real*8, dimension(:, :), pointer
- energy of run off from sea/lake ice after precip (J/m^2)
- srunpsi :
real*8, dimension(:, :), pointer
- salt in run off from sea/lake ice after precip (kg/m^2)
- dmvi :
real*8, dimension(:, :), pointer
- momentum flux from sea ice to ocean (kg/m s)
- dmui :
real*8, dimension(:, :), pointer
- momentum flux from sea ice to ocean (kg/m s)
- fssi_io :
real*8, dimension(:, :), pointer
- basal ice-ocean fluxes (kg or J/m^2)
- fhsi_io :
real*8, dimension(:, :), pointer
- basal ice-ocean fluxes (kg or J/m^2)
- fmsi_io :
real*8, dimension(:, :), pointer
- basal ice-ocean fluxes (kg or J/m^2)
- ui2rho :
real*8, dimension(:, :), pointer
- Ustar*2*rho ice-ocean friction velocity on atmospheric grid
- vosurf :
real*8, dimension(:, :), pointer, real*8, dimension(:, :), pointer
- ocean surface velocity (m/s)
- uosurf :
real*8, dimension(:, :), pointer, real*8, dimension(:, :), pointer
- ocean surface velocity (m/s)
- ogeoza :
real*8, dimension(:, :), pointer, real*8, dimension(:, :), pointer
- ocean surface height geopotential (m^2/s^2)
- mlhc :
real*8, dimension(:, :), pointer, real*8, dimension(:, :), pointer
- ocean mixed layer heat capacity (J/m^2 C)
- mldlk :
real*8, dimension(:, :), pointer
- mixed layer depth in lake (m)
- dlake :
real*8, dimension(:, :), pointer
- depth of lake (m)
- glake :
real*8, dimension(:, :), pointer
- lake heat content (J/m2)
- dmsi :
real*8, dimension(:, :, :), pointer
- mass flux of sea ice 1) open water and 2) under ice (kg/m^2)
- dhsi :
real*8, dimension(:, :, :), pointer
- energy flux of sea ice 1) open water and 2) under ice (J/m^2)
- dssi :
real*8, dimension(:, :, :), pointer
- salt flux in sea ice 1) open water and 2) under ice (kg/m^2)
- dlatm :
real*8, real*8
- latitudinal gridsize in minutes, for certain regrid routines
- pack_i2a :
type(band_pack_type), pointer
- contain info for redistributing data from
- pack_a2i :
type(band_pack_type), pointer
- contain info for redistributing data from