/[MITgcm]/MITgcm/pkg/bulk_force/BULKF_PARAMS.h
ViewVC logotype

Diff of /MITgcm/pkg/bulk_force/BULKF_PARAMS.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by jmc, Sun Nov 23 01:36:55 2003 UTC revision 1.2 by jmc, Sun Jan 22 15:51:34 2006 UTC
# Line 9  C     |   - basic parameter ( I/O freque Line 9  C     |   - basic parameter ( I/O freque
9  C     |   - physical constants (not used in therm_seaice pkg)  C     |   - physical constants (not used in therm_seaice pkg)
10  C     *==========================================================*  C     *==========================================================*
11    
12  C--   COMMON / BULK_PAR_R / physical (real) parameter  C--   COMMON / BULK_PHYS_CONST / physical constants
13  C.. densities  C.. densities
14  C     rhoa      ::  density of air (kg/m^3)  C     rhoa      ::  density of air (kg/m^3)
15  C     rhofw     ::  density of fresh water (kg/m^3)  C     rhofw     ::  density of fresh water (kg/m^3)
# Line 44  C    atm_emissivity   :: Line 44  C    atm_emissivity   ::
44  C    ocean_emissivity ::  C    ocean_emissivity ::
45  C    snow_emissivity  ::  C    snow_emissivity  ::
46  C    ice_emissivity   ::  C    ice_emissivity   ::
47    C .. for BULKF_FORMULA_AIM
48    C      FWIND0 :: ratio of near-sfc wind to lowest-level wind
49    C      CHS    :: heat exchange coefficient over sea
50    C      VGUST  :: wind speed for sub-grid-scale gusts
51    C      DTHETA :: Potential temp. gradient for stability correction
52    C      dTstab :: potential temp. increment for stability function derivative
53    C      FSTAB  :: Amplitude of stability correction (fraction)
54    C .. Albedo
55    C    ocean_albedo :: ocean surface albedo [0-1]
56                    
       COMMON / BULK_PAR_R /  
      &  rhoa, rhosw, rhofw,  
      &  cpair, cpwv,  
      &  Lvap, Lfresh,  
      &  Tf0kel,  
      &  cdrag_1, cdrag_2, cdrag_3,  
      &  stefan, xkar, Rvap,  
      &  p0, Qcoef,  
      &  humid_fac, saltsat, gamma_blk,  
      &  Lvap_ice, Rgas, Sha,  
      &  atm_emissivity, ocean_emissivity,  
      &  snow_emissivity, ice_emissivity,  
      &  blk_taveFreq  
   
57        _RL  rhoa        _RL  rhoa
58        _RL  rhosw        _RL  rhosw
59        _RL  rhofw        _RL  rhofw
# Line 67  C    ice_emissivity   :: Line 62  C    ice_emissivity   ::
62        _RL  Lvap        _RL  Lvap
63        _RL  Lfresh        _RL  Lfresh
64        _RL  Tf0kel        _RL  Tf0kel
65        _RL cdrag_1, cdrag_2, cdrag_3        _RL  cdrag_1, cdrag_2, cdrag_3
66        _RL  stefan        _RL  stefan
67        _RL  xkar        _RL  xkar
68        _RL  Rvap        _RL  Rvap
# Line 83  C    ice_emissivity   :: Line 78  C    ice_emissivity   ::
78        _RL  ocean_emissivity        _RL  ocean_emissivity
79        _RL  snow_emissivity        _RL  snow_emissivity
80        _RL  ice_emissivity        _RL  ice_emissivity
81    #ifdef ALLOW_FORMULA_AIM
82          _RL  FWIND0, CHS, VGUST, DTHETA, dTstab, FSTAB
83    #endif
84          _RL  ocean_albedo
85    
86          COMMON / BULK_PHYS_CONST /
87         &  rhoa, rhosw, rhofw,
88         &  cpair, cpwv,
89         &  Lvap, Lfresh,
90         &  Tf0kel,
91         &  cdrag_1, cdrag_2, cdrag_3,
92         &  stefan, xkar, Rvap,
93         &  p0, Qcoef,
94         &  humid_fac, saltsat, gamma_blk,
95         &  Lvap_ice, Rgas, Sha,
96         &  atm_emissivity, ocean_emissivity,
97         &  snow_emissivity, ice_emissivity,
98    #ifdef ALLOW_FORMULA_AIM
99         &  FWIND0, CHS, VGUST, DTHETA, dTstab, FSTAB,
100    #endif
101         &  ocean_albedo
102    
103    C--   COMMON / BULK_PAR_R / real parameter
104    
105        _RL  blk_taveFreq        _RL  blk_taveFreq
106    
107          COMMON / BULK_PAR_R /
108         &       blk_taveFreq
109    
110    C--   COMMON / BULK_PAR_L / Logical parameters
111    C .. for BULKF_FORMULA_AIM
112    C    calcWindStress     :: True to calculate Wind-Stress from surface wind
113    C    useFluxFormula_AIM :: set to T when using AIM flux formula rather
114    C                          than the default formula (LANL)
115    
116          LOGICAL calcWindStress
117          LOGICAL useFluxFormula_AIM
118    
119          COMMON / BULK_PAR_L /
120         &       calcWindStress,
121         &       useFluxFormula_AIM
122    
123    C--   COMMON / BULK_PAR_C / Character string parameters
124          CHARACTER*(MAX_LEN_FNAM) AirTempFile
125          CHARACTER*(MAX_LEN_FNAM) AirHumidityFile
126          CHARACTER*(MAX_LEN_FNAM) RainFile
127          CHARACTER*(MAX_LEN_FNAM) SolarFile
128          CHARACTER*(MAX_LEN_FNAM) LongwaveFile
129          CHARACTER*(MAX_LEN_FNAM) UWindFile
130          CHARACTER*(MAX_LEN_FNAM) VWindFile
131          CHARACTER*(MAX_LEN_FNAM) WSpeedFile
132          CHARACTER*(MAX_LEN_FNAM) RunoffFile
133          CHARACTER*(MAX_LEN_FNAM) QnetFile
134          CHARACTER*(MAX_LEN_FNAM) EmPFile
135          CHARACTER*(MAX_LEN_FNAM) CloudFile
136          CHARACTER*(MAX_LEN_FNAM) SnowFile
137          CHARACTER*(MAX_LEN_FNAM) airPotTempFile
138    
139          COMMON / BULK_PAR_C /
140         &       AirTempFile, AirHumidityFile, RainFile,
141         &       SolarFile, LongwaveFile, UWindFile, VWindFile,
142         &       WSpeedFile, RunoffFile,
143         &       QnetFile, EmPFile, CloudFile, SnowFile,
144         &       airPotTempFile
145    
146  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
147    
148  #endif /*ALLOW_BULK_FORCE*/  #endif /*ALLOW_BULK_FORCE*/
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22