Back to home page

MITgcm
 
 

    

File indexing completed on 2018-03-02 18:38:13 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
6a1d3c464b Jean*0001 #ifdef ALLOW_BULK_FORCE
                0002 C     *==========================================================*
                0003 C     | BULK_PARAMS.h
69f66dfb04 Jean*0004 C     | o Header file for BULK_FORCE package parameters:
6a1d3c464b Jean*0005 C     |   - basic parameter ( I/O frequency, etc ...)
69f66dfb04 Jean*0006 C     |   - physical constants
6a1d3c464b Jean*0007 C     *==========================================================*
                0008 
679d149d01 Jean*0009 C--   COMMON / BULK_PHYS_CONST / physical constants
6a1d3c464b Jean*0010 C.. densities
69f66dfb04 Jean*0011 C     rhoA      ::  density of air [kg/m^3]
                0012 C     rhoFW     ::  density of fresh water [kg/m^3]
                0013 C     rhoSW     ::  density of sea water [kg/m^3]
6a1d3c464b Jean*0014 C.. specific heats
69f66dfb04 Jean*0015 C     cpAir     ::  specific heat of air [J/kg/K]
                0016 C     cpwv      ::  specific heat of water vapour [J/kg/K]
                0017 C.. latent heat
                0018 C     Lvap      ::  latent heat of vaporization at 0.oC [J/kg]
                0019 C     Lfresh    ::  latent heat of melting of pure ice [J/kg]
                0020 C     Lvap_ice  ::  latent heat from sublimation [J/kg]
                0021 C.. constants
                0022 C     Tf0kel    ::  Freezing temp of fresh water in Kelvin = 273.15
                0023 C     Rgas      ::  gas constant for dry air   [J/kg/K]
                0024 C     Rvap      ::  gas constant for H2O vapor [J/kg/K]
                0025 C     xkar      ::  von Karman constant  [-]
                0026 C     stefan    ::  Stefan-Boltzmann constant [W/m^2/K^4]
                0027 C.. for transfer coefficient
                0028 C     zref      :: reference height [m] for transfer coefficient
                0029 C     zwd       :: height [m] of near-surface wind-speed input data
                0030 C     zth       :: height [m] of near-surface air-temp. & air-humid. input
                0031 C     cDrag_[n] ::  n = 1,2,3 coefficients used to evaluate drag coefficient
                0032 C     cStantonS,U :: coefficients used to evaluate Stanton number (for
                0033 C                 sensib. Heat Flx), under Stable / Unstable stratification
                0034 C     cDalton   :: coefficient used to evaluate Dalton number (for Evap)
                0035 C.. for bulk formula
                0036 C     umin      :: minimum wind speed used in bulk-formulae [m/s]
                0037 C     humid_fac :: dry-air - water-vapor molecular mass ratio (minus one)
                0038 C                    (used to calculate virtual temp.)
                0039 C     saltQsFac :: reduction of sat. vapor pressure over salty water
                0040 C     gamma_blk :: adiabatic lapse rate
                0041 C.. for Long-Wave Radiation
                0042 C     atm_emissivity   ::
                0043 C     ocean_emissivity ::
                0044 C     snow_emissivity  ::
                0045 C     ice_emissivity   ::
                0046 C.. for BULKF_FORMULA_AIM
679d149d01 Jean*0047 C      FWIND0 :: ratio of near-sfc wind to lowest-level wind
                0048 C      CHS    :: heat exchange coefficient over sea
                0049 C      VGUST  :: wind speed for sub-grid-scale gusts
                0050 C      DTHETA :: Potential temp. gradient for stability correction
                0051 C      dTstab :: potential temp. increment for stability function derivative
                0052 C      FSTAB  :: Amplitude of stability correction (fraction)
69f66dfb04 Jean*0053 C.. Albedo
                0054 C     ocean_albedo :: ocean surface albedo [0-1]
                0055       _RL  rhoA
                0056 c     _RL  rhoSW
                0057       _RL  rhoFW
                0058       _RL  cpAir
                0059 c     _RL  cpwv
6a1d3c464b Jean*0060       _RL  Lvap
                0061       _RL  Lfresh
69f66dfb04 Jean*0062 c     _RL  Lvap_ice
6a1d3c464b Jean*0063       _RL  Tf0kel
69f66dfb04 Jean*0064       _RL  Rgas
                0065 c     _RL  Rvap
6a1d3c464b Jean*0066       _RL  xkar
69f66dfb04 Jean*0067       _RL  stefan
                0068       _RL  zref, zwd, zth
                0069       _RL  cDrag_1, cDrag_2, cDrag_3
                0070       _RL  cStantonS, cStantonU
                0071       _RL  cDalton
                0072       _RL  umin
