<-k820309 919.05\e  module_cam_mp_radconstants.f90RADCONSTANTS GET_NUMBER_SW_BANDSGET_SW_SPECTRAL_BOUNDARIESGET_REF_SOLAR_BAND_IRRADGET_TRUE_REF_SOLAR_BAND_IRRADGET_REF_TOTAL_SOLAR_IRRADGET_SOLAR_BAND_FRACTION_IRRADRADCONSTANTS_INITRAD_GAS_INDEXOT_LENGTHNSWBANDSIDX_SW_DIAGIDX_LW_DIAGNRHNLWBANDSIDX_LW_H2O_NONWNDIDX_LW_H2O_WINDOWIDX_LW_0500_0650IDX_LW_0650_0800IDX_LW_0800_1000IDX_LW_1000_1200IDX_LW_1200_2000GASNAMELENGTHNRADGASGASLISTMINMMRWAVMINWAVMIN_TRUEWAVMAXFRCSOLPH2OPCO2PO2@ ENDRUN@@ R8SHR_KIND_R8#@ #NUMBER_OF_BANDSD#@ #LOW_BOUNDARIES#HIGH_BOUNDARIES#UNITS D ppp D ppp 1#@  #BAND_IRRAD  D  ppp#@  #SOLFRAC_TRUE_OUT  D  ppp#@  #TSID #@ #FRACTIONAL_IRRADIANCE D p&ppp#@ %@  #GASNAME @1   32  19  8  2  1000  7  1  2  3  4  5  6   7  !5  "8  #TWpnCH2O nCO3 nCO2 nCCO2 nCN2O nCCH4 nCCFC11nCCFC12hpppp  $ T W pn  <hpppp  % T W pn  ?.200n  \(\?.245n  (\?.265n  ?.275n  = ףp=?.285n  zG?.295n  Q?.305n  ffffff?.350n  {Gz?.640n  ffffff?.700n  ;On?.701n  ;On?.701n  ;On?.701n  ;On?.701n  X9v?.702n  X9v?.702n   ףp= @2.630n  p= ף@4.160n  p= ף@4.160hpppp  & T W pn  ?.200n  \(\?.245n  (\?.265n  ?.275n  = ףp=?.285n  zG?.295n  Q?.305n  ffffff?.350n  {Gz?.640n  ffffff?.700n  ffffff?.700n  ffffff?.700n  ffffff?.700n  ffffff?.700n  ffffff?.700n  ffffff?.700n   ףp= @2.630n  p= ף@4.160n  p= ף@4.160hpppp  ' T W pn  \(\?.245n  (\?.265n  ?.275n  = ףp=?.285n  zG?.295n  Q?.305n  ffffff?.350n  {Gz?.640n  ffffff?.700n  @5.000n  @5.000n  @5.000n  @5.000n  @5.000n  @5.000n  @5.000n  zG@2.860n  333333@4.550n  333333@4.550hpppp  ( T W pn  1]aX?.001488n  zƾdV?.001389n  /"U?.001290n  [?.001686n  Ց#g?.002877n  o?.003869n  Xo ?.026336n  UY?.360739n  8k?.065392n  6 ?.526861n  6 ?.526861n  6 ?.526861n  6 ?.526861n  6 ?.526861n  6 ?.526861n  6 ?.526861n  [y?.006239n  UZ ^?.001834n  UZ ^?.001834hpppp  ) T W pn  .000n  .000n  .000n  .000n  .000n  .000n  .000n  .000n  .000n  )\(?.505n  zG?.210n  Q?.120n  Q?.070n  ~jt?.048n  V-?.029n  ;On?.018n  .000n  .000n  .000hpppp  * T W pn  .000n  .000n  .000n  .000n  .000n  .000n  .000n  .000n  .000n  .000n  .000n  .000n  .000n  .000n  .000n  .000n  ?1.000n  {Gz?.640n   ףp= ?.360hpppp  + T W pn  .000n  .000n  .000n  .000n  .000n  .000n  .000n  .000n  ?1.000n  ?1.000n  .000n  .000n  .000n  .000n  .000n  .000n  .000n  .000n  .000hpppp4fn#fn"buapp(RADCONSTANTS#GJMODULE_CAM_SUPPORTOJSHR_KIND_MOD$=]GET_NUMBER_SW_BANDS4@aGET_NUMBER_SW_BANDS%NUMBER_OF_BANDS+|GET_SW_SPECTRAL_BOUNDARIES:VaGET_SW_SPECTRAL_BOUNDARIES%LOW_BOUNDARIES;aGET_SW_SPECTRAL_BOUNDARIES%HIGH_BOUNDARIES1~LaGET_SW_SPECTRAL_BOUNDARIES%UNITS)XGET_REF_SOLAR_BAND_IRRAD4"aGET_REF_SOLAR_BAND_IRRAD%BAND_IRRAD.^GET_TRUE_REF_SOLAR_BAND_IRRAD?aGET_TRUE_REF_SOLAR_BAND_IRRAD%SOLFRAC_TRUE_OUT*QGET_REF_TOTAL_SOLAR_IRRAD.@aGET_REF_TOTAL_SOLAR_IRRAD%TSI.9cGET_SOLAR_BAND_FRACTION_IRRADDaGET_SOLAR_BAND_FRACTION_IRRAD%FRACTIONAL_IRRADIANCE"@ HRADCONSTANTS_INIT ]RAD_GAS_INDEX& LaRAD_GAS_INDEX%GASNAME1 rOT_LENGTH rNSWBANDS qIDX_SW_DIAG qIDX_LW_DIAG tNRHk qNLWBANDS" qIDX_LW_H2O_NONWND"M qIDX_LW_H2O_WINDOW! qIDX_LW_0500_0650!/qIDX_LW_0650_0800!qIDX_LW_0800_1000!qIDX_LW_1000_1200!qIDX_LW_1200_2000qGASNAMELENGTHdqNRADGAStGASLISTI<MINMMR{WAVMIN{WAVMIN_TRUE{ WAVMAX%FRCSOL+xPH2O&1yPCO26zPO2