6a1d3c464b Jean*0073       _RL  humid_fac
69f66dfb04 Jean*0074       _RL  saltQsFac
6a1d3c464b Jean*0075       _RL  gamma_blk
                0076       _RL  atm_emissivity
                0077       _RL  ocean_emissivity
                0078       _RL  snow_emissivity
                0079       _RL  ice_emissivity
679d149d01 Jean*0080 #ifdef ALLOW_FORMULA_AIM
                0081       _RL  FWIND0, CHS, VGUST, DTHETA, dTstab, FSTAB
                0082 #endif
                0083       _RL  ocean_albedo
                0084       COMMON / BULK_PHYS_CONST /
69f66dfb04 Jean*0085      &  rhoA, rhoFW,
                0086      &  cpAir, Lvap, Lfresh,
                0087      &  Tf0kel, Rgas,
                0088      &  xkar, stefan,
                0089      &  zref, zwd, zth,
                0090      &  cDrag_1, cDrag_2, cDrag_3,
                0091      &  cStantonS, cStantonU, cDalton,
                0092      &  umin, humid_fac, saltQsFac, gamma_blk,
679d149d01 Jean*0093      &  atm_emissivity, ocean_emissivity,
                0094      &  snow_emissivity, ice_emissivity,
                0095 #ifdef ALLOW_FORMULA_AIM
                0096      &  FWIND0, CHS, VGUST, DTHETA, dTstab, FSTAB,
                0097 #endif
                0098      &  ocean_albedo
                0099 
69f66dfb04 Jean*0100 C--   COMMON / BULK_PAR_I / Integer parameters
                0101 C     blk_nIter :: Number of iterations to find turbulent transfer coeff.
                0102 
                0103       INTEGER blk_nIter
                0104       COMMON / BULK_PAR_I /
                0105      &       blk_nIter
                0106 
679d149d01 Jean*0107 C--   COMMON / BULK_PAR_R / real parameter
69f66dfb04 Jean*0108 C     blk_taveFreq :: time-average output frequency [s]
679d149d01 Jean*0109 
6a1d3c464b Jean*0110       _RL  blk_taveFreq
679d149d01 Jean*0111       COMMON / BULK_PAR_R /
                0112      &       blk_taveFreq
                0113 
                0114 C--   COMMON / BULK_PAR_L / Logical parameters
                0115 C .. for BULKF_FORMULA_AIM
                0116 C    calcWindStress     :: True to calculate Wind-Stress from surface wind
                0117 C    useFluxFormula_AIM :: set to T when using AIM flux formula rather
                0118 C                          than the default formula (LANL)
                0119 
                0120       LOGICAL calcWindStress
                0121       LOGICAL useFluxFormula_AIM
8d92b2862f Jean*0122       LOGICAL useQnetch, useEmPch
679d149d01 Jean*0123       COMMON / BULK_PAR_L /
                0124      &       calcWindStress,
8d92b2862f Jean*0125      &       useFluxFormula_AIM,
                0126      &       useQnetch, useEmPch
679d149d01 Jean*0127 
                0128 C--   COMMON / BULK_PAR_C / Character string parameters
69f66dfb04 Jean*0129 
679d149d01 Jean*0130       CHARACTER*(MAX_LEN_FNAM) AirTempFile
                0131       CHARACTER*(MAX_LEN_FNAM) AirHumidityFile
                0132       CHARACTER*(MAX_LEN_FNAM) RainFile
                0133       CHARACTER*(MAX_LEN_FNAM) SolarFile
                0134       CHARACTER*(MAX_LEN_FNAM) LongwaveFile
                0135       CHARACTER*(MAX_LEN_FNAM) UWindFile
                0136       CHARACTER*(MAX_LEN_FNAM) VWindFile
                0137       CHARACTER*(MAX_LEN_FNAM) WSpeedFile
                0138       CHARACTER*(MAX_LEN_FNAM) RunoffFile
                0139       CHARACTER*(MAX_LEN_FNAM) QnetFile
                0140       CHARACTER*(MAX_LEN_FNAM) EmPFile
                0141       CHARACTER*(MAX_LEN_FNAM) CloudFile
                0142       CHARACTER*(MAX_LEN_FNAM) SnowFile
                0143       CHARACTER*(MAX_LEN_FNAM) airPotTempFile
                0144       COMMON / BULK_PAR_C /
                0145      &       AirTempFile, AirHumidityFile, RainFile,
                0146      &       SolarFile, LongwaveFile, UWindFile, VWindFile,
                0147      &       WSpeedFile, RunoffFile,
                0148      &       QnetFile, EmPFile, CloudFile, SnowFile,
                0149      &       airPotTempFile
                0150 
6a1d3c464b Jean*0151 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0152 
                0153 #endif /*ALLOW_BULK_FORCE*/
[ Source navigation ] [ Diff markup ] [ Identifier search ] [ general search ]

This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine.

The LXR team
Valid CSS 2.1! Valid HTML 4.01!